# APPENDIX B 

use vpp; 

###################################################################### 
# these files should really be in some util module 
sub HDL_Display_Hash 
{ 

my (%h) = @_; 



goldfish "displaying hash" ; 

foreach $a (keys (%h) ) 

{ 

warn " $a -> $h{$a}\n"; 

} 



sub HDL_Read_File 
{ 

my $f ile = shift or ribbit "no file specif ied\n" ; 

open (FILE, "<$f ile" ) or ribbit "cannot open file {$file) {$l)\n"; 
my $return_string; 
while (<FILE>) 
{ 

$retum_string . = $„; 

} 

close (FILE) ; 

return ( $retu2m_string) ; 

} 

sub HDL_Write_File 
C 

my $file = shift or ribbit "no file specif ied\n" ; 

my $string = shift or ribbit "no string specif ied\n" ; 

open (FILE, ">$f ile" ) or ribbit "cannot open file ($file) ($!)\n"; 
print FILE $ string; 
close (FILE) ; 

} 

# these files should really be in some util module 

###################################################################### 

###################################################################### 

# HDL__Remove_Comments 
# 

# removes comments from an entire string depending on language 

# specified 

###################################################################### 

sub HDL_Remove_Comments 

{ 

my $string = shift or ribbit "no string specif ied\n" ; 
my $language = shift or "verilog" ; 



if ($language =- /verilog/i) 
{ 

$string s | \ /\* . *?\*\/ | | ? 
$string =- s | \/\/ . *$ | 1 gm; 
return ($string) ; 

} 

if ($ language =- /vhdl/i) 
{ 

$string =- s | \-\- . *$ | | gm; 
return ($string); 



ribbit " languagi^B? language) not understoodXn" ; 

} 

############################################################################### 
# 

# HDL_CouLnt_Par en theses 

# so i have a string always @ (blow (me) (leonardo | synplicity) ) blerg (boof) 

# I want to perform computations on the string surrounded by the 

# beginning and last parentheses. X call HDL_Count_Par en theses and it 

# returns 3 values, the beginning string: "always @", the parenthesized string 

# "blow(me) ( leonardo I synplicity) " and the last string "blerg (boof)". 
# 

# If I want to search on something other than parentheses, say begin, end, I can 

# place their values in $begin„match and $end_match, 

############################################################################### 
# 

sub HDL_Count_Par en theses 
{ 

my ( $string, $begin_match, $end_match) = 
my $begin_string; 
my $paren_string; 
my $end_string; 

my $begin_match_def ault = '\s*\(\s*'; 
my $end_match_de fault = '\s*\)\s*'; 

$begin_match = $begin_match_de fault unless ( $begin_match) ; 
$end_match - $end_match„de fault unless ($end_match) ; 

return ( "",«", "$string" ) 

unless ($string /'^ ( . *?) $begin_match{ , *) $/s) ; 

$begin_string = $1; 

my $paren_count = 1; 
$end_string = $2; 

while ($end_string =- s/^ (.*?)( $begin_match ] $end_match) (.*) $/$3/ s) 
{ 

my $match; 
$match = $2; 
$paren_string . = $1 ; 

if ($match =- /$begin_match/ ) 
{ 

$paren__count++ ; 

} 

else 
{ 

$paren_count = $paren_count - 1 ; 

} 

last if ( $paren_count == 0) ; 
#else 

$paren_string . = $match; 

} 

ribbit "mismatched $begin„match, $end_match in string 
$begin_string$paren_string$end„string" if ( $paren_count •= 0); 

return ($ beg in„st ring, $paren_string, $end_string) ; 

} 

###################################################################### 
# HDL_Get_Module_Info 



# 

# HDL_Get_Module„Inf o goes through a string, finds all the modules it 

# can and gets as much information as it can about each module. It 

# stores all of the information in a gigantic hash pointed to by $mp . 

# Here is the structure of $mp . If something in the table below has 

# <> around it i.e <foo_name>. That means the name is a variable. The 

# perl type cast operators are used to specify what type the value is 
# 

# %mp 

# %<module name> the name of each module found 



# @port_order the order of ports declared by <module name> 

# %signal list of ports and signals 

# %<port or signal name> name of port/ signal 

# $left port/signal left index 

# $right port/ signal right index 

# $width port/signal width i.e (abs ($left - $right) 
+ 1) 

# $direction port only ( input/ output /inout) 

# $type wire or register (verilog) (type for vhdl 
e.g. std_logic_vector) 

# $assignment the value assigned to signal, or the entire 
always block 

# for registers 

# %instance list of all instances in module 

# %<instance_name> name of instance 

# $module module that is being instantiated 

# $ library vhdl only (name of library) 

# %hash points to $mp{$module} gets assigned in 
HDL_Munge_Data 

# %connection list of connections 

# %<module_port> name of signal that points to 
$module , <module_port> 

# @always_order array of each always blocks from "begin" to 



"end" 
# 

###################################################################### 



sub HDL_Get_Module_Inf o 
{ 

my $string = shift or ribbit "no string ($string) specif ied\n" ; 
my Slanguage = shift or "verilog"; 



my %module; 

my $mp = shift ; 

$mp = \%module unless $mp; 



$string = &HDIj_Remove_Comments ( $string, $language) ; 

if (Slanguage =- /verilog/ i) 

{ 

# crush definitions for now. Later we can use v2vhd's reader 

# that handles defines 

^ 

$string s/''\s*\ " def ine\s+ . *$//mg; 
#suck up an entire module declaration, 
while ($string =- s/ \bmodule\s+ ( \w+) \s* 

\( ( .*?)\) 
( .*?) 

\bendmodule\b/ /sx) 

{ 

my ( $name, $port„list , $module_innards) = ($1,$2,$3); 



#module <name> 

# (<port__list>) ; 

# <modul e_i nnar ds > 
#endmodule 



############### 

#put cleaned up port list into hash 



$port_lis^^ s/^\s*( .*?) \s*$/$l/s; 

@{$mp->{$naine} {port_order) } = split ( /\s*\ , \s*/s , $port_list ) ; 



############### 

# now go through each command in module innards and extract data 

my $port_ types = " input \ | output \ | inout" ; 

#foreach $command (split ( / \s* \ ; \s*/s , $module_innards ) ) 

while ( $module_innards =- s/'^\s*(.*?)\s*\;//s) 

{ 

#$command =^ s/'^Vs* ( . *? ) \s*$/$l/s; 
my $command = $1; 
#ports and signal declarations 
if ($command /'^Xs* ( $port_types | reg | wire | integer) ([ \s\ [].*) /os) 

{ 

my ($type, $ports) = ($1,$2); 
my $width; 

if (Sports =- s/'^\s*\[(.*?)\: (.*?)\1 (.*)/$3/) 
{ 

# if port [left: right] store vector fields 

# appropriately 

my ( $lef t_index, $right_index) = ($1,$2); 
Swidth = abs ($left_index - $right_index) + 1 ; 

$mp->{$name} {signal} {$port} {left} = $left_index; 

$mp->{$naine} {signal} {$port} {right} = $right_index; 

} 

else 
{ 

# else its just a bit of width 1. 
$width = 1; 

} 

# ports /signals can be comma separated, so loop through 

# all comma separated ports 
$ports =- s/'^\s*( .*?)\s*$/$l/s; 
foreach $port ( split ( /\s*\ , \s*/s , $ports) ) 

{ 

if ($type /$port_types/o) 
{ 

#if this was a port declaration. . . 

#check that $port was defined in port list above, 
ribbit 

"port $port is not found in port list $ports\n" 
unless ( $port_list 

s/\s*\b$port\b\s*\, ?\s*//s) ; 

#store additional data, type may get overwritten 
#later if the same signal is declared as a reg 
$mp->{$name} {signal} {$port} {direction} = 
$type; 

$mp->{$name} {signal} {$port} {type} = "wire" ; 

} 

else 
{ 

#not a port declaration 

$mp->{$name} {signal} {$port} {type} = $type; 

#only wire statements can have =s in them, 
if ($ports s/".*?\=\s*( .*?) \s*$//s) 
{ 

$mp->{$name} {signal} {$port} {assignment} = $1; 



} 

} 

$mp->{$naine} {signal} {$port} {width} = $width; 

} 

next ; 

} 

#now parse instantiations . 

if ($coinmand =- /'^\s*(\w+) #<module_naine> 

\s+(\w+) #<instantiation_naine> 
\s*\ (\s*( .*?) \s*\) #((.a) b, (.c) d) 
\s*$/sx) 

{ 

my $instance_naine = $2; 

$mp->{$name} {instance} {$instance_naine} {module} = $1; 
my $connection_list = $3; 

#make a ref for easier coding later ref comes into 
#existence after we declare {module} = <module_name> 

my $ref = $mp->{ $name} {instance} { $instance_name} ; 
# store away connection info 
foreacli $connection (split 

{/\s*\, \s*/s, $connection_list ) 

) 

{ 

($connection /''\s*\ . ( \w+) \s*\ ( \s* { . *? ) \s*\ ) / ) or ribbit 

"connection ( $connection) not understood\n" ; 
my ( $module_port , $external_port ) = ($1,$2); 
$ref-> {connection} {$module_port} = Sexternal port; 

} 

} 

#assign statements 
while ($command =- 

s/'^Xs* (assign\s+['^\ = ] *?) ( [a-zA-Z] \w*) ( [^\ = ] *?\ = \s* ( . *?) \s*) $ 
/$1\ $3/sx) 

{ 

$mp->{$name} {signal} {$2 } {assignment} = $4; 

} 

############### 

# handle always statements 

# there is currently a screw case here, if you do 

# something like always if adsfsdf ; else case asdfsadffa; , 

# it won't work. if you do always () a <= c; or always {) 

# begin .... end it will work. 

if ($command =- /\b (always .*? (\bbegin) ?) /s) 
{ 

my $pre_begin = $1; 

my ( $pre_begin, $always_guts , $af ter_guts ) = 

■u r 

&:HDL_Count_Paren theses ( " $command\ ; $module_innards " , "begin" , "end" ) ; 

#print "command ($command) pb ($pre_begin) ag ( $always_guts ) 
($af ter_guts) \n" ; 

if ($always_guts) 
{ 

$module_innards = $after_guts; 

$always_guts - "$pre_begin begin $always_guts end" ; 

} 

else 



{ 

$always_guts - $ command ; 

} 

push (@{$mp->{$name} {always^order } ) , $always_guts ) ; 
############### 

# search through a always statement . Whenever an 

# assignment is made to <signal> set <signal> {assignment } = 

# the whole always statement. 

my $ tmp_a 1 way s_gu t s = $ a 1 way s_gu t s ; 

whi 1 e ( $ tmp_a 1 way s_gu t s = - 

s/ (\sbegin\s| \; ) \s* (\w+) \s*\<?\={l} , *?\; /$l/is) 
C 

$mp->{$name} {signal} {$2} {assignment} - $always_guts ; 

} 

} 

} 

# now we are done with module innards, make sure all ports 

# were defined. 

if ($port_list =- /(\w+)/) 
{ 

ribbit "module $name has ports ( $port__list) specified in port list, 
but not declared inside module declaration\n" ; 

} 

} 

return ( $mp) ; 

} 

if ($ language =- /vhdl/i) 
{ 

$string =- tr/A-Z/a-z/; 

#now everything is lower case . 

while ($string =- 

s/\s*\bENTITY\s+{\w+) \s+IS\s+ ( . *?) \s+END\s+\l\s*\; \s*//si) 
{ 

my ($name) = $1; 

($port , $port_list , $sc) = ficHDL_Count_Parentheses ( $2 ) ; 
ribbit "Entity $module„name declaration, port list not understood 
($port) ($sc) " 

unless (($port /^port\s*$/is) && 
($sc /'^\s*\;/is) ) ; 

$port_list =- s/'^Xs* ( . *?) \s*$/$l/s; 

foreach $port_declaration {split ( /\s*\ ; \s*/s, $pdrt_list ) ) 
{ 

{$port_declaration =- s/''\s*SXGNAL\s+ ( \w+) #port_name 
\s*\ : \s* (\w+) #direction 
\s+(\w+) #type 
//six) or ribbit 

"entity $module„name, port $port misunderstood"; 
my ( $port , 

$direction, 

$type) = ($1,$2,$3); 

die "port is bogus ( $port , $direction, $type ) \n" 
. " ($1, $2, $3) ($port_declaration) \n" 
if ($port eq " " ) ; 

push (@{$mp->{$module_name} {port„order} } , $port_name) ; 



$dire(^B^n .= "put" 

unless {$direction eq "inout"); 
$mp->{$naine) {signal} {$port} {direction} 

$direction; 
$inp->{$naitie} {signal} {$port} {type} 

$type 



my $ width; 

if ($port_declaration =~ s/ \ ( ( . * ) \ ) / /s ) 
10 { 

my $vector = $1; 

my ($lef t_index, $foo, $right„index) = 

($vector =^ s/^\s* ( . *?) \s* (down) ?to\s* ( . *) \s*$//si) 

or ribbit "port $port, vector $vector not understood"; 



15 



$width = abs ($left_index - $right_index) + 1; 
$mp->{$name} {signal} {$port} {left} = $lef t^index; 
$mp->{$name} {signal} {$port} {right} = $right_index; 



} 

20 else 



25 } 
} 



{ 

$width =1; 

} 

$mp->{$name} {signal} {$port} {width} = $width; 



^ #now get architecture 

^ while ($string s/\b 

W 30 architecture\s+ # architecture 

Q (\w+)\s+ # <behavior> 

of \s+ (\w+) \s+ # of <entity> 

□ is\s+(.*?)\b # is <signal_list> 

ff\ beginXb # begin 

35 {■*?)\b # (behavior description) 

end\s+\l\s*\ ; \s*//six) # end <behavior> ; 

m ^ 

my ($name, $signal_list, $behavior) = ($2, $3, $4); 

ry 40 $signal_.list s/^\s* ( . *?) \s*$/$l/s ; 

foreach $signal_declaration (split ( / \s* \ ; \s*/s , $signal_list ) ) 
{ 

( $signal_declaration 

45 s/'^Xs* (SIGNAL I SHAREDXs+VARIABLE) \s+(\w+) # SIGNAL <signal„name> 

\s*\ : \s* (\w+) # : <type> 

//six) or next; # (forget about vhdl 



TYPE 

50 



# declarations for now. ) 

my ($signal, $type) = ($2, $3); 



# type e.g. is std_logic or std_logic_vector 
$mp-> {$name} {signal} {$signal} {type} = $type; 

55 

my $ width; 
############### 

#signal_declaration now has only vector information left 
#(if anything). 
60 if ($signal_declaration s/\ ( ( . * ) \ ) / /s ) 

{ 

#assign vector info if it is a vector, 
my $vector = $1; 



my (^Sf t_index, $f oo , $right_index) = 

($vector =- s/'^ ( . *?) \s* (down) ?to\s* ( . *) $//si) 

or ribbit "port $port, vector $vector not understood" 



$width = abs ($left_index - $right_index) + 1; 
$inp->{$name} {signal} { $signal} {left) = $left_index; 
$mp->{$naine} {signal} {$signal} {right} = $right_index; 

} 

else 
{ 

$width = 1; 

} 

$mp->{ $naine} {signal} { $signal} {width} = $width; 



$behavior =- s/'^Xs* ( . *?) \s*$/$l/s ; 

############### 

# handle process statements 

while ($behavior =- s/ \bprocess\b\s* #process 
(.*?) #stuff 
\s*\bend\s+process\s*\ ; \s*//six) #end process 

{ 

my $process„guts = $1 ; 

push (@{$mp->{$name} {always_order } } , $process_guts ) ; 
############### 

# search through a process statement. V/henever an 

# assignment is made to <signal> set <signal> {assignment} = 

# the whole process statement. 

ray $tmp_process_guts = $process_guts ; 
while ($tmp process_cruts 

/ (\bTHEN\s| \ ; ) \s* (\w+) \s* (\<| \ : ) \=.*?\; /$l/is) 
{ 

$mp->{$name} {signal} {$2} {assignment} = $process_guts ; 

} 



############### 

#now all that is left is signal assignments and instantiation 

foreach $command (split ( /\s*\ ; \s*/ , $behavior) ) 

{ 

# just handle simple wire assignments, no Ihs concatenation 

# craziness for now. 

if ($command /^\s* ( \w+) \s* #<lhs> 

\<\=\s* #<= (assignment operator) 

(.*?)\s*$ #<rhs> 
/six) 

{ 

my ($lhs,$rhs) = ($1,$2); 

ribbit "Ihs is null in c {$command)" 

if ($lhs eq " ") ; 
ribbit "rhs is null in c ($ command ) " 

if ($rhs eq " " ) ; 

$mp->{$name} {signal} {$lhs} {assignment} = $rhs; 
next ; 

} 

#handle instantiation 
if ($command 

/'^ {\w+) \s*\ : \ s* (entity\s+) ? 

{\w+) \ .? (\w*) \s* 



#<instantiation> : entity 
#<lib> . <module> 



30 



55 




{ . ^nBcix) #<port map^clk 



my ( $ in s t anc e_name , 
$entity, 

5 $ library_or„module , 

$module, 
$rest ) 

= ($1,$2,$3,$4,$5) ; 

10 ############### 

# if "entity" is declared, then module has a library, 

# otherwise its a component with no library, 
my $library = " " ; 

if {$entity) 
15 { 

$ library = $library_or_module ; 

} 

else 
{ 

20 $module = $library_or_module ; 

} 

#assign stuff to hash 

$mp->{$naine} {instance} { $instance_name} {module} = 
25 $module; 

$mp->{$name} {instance} {$ ins tance_name} {library} = 
$ library ; 



my $ref = $mp-> { $name} { instance} {$instance_name} ; 



############### 

# split up port map and assign connections 
my $port_map = $rest; 
01 $port_map =- s/'^ . *?\bport\s+map\s* (\ ( , *) /$l/is or 

s 35 &ribbit 

[3 ("no port map for instantiation $instance_name 

W' ^ $ command) " ) ; 

my ( $pre, $pm, Send) = &HDLi_Count_Parentheses 
*™ 40 ($port_map) ; 

'-J $pm s/\s+//sg; 

my ©connections = split (/\,/,$pm); 
foreach $c (©connections) 

45 { 

my ($module_port , 

$extemal_port) = 

split (/\=\>/,$c); 

50 ############### 

# a big hack for now, 

# crush all those (0) cases which convert 

# std_logic_vector (0 downto 0) to std_logic 
$external_port s/\(0\)$//s; 



$ref-> {connection} {$module_port} = $external_port ; 



} 



} 



} 



60 } 

return ($mp) ; 



ribbit "language ($language) not understood\n" ; 



10 



20 



60 



} 

sub HDrj_List_Ports_For_Module 
{ 

my $module„hash = shift or ribbit "no hash"; 
my $module = shift or ribbit "no module"; 

my $tmp = &HDL_Get„By„Path ( $module_hash, " . $module . port_order " ) ; 
my @module_port_array = @$tmp; 



my $list__ports_f or_string; 
foreach $port (@module^ort_array) 
{ 

$list_ports_f or_string . = 
15 "$port I 

$module_hash->{$module} {signal} {$port} {width} | 
$module_hash->{$module} {signal} {$port } {direction} , 



} 

&List_Ports_For ( $module , $list_ports_f or_string) ; 



} 



###################################################################### 
25 # HDL_Munge_Data 
# 

_^ # For assigning items in which you don't know the declaration order, 

Q # e.g for stuff that happens across module boiindaries, you have to wait 

^ # until all data is known before you can start processing it. Its 

^ 30 # also good to do as much work here as possible because you only have 

# to do it once here rather than once for each of the supported 
^ # languages . 

O ###################################################################### 
= 35 sub HDIj__Munge_Data 

g=| my $hash = shift or ribbit "no hash" ; 

^ foreach $module (ScHDL_Get_Keys_By_Path ( $hash, "","", 0 ) ) 

ly 40 { 

^ my $boo = $hash-> { $module} {instance} ; 

my @asdf = keys (%$boo) ; 

foreach $instance (&:HDL_Get_Keys_By„Path ( $hash, " $module . instance" , 1 ) ) 
{ 

45 my @tmp = keys (%{$hash->{$module} {instance} }) ; 

my $instantiated_module = &HDL_Get_By_Path 
($hash, 

" $module . instance . $ instance .module" , " " ) ; 

50 ############### 

#assign instance parent name and hash 
$hash-> { $module} {instance} {$ instance} {hash} = 
$hash->{$instantiated_module} or warn 

"module ($module) instantiates unknown module 

55 ($ instant iated„module) \n" ; 

$hash->{$module} {instance} {$ instance} {parent} = 
$hash->{$module} ; 



############### 

# if you have a module declaration "<module> <instance> ((.a) 

# b) " and module. a is an output, then what you're really 



# saying ^P^assign b = <instance> . a) . We do assignment 

# now for all output ports of the $instance here. 

my $mod_sig = &HDL_Get_By_Path 
( $hash, 

" $module . instance . $ instance . connection" ) ; 

foreach $port (keys (%$mod_sig) ) 
{ 

i f ( &:HDL_Get_By„Path 

( $hash, "$ instant iated_module . signal . $port .direction" , 1) 
/^out/i) 



$hash->{$module} {signal} {$$mod_sig{ $port } } {assignment} 
= "$ instance . $port" ; 



} 



} 

} 

} 

###################################################################### 

# HDL_Get_Module_Info_From_File 
# 

# wrapper around get_module_inf o , Does language determination based 

# upon file extension. 

###################################################################### 

sub HDIi_Ge t_Mo du 1 e_I n f o_F r om„F i 1 e 
{ 

my %h = (a_; 

$h{file} or ribbit "no file specif ied\n" ; 

if (! $h { language } ) # if language not specified, determine from file 

# suffix. Default is verilog 

{ 

$h{language} = "verilog"; 
$h{ language} = "vhdl" 

if ($h{file} /\.vhdl?/i); 

} 

my $module„string = &HDL_Read_File { $h{ f ile} ) ; 

my $module_hash = &HDIi_Get_Module„Inf o ( $module_string, 

$h { language } , 
$h{hash} ) ; 

return ( $module_hash) ; 

} 

###################################################################### 

# HDL_Get_Module_Inf o_From„Files 
# 

# wrapper around get_module_inf o_f rom_f ile . Munges data after all 

# modules are known. 

###################################################################### 

sub HDL_Get_Module_Inf o_From_Files 
{ 

my %h = @_; 

$h{f ile_array} or ribbit "no file array"; 
my %hash; 




foreach $file (^^{ f ile_array} } ) 
{ 

my $hash = &HDL_Get_Module_Inf o_From_File ( f ile => $file, 

hash => \%hash , 
language => $h{ language} ) 

} 

#now we have all the data given to us from the file list. 
#play with it a bit 
&:HDIi__Munge_Data ( \%hash) ; 

return (\%hash); 

} 

###################################################################### 

# HDL_Get_Keys_By„Path 
# 

# Sugar around Get_By„Path, it just assumes value gotten is a hash and 

# returns its keys . Could do error checking with ref operator 



sub HDL_Get_Keys_By_Path 
{ 

my $pHash = shift or ribbit "no hash" ; 
my $rel_x>ath = shift; 
my $quiet = shift ; 
my $ debug = shift; 



warn " \n\nHDL_Get_Keys„By_Path : " 
if $ debug; 

my $ref_hash = &HDL Get By Path ( SpHash, $rel_ path, $quiet ^ $debua) ; 
my @retum_array = keys (%$ref_hash) ; 

warn "done with HDL_Get_Keys_By_Path returning (@retum_array) \n" 

if $ debug; 
retuim {@return_array) ; 

} 

###################################################################### 

# HDL_Set_By_Path (NOT FINISHED) 
# 

# An experiment in setting by path. currently we use the all powerful 

# arrow operator 
sub HDIi_Set_By_Path 
{ 

my $pHash = shift or ribbit "no hash"; 
my $rel_path = shift; 

my $value = shift or ribbit "no value"; 
my $make_new_path = shift; 

$rel_path s/\s+//g; 

$rel_path =- s/''\s*\ .?(.*?) \ . ?\s*$/$l/ ; #take off initial and final , 

$rel_path s|\.|\}\{|g; #change a.b to a} {b 
#to be continued 



#$rel_path ; 

} 

###################################################################### 

# HDL_Get_By_Path 
# 

# You pass in hash and a separated path. It progresses down the 

# hash tree and gives you your result. If it cannot go down the tree 

# and $quiet is FALSE. It ribbits where it failed and displays the 

# leaves available at that point, if ($quiet) it just returns "" 



ii ii 

sub HDL_Get_By_Path 
{ 

my $pHash = shift or ribbit "no hash" ; 
my $rel_path = shift; 
my Squiet = shift; 
my $cLebug = shift; 

$rel_path s/^\s* \ .?(.*?) \s*$/$l/s ; 

warn " \n\nHDIi_Get_By_Path : rel path is $rel_path\n" 

if ( $debug) ; 
my ©path = split ( / \s*\ . \s* / , $rel_path) ; 
my $ indent; 

while ($child = shift (©path)) 
{ 

my $child_options = join (" or\n",(sort (keys %$pHash) ) ) ; 



if ($debug) 
{ 

warn "$ indent $pHash -> ( $child) \n" ; 
$ indent .= " "; 

} 

$pHash = $pHash->{ $child} ; 



if (!$pHash) 
{ 

return ( " " ) if $quiet; 

&ribbit ("($child) unknown in $rel_path\n\n" 

. "known options are: \n ( $child_options) \n" ) ; 

} 

} 

if {$debug) 
{ 

warn "$indent returning $pHash\n" ; 

} 

return ($pHash); 



###################################################################### 

# HDL_Get„Module_By_Instance_Path 
# 

#You pass in hash and a "," separated path. It progresses down the 

# instantiation list and returns the module name at the end of the tree 
###################################################################### 

sub HDIj_Get_Module_By_Instance_Path 

{ 

my (%h) = ©_; 



$h{path} or ribbit "no path specified"; 
$h{hash} or ribbit "no hash specified" ; 



$h{path} =- s/\s+//g; 

my ©path = split ( / \ . / , $h{path} ) ; 

my $top = shift ©path; 
$top = shift ©path 

if ($top /'^\s*$/) ; 

my $hash = $h{hash} ; 



while (©path) 
{ 

my $leaf = shift ©path; 
$top = &HDL_Get_By„Path 

($hash, " $top . instance . $leaf .module" ) ; 

} 

return ( $top) ; 



###################################################################### 

# HDL_Get_Parent_Connection 
# 

# returns the full path of the signal that connects to an instance 
###################################################################### 

sub HDL_Get_Parent_Connection 
{ 

my (%h) = 

$h{path_and_signal } or ribbit "no path ajid signal specified"; 
$h{hash} or ribbit "no hash specified" ; 

my @path_a = split { /\s*\ . \s*/s , $h{path_and_signal } ) ; 

my $signal = pop (@path_a) or ribbit "we get no signal"; 

my $ instance = pop (@path_a) or ribbit "we get no instance" ; 

my $path = join( " \ . " , @path_a) ; 
my $module = 

&:HDL„Get_Module_By_Instance_Path {path=> $path, 

hash=> $h{hash} 
) ; 

my $parent_connection = 

&HDL_Get_By_Path ( $h{hash} , 

" $module. instance . $ instance . connection . $ signal" ) 

return " $path\ . $parent_connection" ; 

} 

1; 



Get_Sopc_Path . pi 

################################################################ 

# get_sopc_path 
# 

# Figure out, based on the system environment, where we should 

# look for components. The list of directories is delimited by 

# plus (+) symbols, does not include the implicit ' . ' and sopc 

# components directories. STDOUT will receive the list. 
# 

################################################################ 
$1=1; # set flushing on STDOUT 

# NOTE: some perl expert should change this to call getenvO or whatever, 
print $ENV{SOPC_BUILDER_PATH} ; 



Mif siml .pi 

sub Emit_Bin„Data 
{ 

my $data_string; 
($data_string) = (@_) ; 

my $data„val = eval ( " Ox$data_string" ) ; 

my $bit = 0; 

my $result = " " ; 

for ($bit = 0; $bit < $DATA_WIDTH; $bit++) 
{ 

if {$data_val % 2 == 0) { 

$result = "0" . $result; 
} else { 

$result = "1" . $result; 

} 

$data_val = int ($data_val / 2); 

} 

print "$result\n"; 

} 

$DATA_WIDTH = shift {@ARGV) ; 

while (<>) 
{ 

if (/- — /) 
{ 

# It's a MIF " — " comment at the start of a line: 

# Keep comments, because I love them. 
s/^ — /\/\//; 

print ; 
next ; 

} 

s/\s*//g; # Strip all whitespace, because I hate whitespace . 

if (/ (\d+) \: (\w+) ;/) 
{ 

my $addr = $1; 

my $data = $2; 

print f ( "@%X\n" , $addr) ; 

print "$data\n" if ! $DATA_WIDTH; 

&Emit_Bin_Data($data) if $DATA„WIDTH; 

next ; 

} 



next ; 

} 



MK_Cus tom_SDK . pi 



10 



15 



#! /bin/sh 

exec perl - "$@" «\ENDOFPERL 
#!perl 

require Strict; 
use ink_custom_sdk; 



# 

# 2000 August 

# dvb \ Altera Santa Cruz 



# 

# see if any of the arguments is " — help", 

# and show some help if so. Otherwise, call main. 
20 # 

{ 

my $i; 

™ 25 for($i = 0; $i < scalar (@ARGV) ; $i++) 

p if($ARGV[$i] eq " — help") 

W { 

yj usage ( ) ; 

P 30 exit 0; 

> 

5 > 

35 mk_custom_sdk(@ARGV) ; 



m 



# end of file 



MK_Sy St embus .pi 



################ 

# ink_sys t embus . pi 
# 

# This Perl-script is the "business end" of the 

# Nios System Bus Wizard. The Wizard itself is a GUI-layer 

# which quizzes the user and passes his (her) choices 

# along to this very script . 
# 

# The kind of user socket we build depends on the 

# parameters we get. The parameters are "named arguments," 

# Named arguments are one long comma -de limited string, 

# a list of 'normal' command-line arguments, or any combination 

# of both (we just smash all the command-line arguments together 

# into one long string anyhow) . 
# 

# The comma-delimited elements have the form: 

# <arg_name> = <value> . 
# 

# For a list of all the argument -names and their allowed values, 

# see the table below. 
# 

use wiz_utils; 

use mk_custom_sdk; 

use pbm__gen; 

use crush_names; 

#use v2vhd; 

#use strict; 

#use Win32; 

#use Win32 :: Process ; 



################################################################ 

# Mk_SystemBus 
# 

# Executes all the functions of the System Bus MegaWizard. 

# All the peripherals (and nios-cores) that this uses must have 

# already been built by the other "Mk" functions. 
# 
# 
# 
# 

# This function takes, as its arguments: 
# 

$Mk_SystemBus_Doc=«END_OF_DOCUMENTATION_STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 
# 



Because this function takes listref 
it doesn't use PARSE_NAMED_ARGS . 



and hashref arguments. 



mainmem_module --none- 



skip_synth 
hdl_l anguage 
devi c e_f ami ly 
compiler 
clock_f req 
do_bui 1 d„s im 
do_optimize 
leo__f latten 
leo__area 



--none-- 
hdl 

--none-- 
--none-- 
clk_f 
sim 

optimize 

flatten 

area 



— none — SDK will target programs here. 

0 *boolean* do synth or not? 
verilog * (verilog | vhdl ] ahdl) * for wrapper . 
APEX20KE target device (chip) family, 
quartus * (max\+plus2 | quartus) * P&R tool 
33333300 Input clock rate in Hz. 

1 *boolean* do make system sim? 

1 *boolean* assume optimized HDL? 

1 *boolean* Leo's hier-f latten option 

0 ^boolean* Leo optimize for area. 



Principal_Tri_State_Data_Bus — none — — none — Direct-to-CPU Fast I/O 

# These arguments are used to buidl the custom SDK. We have to tolerate 

# them here , even though we don ' t use them 

mainmem_module --none-- --none-- Where to put programs. 



datamem_module^^" --none- 
gdbcoinm„module — none- 
maincomm_module --none- 
germs_moni torpid --none- 



-none-- Where to pile variables / stack . 

-none-- Debug on this uart. 

-none-- Yak on this uart. 

-none — Print this at boot-time . 



END„OF_DOCUMENTAT I ON_STRING 
# 

################################################################ 

sub Mk^SystemBus 

C 

my ($arg, $user_def ined, $db_Sys, $db_PTF„File) 

= &Process_Wizard_Script_Arguments ( $Mk_SystemBus_Doc , @_) ; 

my $sys_name = $$arg{system_name} ; # too handy to pass 

# up. 

if ( $$arg{ compiler} eq "max+plus2") 
{ 

if ($sys_name /"^ ( \w{ 32 } ) \w+/ ) 
{ 

die "Sorry, max+plus2 will not accept a system name\n" . 

" that is greater than 32 characters. Perhaps you\n" . 
" should use ($1) as your system-name instead. \n"; 

} 

} 

################ 

# First, but by no means most, build a custom SDK 

# for all that annoying hardware we're about to build: 
# 

&mk_custom_sdk( " --sopc_directory=$$arg{sopc_directory} " , 

" — system_directory=$$arg{system_directory} " , 

" — system_name=$$arg{name} " , 

" — sopc_lib_jpath=$$arg{sopc_lib _jpath} " 

) ; 



$do_optimize = $$arg{do_optimize} ; 



if ($do_optimize) { 

$ suffix = " . txt" ; 

unlink ( " ABRAHAM_IiINCOIiN_NO_OPTIMIZE" ) ; 
} else { 

open ( ABRAHAM_LINCOLN_NO_OPTIMIZE , " >ABRAHAM_LINCOIiN_NO_OPTIMIZE " 
close ABRAHAM_LINCOLN_NO_OPTIMIZE; 

} 

&Progress {"Starting generation for system: $ sy s_name , " ) ; 

# Get " {quartus, leonardo,modelsim}_def ine.v, and all that stuff: 
# 

&Copy_Tool_Control_Files ($arg) ; 
################ 

# Run Client Generator-Programs 
# 

# Loop through every system component (module) specified in the PTF-f 

# and run the corresponding generator-script . 
# 

my @module_name„list = &Run_Generator_Programs ($arg, $db_Sys) ; 



################ 

# Update PTF database . 
# 

# The PTF database we read- in earlier is now 





# out-of-date .^^e just ran a bunch of "generator pi^^rams . " 

# One consequence: The PTF-file has been thoroughly modified. 

# Read it in again: 
# 

my ($arg, $user_def ined, $db_Sys) 

= &Process_Wizard_Script_Arguments ( $Mk_SystemBus_Doc , @_) ; 

################ 

# Build the system-module and PBM: 
# 

# Internally, this function generates an elaborate database hash. 

# It returns a reference, so that we can extract a few key 

# elements later (name of core-module and such) . 
my @sys_synth_f ile_list = (); 

&Progress ("Making PBM (bus) and system (top) modules."); 
my $pSys = &Generate_PBM_And_System ($arg, $db_Sys) ; 

my $synth_list„ref = $$pSys { synth_f ile_list} ; 
push (@sys_synth_f ile_list , @$synth_list_ref ) ; 

################ 

# Synthesis-Files list 
# 

my @synthesis_f ile_list = &Get_Synthesis_File_Ijist ( $pSys , $db„Sys, 



# The name of the synthesizable core-file itself may have been changed. 
$arg-> {core_name} = $pSys-> {core_name} ; 

# The Java wizards need to see this string to know everything is OK. 

# At this point, we consider everything "OK" -enough to 

# allow the Java wizards to create a subsequently- editable 

# "custom megaf unction variation" 
# 

ficProgress ( "VPP HDL -GENERATION SUCCESSFUL"); 

# Write-out a list of the HDL files, in case the user 

# wants to synthesize the design his/herself: 
# 

&Create_HDL_File_List_File ( $$arg{system_directory} , $sys_name. 



# Create simulation project, if so ordered: 
# 

&Create_Sim_Project {$arg, @synthesis_f ile_list ) if $$arg{do_build_sim} 

################ 

# Time to Synthesize! 
# 

# (Leonardo, if you please...) 
# 

# Pass along our $args-hash, so that Leo can know everything we know. 
# 

&Run_Leonardo ($arg, @synthesis_f ile_list ) ; 



\@sys_synth_f ile_list , 
@modul e_ncLme_l i s t 
) ; 



@synthesis_f ile^list) ; 



} 



################################################################ 
# Run_Leonardo 



# 

# We run Leonardo Spectrum (aka "spectrum") from the 

# command-line by pointing it to a command-file. The 

# command-file contains, mostly, a list of all the HDL-files 

# we want to synthesize, plus a few simple settings. 
# 

# This isn't really a "subroutine" in the conventional sense, 

# because it only gets called from one place. It's just 

# for tidy code-partitioning. 
# 

################################################################ 

# I got these keys ( family -names) from some file in the quartus/bin 

# directoiry called "package.dat". 
# 

# I did it again in the maxplus2/ directory to get the reset. 
# 

# I got these values by typing "Is *.syn" in Leo's " lib" -directory : 
# 

my %Leonardo_Device_Family_Decoder_Ring = ( 
APEX20K => "apex20", 

APEX2 0 KE = > " apex2 0 e " , 

APEX20KC => "apex20c", 

EXCALIBUR_ARM ==> " excalibur_arm" , 
EXCALIBUR_MXPS => " excalibur_mips " , 
MERCURY => "mercury'*, 

ACEXIK => " acexl " , 

FLEXIOK => "flexlO", 

FLEXIOKA => "flexlOa", 

FLEXIOKB => "flexlOb", 

FLEXIOKE => "flexlOe", 

) ; 

sub Run_Leonardo 
{■ 

my($arg, @unsorted_input_f ile_list ) = {@_) ; 
#@input_f ile_list = sort @unsorted_input_f ile_list ; 

# the last entry in the input_f ile_list is always the top-level modul 

# we want the top-level module to appear first on the list. 
@input_f ile_list = @unsorted_input_f ile_list ; 

my $top_level_module = pop @input_f ile_list ; 
unshift @input_f ile_list, $top_level„module ; 

my $sys_name = $$arg{ system_name} ; # too handy to pass up, 

my $freq_in_MHz = $$arg{clock_f req} /lOOOOOO ; # note, need not be 

my $tcl_file = 

" $$arg{system_directory} /$sys_name\_leonardo_tcl_script . tcl" ; 

my $ c ommand_f i 1 e = 

" $$arg{system_directory} /$sys_name\_leonardo_commands . cmd" ; 

my $target = $$arg{device_f amily} ; 

$ target = $Leonardo_Device_Fami ly„Decoder_Ring{$ target } ; 

die "ERROR Run_Leonardo NULL TARGETl ( $$arg{device_f amily} ) does not 
if ($ target eq " " ) ; 

my $hierarchy_option = $$arg{ leo_f latten} ? "hierarchy__f latten" : 

"hierarchy_preserve" ; 

my $optimize_option = $$arg{leo_area} ? "area" : 

"delay" ; 



my $LEO_CMD_FIIiE_TAIL=«END_OF_TAIL; 
-product=lsl 
-target=$ target 
-macro 

- $ op t imi z e_op t i on 

-max_f r equency = $ f r ec[_in_MHz 

-effort standard 

-$hierarchy_option 

-pass={l} 

END_OF_TAIL 

open (LEO_CMD, "> $command_f ile" ) or die " 

ERROR: couldn ' t Open $command_f ile : $ ! " ; 
print LEO_CMD " leonardo_def ine . v \n" ; 
foreach $file (@input_f ile_list) 

{ print IiEO_CMD "$file \n" ; } # List input files, 

print LEO__CMD " $$arg{core_name} . edf \n" ; # Next, output file, 

print LEO_CMD " -module=$$arg{core_name} \n" ; # Top module, 

print IiEO_CMD $LEO_CMD_FILE__TAIL; 
if ( $do_optimize) { 

print LEO_CMD " -f ile=$ tcl_f ile\n" ; 

} 

close (IiEO_CMD) ; 

# at this moment, we don't do a tcl file unless we do„ip. 
if ($do_optimize) { 

open (LEO_TCL, "> $tcl_file") or die " 

ERROR: couldn't open $tcl_file: $ ! " ; 
print LEO_TCIi "\n"; # just enough exist, if nothing else written to it. 
print LEO_TCIi "do_ip -target $target "; 
print LE0_TCIj "-area " if $$arg{leo_area} ; 
print LEO_TCL "-delay " if ! $$arg{ leo_area} ; 
print LEO_TCL "-effort standard "; 

print LEO_TCL "-design $$arg{core_name} -pass={l} 

print LEO_TCL "-hierarchy flatten " if $$arg{leo_f latten} ; 

print LEO_TCL "-hierarchy preserve " if i $$arg{leo_f latten} ; 

print LiEO_TCL "-output $ $arg{core_name} . edf "; 

print LEO_TCL "{ leonardo_def ine . v "; 

foreach $file (@input_f ile_list ) 

{ print LEO_TCL " $f ile" ; } # List input files, 

print LEO_TCL "}\n"; 
close (LEO_TCL) ; 

} 

# The following section of code is defunct. The problem is, we don't have a 

# full license to Leonardo, If we did, then using a full tcl script would be 

# a really really good idea. But we don't. We have a stupid level 1 license. 

# This level 1 license will allow us to use the "do_ip" function in a tcl 

# script like above (thank goodness), but it won't allow us to run the entire 

# Leo project from a tcl script. With hope that we will eventually be able to 

# run Leonardo through a tcl script, I will keep this around, albeit 

# commented, as a dedication to untapped powers of tcl-enabled synthesis. 



# 

# $input_f ile_list_string = join 'Xh-', @input_f ile_list ; 

# &Vpp ( 

# split (/\s+/, "-Q -R -X tcl"), 

# "-D", "$$arg{system_directory} , 

# "-P", $$arg{system_name} . , 

# " SYSTEM_NAME = $ $arg { sys t em_name } " , 

# " TOP_MODULE_NAME = $ $arg { core_.name } " , 

# "INPUT_FILE_LIST_.STRING = $input_f ile_list_string" , 

# " SYSTEM_CLOCK_FREQUENCY = $$arg{clock_f req} " , 



# 
# 
# 
# 



"DEVICE^fSHTly = $$arg{devie^fainily} " , 

"DO_OPTIMIZE = $$arg{do_optimize} " , 

" $$arg{sopc„directory} /bin/pro ject_synthesis_script . vpp" , 





) ; 



my $spectnim_bin_dir = " $$arg{sopc_directory} / " ; 
$spectrum_bin__dir " bin / spec t rum/ bin " ; 

$spectr\am_bin_dir .= "/win32" if {$^0 / (MSWin | cygwin) /i ) ; 
my $spectr\im_coinmand = "$ spec trum_bin„dir/ spectrum" ; 



print STDERR " 

Nios system module $sys_name *not synthesized* 
You must synthesize this module before you can place 
and route in Quartus.\n"; 
} else { 

&Progress ("Launching synthesis tool."); 

open (ABRAHAM„LINCOLN_STEALTH, " " ) ; 
close ABRAHAM_DINCOIiN_STEAIiTH; 

my $error_code = &System_Win98_Saf e ( $spectrum__command_line) ; 
open (ABRAHAM_LINCOLN_NO_STEALTH, " " ) ; 
close ABRAHAM__IiINCOLN_NO_STEALTH; 

if ($error_code ==2) { 
die " 

Leonardo Spectrum was unable to run due to a bad 
or nonexistant license file. 

Be sure that you have a valid license to run 

the \ "Altera OEM\ " version of Leonardo Spectrum. 

You can obtain a license from \ "www. altera . com\ \n" ; 

} 

if ( $error_code == 1 ) { 
die " 

Leonardo Spectrum did *not* run successfully. 
Spectrum has reported an error in a design file. 

You must resynthesize this module before you can place 

and route in Quartus.\n"; 

} 

if ($error_code != 0) { 
die " 

Leonardo Spectrum did *not* run successfully. 

Spectrxam quit because of an unknown error: $error_code. 

You must resynthesize this module before you can place 

and route in Quartus.\n"; 

} 

&Progress ( " Spectrum Done . " ) ; 

if ( $arg-> {compiler} =~ /max\+plus2/i) { 
print STDERR" 

Be sure that your Interf aces-->EDIF Netlist_Reader Settings 
specify \ " Exemplar \ " . \n" ; 



niy $spectrum_command_line 



$spectrum_command 
" -command_f ile=" 
$ c ommand„f i 1 e ; 



if ($$arg{skip_synth} ) 
{ 



} 



} 



} 



################################################################ 

# I s_Ijeonardo_Licens ed„f or_Ver i 1 og 
# 

# Tests whether Leonardo Spectrum has access to a license 

# that allows it to process verilog. It does this by 

# producing a very simple verilog file, and seeing if 

# spectrum can synthesize it. If it fails on the license, 

# then it must not have a license for verilog. 
# 

################################################################ 

sub Is„Ijeonardo„Licensed_f or_Verilog 
{ 

my ($arg) = (@_) ; 
my $is„licensed = 0; 

my $t = " test_for_leonardo_verilog_license_f ile" ; 

&:Progress ("Testing synthesis tool license."); 
# we need a blank verilog file just to run on. 
open (LEO_DEF, ">$t.v"); 

print LEO_DEF ("module $t (i, o) ; input i; output o; assign 
endmoduleXn" ) ; 
close IiEO_DEF; 

my $spectrum_bin_dir = " $$arg{sopc_directory} / " ; 
$spectrum_bin_dir .= "bin/spectr\im/bin" ; 
$spectrum_bin_dir .= "/win32" if ($^0 /MSWin/i) ; 
my $spectrum_command = "$ spec trum„bin_dir/ spectrum" ; 
my $spectrum_command_line = $spectrum_coinmand 

. " -product=lsl" 

. " -target=apex2 0" 

. " $t.v" 

. « $t.edf" 

. " > $t. output" ; 
open (ABRAHAM_LINCOLN_STEALTH, " " ) ; 
close ABRAHAM_IiINCOLN„STEALTH ; 

my $error_code = &System_Win98_Saf e ( $spectrum„command_line) ; 
open (ABRAHAM_LINCOLN_NO_STEAIjTH, " " ) ; 
close ABRAHAM_IiINCOLN_NO„STEALTH; 

if ($error„code ==1) { 
$is_licensed = 0; 

print STDERR ("Unable to determine find verilog license for Leonardo. 
Using unlicensed synthesis path.Vn"); 
} elsif ($error_code ==0) { 

$is_licensed = 1; 
} else { 

print STDERR ("Unable to determine licensing for Leonardo. 

Using unlicensed synthesis path.Xn"); 
$is_licensed = 0; 

} 

# clean up directory 

unlink ("$t.v" , "$t .log" , "$t .sum" , «$t . tcl" , "$t .xdb" , "$t .xrt" , 

"$t .edf " , "$t.xrf " , "$t .output" ) ; 
return ( $is_licensed) ; 

} 

################################################################ 

# Run_Generator_Programs 
# 

# Given (a reference to) the PTF "SYSTEM" section and (a reference to) 



# the %arg-hash, w^^ave enough information to run throT!5n all the 

# system's sub-modules and run their respective generator-programs 

# (as-listed in their "class. ptf" file), if any. 
# 

# For modules that don't explicitly list a generator-program, we run 

# the "default_generator_program, " on their behalf. Other modules may 

# specifically request that no generator program be run at all. 
# 

# This function returns a list of all "enabled" modules in the system. 

# This list includes the master. 
# 

################################################################ 

sub Run_Generator_.Programs 

{ 

my ($arg, $db_Sys) = (@_) ; 
my @module_name_list = ( ) ; 

my $num_children = get„child_count ( $db_Sys) ; 

for (my $child_index = 0; $child_index < $num_children; $child_index++) { 

my $db_Module = &:get_child ($db_Sys, $child„index) ; 
next unless get_name ($db_Module) eq "MODULE"; 



# Don't waste our time on disabled modules. 



next if 1 &PTF_Get_Boolean_Data_By_Path ($db_Module, 

" SYSTEM__BUILDER_INFO/ Is_Enabled 

my $mod_name = &get_.data ( $db_Module) ; 

push (@module_name_list , $mod_name) ; # Good to know later. 

# Open-up this module's " class. ptf" file. 

# The "class" name of this peripheral is, by definition, 

# the same name as the "components/" directory in which 

# its class. ptf file resides. 
# 

my $module_class = &PTF_Get_Required_Data_By_Path ($db_Module, "class", 
"No class specified for module: $mod_name"); 

my $module_lib„dir - 

&Find_SOPC_Component_Directory ( $module_class , $$arg{ sopc„lib_path} ) ; 

my $db_Class_File = 

&:PTF_New_Required_Ptf_From_File ( " $module_lib_dir/ class .ptf " , 

"No 'class. ptf file found for module $mod_name"); 

my $db_Module_Class = 

&PTF_Get_Required_Child_By_Path ($db„Class_File, "CLASS" , 

"Bad or corrupt 'class. ptf ' file for module $mod_name"! 

my $lib_generator j)rogram = &:get_data_byj>ath ( $db_Module_Class , 

"ASSOCIATED_FILES/Generator_Program" ) 



# If the library component didn't specify a generator program, 

# then give it the generic (default) one: 
# 

my $generator_program = " $module_lib_dir/$lib_generator_program" ; 
$ genera tor_prograin = 

" $ $arg { sopc_direc tory } /bin/de f aul t_generator_program . pi " 
if ( ( $lib_generator_program eq " " ) I I 

($lib_generator_program — def ault--$ /i) ) ; 

if ( ( $lib_generator_program /^--none--$/i) ) { 




# for now, cSPLain bitterly if the generator pro^^ is not 

# apparently a Perl-script: 
# 



a P€ 

$generator ^program =- /\ .pl$/ or die " 

Illegal Generator program '$ genera tor_prograin' for $module_class : 
Generator progreims must be perl-scripts . Vn" ; 

my 

$generator_cmd = " $$arg(sopc_directory} /bin/iperl 
$generator_cmd .= " -I$$arg{sopc_directory} /bin 
$generator_cmd . - " $generator_program " ; 

$generator_cmd .= " — system_name=$$arg{ system_name} 

$generator_cmd .= " — target_module_name=$mod_name 
$generator_cmd .= " — system_directory=$$arg{system_directory) 
$generator_cmd .= " — sopc„directory=$$arg{sopc_di rectory} 

$generator„cmd .= " --sopc_lib_path=$$arg{ sopc_lib_path} 

$generator_cmd .= " — generate=l 

$generator_cmd .= " --verbose=$$arg {verbose} 

open (ABRAHAM_LINCOLN_STEALTH, ""); 
close ABRAHAM__IiINCOLN_STEALTH; 

my $error_code = &System_Win98_Saf e ($generator_cmd) ; 
open (ABRAHAM_LINCOLN_NO_STEAIiTH, ""); 
close ABRAHAM_LINCOLN_NO_STEALTH; 
$error_code == 0 or die " 

Error; Generator program ' $generator_program' 

for module $mod_name did NOT run successf ully . \n" ; 

} 

} 

return @module_name_list ; 

} 

###############################################################* 

# Get_Synthesis_File_List 

# Gets an array of files to be synthesized and massages them tor 

# Max+Plus2 if required. 

# ^ ^. 

# If Max+2 is p+r tool, we convert MIF files and other files 

# to max+2 friendly files. 

################################################################ 

s\ib Get_Synthesis_File„Ijist 
{ 

my ( $pSys , 

$db_Sys, 

$pAdditional_Synth_Files , 
@module_name_list , 
) = @_; 

my @synthesis_f ile_list ; 

my @mif_f ile_list ; 

my 0additional_f ile_list ; 

foreach $module_name (@module_name_list) 

{ 

my $db_Module = 

&PTF_Get_Required_Child_By_Path { $db_Sys , 

"MODULE $module_ncLme" , 

"I could have sworn $module_name was in here somewhere 

my $hdl_f ile_data = 

&get_data_by_path ($db_Module, "HDL_INFO/Synthesis_HDL_Files " ) ; 
push (@synthesis_file_list, split {/ \s*\ , \s* /, $hdl_file_data) ) ; 



my $raif„f ile_data = 

&get_data_by_path ($db_Module, "HDL.INFO/MIF.Files " ) ; 
push (@mif_file_list, split ( / \s*\ , \s*/ , $mif_f ile_data) ) ; 

my $additional_f ile_data 

&get_data_by_:path ( $db_Module , 

HDIi_INFO/Other_Files_Subject_To_MPII_Iiength_Iiimit" ) ; 

push (@additional_file_list, split (/\s*\ , \s*/ , $additional_f ile_data) ) ; 

} 

push (@synthesis_f ile_list, @$pAdditional_Synth_Files ) ; 
############### 

# Orion is sticking an option for vhdl translation back here 

# because of the synthesis-f or-one-HDL fiasco. Ideally, Leonardo will 

# be fixed before we ship this. If, however, it isn't, here is our 

# backup plan. 
# 

if (0) #set to 1 if you want vhdl translation on vhdl files 

^ #$pSys->{hdl_language} really should be $pSys-> { leonardo„language} 
if ($pSys->{hdl_language} /'"vhdl/i) 
{ 

@synthesis_f ile_list = 
ScV2VHD_Files( 

" \ " define LiEONARDO_SPECTRUM" , 

n II 

r 

@synthesis_f ile__list 
) ; 

} 

) 

# 

############### 



################ 

# Max+Plus 2 has "issues" with cjuartus problems with large names. 

# It doesn't like names that are bigger than 32 characters. 

# and it likes mif files a certain way. We oblige here. 

if ($pSys-> {compiler} eq "max+plus2") { 

^Progress ("Imposing 32-char name limit for McixPlus+II . " ) ; 

my $length_limit = 32; 

my %Conversion_Hash; # stores names that have been converted 

my %Converted_Filenames; # stores filenames that have been converted 

my $sys_name = $pSys-> { system_name} ; # too handy to pass up. 

$Conversion„Hash{$sys_name} = $sys_name; #keeps $sys_name the same 
$pSys->{core_name} = &Crush_Line { $pSys-> {core_name} , 

$ length_l imi t , 
\%Conversion_Hash) ; 

@synthesis_f ile_list = 

&Crush_Names_That_Are_Bigger_Than_Max_Width_Characters 

( 

\%Converted_Filenames , 
\%Conversion_Hash, 
$length_limit , 
@synthesis„f ile_list 



my @wrapper_f iles = ( $pSys->{wrapper_f ile} ) ; 
push (@wrapper_f iles, $pSys->{inc_f ile} ) 
unless $$pSys{inc_f ile} eq 

@wrapper_f iles = 

&Crush_Naines_That_Axe_Bigger_Than_Max_Width_Characters 

( 

\%Converted_Filenaines , 

\%Conversion_Hash, 

$length_limit, 

@wr apper_f lies 

) ; 

&Make__MI F_F ile s_Max_F r i endly ( 

\%Converted_Filenaines , 
\%Conversion„Hash, 
$length_liinit , 
@mif_f ile_list 
) ; 

} 

return (@synthesis_f ile^list ) ; 

# Create_Siia_Project 
# 

# Builds a simulation-project (targeted at ModelSim) which will 

# contain a simulatable version of the system-module. 

sub Create_Sim_Project 
{ 

my ($arg, @hdl_f ile_.list ) = (@_) ; 

&:Debug (0, "Creating simulation project directo3ry for $$arg{system_] 

# we want to include absolute-path-name HDL files exactly 

# as they appear, but relative path names have to 

# be re-referenced to "relative one -level -up . " 
# 

my @include„list = (); 

foreach $include„f ile (@hdl_f ile_list) { 
$include_file =~ trl\\l\/|; 

$include_file =~ s | ^\ . \/ | \ . \ . \/ 1 ; 
my $is_absolute = $include_f ile =- /\:/ || 

$include_file =^ /-\./ jj 
$include_file =- /^\// ; 

$include_f ile = " . . /$include„f ile" if ! $is_absolute; 
$include_f ile =- s/ .v$/ .V. txt/ if $$arg{do_optimize} ; 

push (@include_list , $include„f ile) ; 

} 

################ 

# Emit the test-bench file: 

# 

my $test_bench_name = " $$arg{system_name}_test_bench" ; 

my $test_bench_file = " $$arg{system_sim_dir } /$test_bench_name . v" ; 

ScDebug (0, " Test bench file is: $test_bench_f ile" ) ; 



open (TESTOUT, "> $test_bench_f ile" ) or die "Couldn't open $test_bench 
my $old_out = select (TESTOUT) ; 

print " 

'timescale Ins / lOOps 
^include \ "mode Is im_de fine .v\ " 

n . 

foreach $include_f ile (@include_list ) { 
print "\n^ include \ " $include_f ile\ " " ; 

} 

print " 

'include \ " test_equipment . v\ " 

module $test_bench_name ; 
wire elk; 
wire reset_n; 

Clk_Gen Clk_Gen_33MHz (.elk (elk) ) ; 
Reset^Gen Reset_Gen_33MHz { .reset_n (reset_n) ) ; 

&Declare_Wires_For_Connection_To ( " $$arg{system_name}_core" , 

"elk", "reset_n"); 
&Instantiate_And_Connect ( " $$arg{system_name}_core" , " . " ) ; 

print "\n endmodule \n" ; 

close (TESTOUT) ; 
select ($old_out); 

################ I WAS HERE ################ 

# Put code to copy test equipment, modelsim.v, and mpf-file 

# also, I must modify mk_rom.pl to re-convert its MIF-file, 

# and the RAM verilog to have a behavioral model built-in. 
# 

} 

################################################################ 

# Create_HDIi_File_I.ist_File 

# The user might want to synthesize all the files in the system-module 

# himself. If so, it would be very useful to have a -list- of all 

# the HDL-files in the project. This fiinetion here creates a list 

# of all the HDL-files in the project. VJhat a happy circximstance . 

sub Create_HDIi_File_Iiist_File 

my ($system_dir, $sys_name, @synthesis_f ile_list ) = (@_) ; 



my $hdl_list_f ile_name = $sys_name . 

"_list_of_hdl_f iles_f or_synthesis . txt " ; 

my $full_hdl_list_f ile_jpath = " $system_dir/ $hdl_list_f ile_name" ; 

my $hdl_list_f ile_header =«EOM; 
################################################## 
# 

# $hdl_list_f ile_name 
# 

# Automatically-created by Altera Exealibur Nios(TM) MegaWizard 
# 



# This file conta:^^^a list of all HDL files necessary 

# synthesize the Nios system module named: 
# 

# $ sy s_name 
5 # 

# HDL-file list follows: 

# 

EOM 

10 open (HDL_LIST, "> $f ull_hdl_list_f ile_path" ) or die " 

ERROR: Couldn't open $full_hdl_list_f ile_^ath : $!"; 

print HDL_LIST $hdl_lis t_f ile_header ; 

15 foreach $file (@synthesis_f ile_list ) 

{ print HDL_LIST "# $f ile\n" ; } 

close (HDL_LIST) ; 

20 print STDERR " 

A list of HDIj files necessary to synthesize 
the module $sys_name has been written to 
this file: 

25 $hdl_list„f ile_name\n\n" ; 

Q ^ 

5 ################################################################ 

^ # System_Win98_Safe 

£0 30 # 

Q # Win-98-safe "wrapper" for Perl's built-in 'system' command. 

H= # 

ri # Windows-98 can't handle an executable-name ($ARGV[0] ) which 

S # has forward slashes in it. WinlSTT and Win2000 can handle 

35 # either forward- or backward-s lashes . So, if we notice that 
L, # the operating system is Windows (or Cygwin) , then we convert 

y # forward-slashes to backslashes in -only- the program-name 

# part of the system-command. We leave all the arguments 

# alone — whether ' / ' or ' \ ' is OK in an arugment is entirely 
fU 40 # up to the program. 

H ################################################################ 

sub System_Win98_Safe 
{ 

45 my (@command_parts) = (@_) ; 

my $sys_cmd = join (" @command_parts) ; 



50 



55 



$sys_cmd =^ /'^Vs* ( \S+) \s+ ( . * ) $/ or die 

" System_Win9 8_Saf e : Suspicious system- command: $sys„cmd" 

my $progreun_path = $1; 
my $argiiments = $2; 

$program_jpath sl/|\\lg if {$"0 =- / (MSWin | cygwin) /i) ; 

my $new_sys_cmd = " $program_jpath $arguments"; 
system ( $new_sys_cmd) ; 



my $error_code = ($? » 8) 
60 return $error_code; 



################################################################ 



# Execution begins TTere 
###^############################################################ 

&:Mk_SystemBus (@ARGV) ; 



Nios-Convert .pi 



# ! /bin/sh 

exec perl - "$@" «\ENDOFPERIi 
5 #!perl 

# We now use "nios-convert " in the HDK. 

# in the HDK, we can't rely on any standard Perl libraries. 

# ... alas, not even "Strict": 
10 #use Strict; 



# 

# nios-convert 



15 # 

# ceil(x) 
# 

# standard math ceil 
# 

20 sub ceil 
{ 

$x = shift; 

return int($x) if {$x == int($x)); 
25 return int($x + 1); 

} 



# 

# addTo(stringRef , list) 

30 

Q sub addTo 

{ 

Q my $stringRef - shift; 

gi 

_ 35 my $i; 

y for{$i = 0; $i <= $#_; $i++) 

{ 

$$stringRef .= $„[$i] ; 

m 40 } 

□ $$stringRef .= "\n"; 

} 



# 

45 # dprint (list . . . ) 
# 

# print only if gDebug 



50 



my $ gDebug = 0 ; 

sub dprint 
{ 



my $i; 

55 return if ($gDebug == 0); 

for($i = 0; $i < 30; $i++) 
{ 

print shift; 

60 } 

print " \n" ; 
} 



# 

# dateTime ( ) 
# 

# returns a relatively nice date & time string 
5 # 

sub dateTime 
{ 

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdet) 

local time (time) ; 
10 $mon-^+; 

$year += 1900; 

my $d = sprintf ("%04d.%02d.%02d" ,$year,$mon,$mday) ; 
my $t = sprintf ("%02d:%02d:%02d",$hour,$min,$sec) ; 



15 



return "$d $t"; 
} 



# 

# readFile (f ileName) 
# 

# returns the complete file contents 
# 

sub readFile 
{ 

my $f ileName = shift; 
my $bunch; 
my $ result; 
my $did; 

if (open {FXIiE, $f ileName) ) 
{ 

binmode FILE; # Bite me, Windows! --dvb 

while ( read ( FILE , $bunch ,32000)) 
{ 

$result .= $bunch; 
} 

close FILE; 
} 

return $result; 
} 

45 

# 

# writeFile (f ileName, contents) 
# 

# creates new file and writes entire 
50 # file contents. Return "ok" if so, 

# or " " if not . 
# 

sub writeFile 
{ 

55 my $f ileName = shift; 

my $contents = shift; 
my $did; 

# 

60 # Delete existing file, if any. 

# 

unlink ($fileName) if(-e $f ileName) ; 



$did = open (FILE, ">$fileName" ) ; 
if ($did) 

binmode FILE; # Bite me, Windows 1 --dvb 

5 print FILE $contents; 

close FILE; 
return "ok" ; 
} 

10 return " " ; 

} 



15 # 

# srec2hash(giantFileString) 

# 

# Given a giant string containing 

# one entire srec file, return an 
20 # associative array where each entry 

# has a byte-address key, and its 

# contents . 
# 

# This will of course be moderately. 
25 # gigantic, but who's counting? 

# 

# We just presume that RAM is cheap 

# and plentiful and works, too. 
# 

30 sub srec2hash 

^ my $srecString = shift; 

y %hash; 

01 

s 35 my $srecord; 

g niy $recordType; 

g=l my $recordLength; 

r. my $recordChecksum; 

my $recordAddress; 
Lii 40 my $recordData; 

my $addressStringLength; 



foreach $srecord (split (" \n" , $srecString) ) 
{ 

45 $srecord =- s/\r//g; # kill "M's 

dprint "record $srecord" ; 

if ($srecord /'^S( [123] )(..)(.*)(..) $/) # an S record we 

can use 

{ 

50 $recordType = $1; 

$ r ecordLength = hex ( $ 2 ) - 1 ; 
$a = $3; 

$recordChecks\im = $4; 

55 $recordLength -= $recordType + 2; 

$addressStringLength = ($recordType +1) * 2; 
$recordAddress = hex ( substr ( $a, 0 , $addressStringLength) ) ; 
SrecordData = substr ( $a, $addressStringLength) ; 

60 while (length ($recordData) ) 

{ 

$hash{$recordAddress} = hex ( substr ( $recordData, 0 , 2 ) ) ; 
$recordData = substr ( $recordData, 2 ) ; 



$recordAddress++ ; 
} 

} 

} 

5 dprint "srec hash keys"; 

f oreach $i (sort (keys (%hash) ) ) 
{ 

dprint " $ i : $hash { $ i } " ; 
} 

.0 

return %hash; 
} 



15 



sub mif RadixFromText 
{ 

my $mif Radix = shift; 



20 return 10 if ( $mif Radix eq "UNS" 

or $mif Radix eq "DEC") 

return 16; 
} 

25 sub mifValueByRadix 

^ { 

■^Q my $mifData - shift; 

rn my $mif Radix = shift; 

~ 30 return hex ( $mif Data) if ($mifRadix 

H return 1.0 * $mifData; 

^ } 

U 

m # 

l_ 35 # mif2hash(giantFileString) 

0 # 

01 # Given a giant string containing 

# one entire mif file, return an 

f%i # associative array where each entry 

40 # has a byte-address key, and its 
r^' # contents . 

^ # 

# This will of course be moderately 

# gigantic, but who's counting? 
45 # 

# We just presume that RAM is cheap 

# and plentiful and works, too. 
# 

sub mif2hash 

50 { 

my $srecString = shift; 
my %hash; 

my $mif record; 
55 my $mif Width; 

my $mif Address Radix; 

my $mifDataRadix; 

my $mifBytesPerData; 

my $mifData; 
60 my $mif Address; 

my $i; 



$mif Width ^ 8; 



foreach $mifrecord ( split {" \n" , $srecString) ) 
{ 

$mif record s/\r//g; # kill '^M's 
5 dprint "mif record $mif record" ; 

# Recognize 4 kinds of lines: 

# WIDTH=x; 

# ADDRESS_RADIX=HEX/DEC/UNS; 
10 # DATA_RADIX=HEX/DEC/UNS; 

# addr :data; 

# Ignore anything else. We don't even care about the "DEPTH". 
# 

$mifrecord s/[\t ] //g; # kill white space 
15 if {$mifrecord /'^ (.*) \= (.*);$/ ) 

{ 

dprint "mif -- $1 = $2"; 

if($l eq "WIDTH") 
{ 

20 $mif width = $2; 

$mifBytesPerData = int { $mif Width / 8); 
dprint "mif — mif BytesPerData = $mifBytesPerData" ; 

} 

elsif($l eq "ADDRESS_RADIX" ) 

25 i 

$mifAddressRadix = mif RadixFromText { $2 ) ; 

dprint "mif — address radix = $mif AddressRadix" ; 

} 

==y elsif{$l eq " DATA_RADIX " ) 

03 30 C 

□ SmifDataRadix = mif RadixFromText ( $2 ) ; 

dprint "mif — data radix = $mif DataRadix" ; 

b ^ > 

35 elsif{$mif record /'^ {,*):{.*);$/ ) 

y dprint "mif -- $1 : $2"; 

yl $mifAddress = mi f Va lueByRadix ( $1 , $mif AddressRadix) 

$mif BytesPerData; 

rij 40 $mifData = mif ValueByRadix ($2 , $mif DataRadix) ; 

dprint "mif -- $mif Address $mif Data" ; 

for($i =0; $i < $mif BytesPerData; $i++) 
{ 

45 dprint "mif — " , $i + $mif Address ,":", $mifData&Oxff ; 

$hash{$mif Address + $i} = $mifData & Oxff ; 

$mifData »= 8; 

} 

} 

50 } 

dprint "mif hash keys"; 
foreach $i (sort (keys (%hash) ) ) 
{ 

dprint" $i : $hash{$i} " ; 
55 } 

return %hash; 
} 

60 



5 



fn 



10 

# 

# hash2dat (hashRef, width, lanes, lane, info) 
# 

15 # Returns giant string ready to be written to a file, 
# 

sub hash2dat 
{ 

itiy SbytesRef = shift; 
20 my Swidth = shift; 

my $lanes = shift; 
my $lane = shift; 
my $info ~ shift; 

25 my $addressLow; 

my $addressHigh; 
my ©addresses; 



my $ address; 
y 30 my $addressRange; 

y? my $ address Step; 

my $bytesPerData; 
O my $dataFormat; 

gl my $ depth; 

35 my $result = " " ; 



pi 



my $i; 
my $v; 
my $line; 
rU 40 my $bytesPerIjine; 

p my $bytesThisIiine; 

©addresses = sort ({ $a <=> $b } keys (%$bytesRef ) ); 
$addressIjOw = $addresses [ 0] ; 
45 $addressHigh = $addresses [$#addresses] + 1; 

$addressRange = $addressHigh - SaddressLow; 

$bytesPerData = ceil($width / 8); 

50 $addressStep = $lanes * $bytesPerData; 

$dataFormat = "%0" . $bytesPerData * 2 . "X" ; 

$depth = log (ceil {$addressRange / $addressStep) ) / log(2); 
$depth = ceil ($depth) ; 
55 $depth = 1 « $depth; 

# 

# Print the MIF file header 
# 



60 



addTo \$result, sprintf ( " \@%08X" , $addressLow / $addressStep) ; 



$line = 



1^^^ - 



$bytesThisLine = 0; 
$bytesPerLine = 16; 

for($address = $addressLow + $lane * $bytesPerData 
$addressHigh ; $address += $addressStep) 
{ 

$v = 0; 

for($i =0; $i < $bytesPerData ; $i++) 
{ 

$v += $$bytesRef {$address + $i} « ($i * 8) ; 
} 

$line .= sprintf ($dataFormat, $v) . " "; 
$bytesThisIjine += $bytesPerData; 
if ($bytesThisIjine >= $bytesPerLine) 
{ 

addTo \$ result, $line; 
$line = 

$bytesThisLine = 0; 
} 

} 

addTo \$result, $line if $line ne 

# Is this needed? the old converter tacked on an extra 00, 
addTo \$result, "00" x $bytesPerData; 

return $result; 
} 



# 

# hash2mif (hashRef , width, lanes , comments , lane, info) 
# 

# Returns giant string ready to be written to a file . 
# 

sub hash2mif 
{ 

my $bytesRef = shift; 
my $ width = shift; 
my $ lanes = shift; 
my $comments = shift; 
my $lane = shift; 
my $info = shift; 

my $ addr e s sLow ; 
my $addressHigh; 
my ©addresses; 

my $ address; 

my $addressRange ; 

my $ addr es s S t ep ; 

my $bytesPerData; 

my $dataFormat; 

my $ depth; 

my $ result = " " ; 

my $mif Address; 
my $i; 
my $v; 

©addresses = sort ( {$a <=> $b} keys ( %$bytesRef ) ) ; 
$addressLow = $addresses [ 0] ; 

$addressHigh = $addresses [$#addresses] + 1; 
$addressRange = $addressHigh - $addressLow; 



$bytesPerData = ceil{$width / 8) ; 



$addressStep = $lanes * $bytesPerData; 
$dataFonnat = "%0" . $bytesPerData * 2 . "X" ; 

$depth = log {ceil ($addressRange / $addressStep) ) / log(2); 
$depth = ceil ($depth) ; 
$depth = 1 « $depth; 

# 

# Print the MIF file header 
# 

addTo \$result; 

if {$comments) # MAX hates mif comments, so say — coinments=0 

you ' re MAX . 

{ 

addTo \$result, "/* This file generated by nios-convert */"; 

addTo \$result, "/* $info */"; 

addTo \$result, "/* " , dateTimeO , " */"; 

addTo \$result, "/* " . sprintf { " 0x%08 

Ox%08x" , $addressLow, $addressHigh) , " * / " ; 
} 

addTo \ $ result; 

addTo \$result, "WIDTH=", $width, 
addTo \$result, "DEPTH=", $depth, 
addTo \ $ result; 

addTo \$result, "ADDRESS_RADIX=HEX; " ; 
addTo \ $resul t , " DATA_RADIX=HEX ; " ; 
addTo \$result; 

addTo \$result, "CONTENT BEGIN"; 
addTo \$ result; 

$mif Address = 0; 

for($address = $addressLow + $lane * $bytesPerData ; $address 
$addressHigh ; $address += $addressStep) 
{ 

$v = 0; 

for{$i =0; $i < $bytesPerData; $i++) 
{ 

$v += $$bytesRef {$address + $i} « ($i * 8); 

addTo \$result, sprintf ( " %08X : $dataFormat ; " , $mif Address+ + , $v) ; 
} 

addTo \ $result ; 

addTo \$result, "END; " ; 

addTo \$result; 

addTo \$result, "/* End of file */"; 

return $result; 
} 



# 

# parseArgs 
# 

# Given a list of arguments, return 

# a hash where the keys and values 

# are taken from those arguments of 

# the form " — key=value" . The hyphens 

# disappear from the key name. 



# 

# A command line switch of " — key" 

# is equivalent to "--key=l". 
# 

# a special key named _argc contains 

# a count of non- dash -dash argvmients, 

# and they are in the hash as { 0 } , { 1 } , 

# and so on. 

sub parseArgs 
{ 

my $arg; 
my $argVal; 
my $argc; 
my %hash; 

$argc = 0; 



while ($arg = shift) 
{ 

dprint "parseArgs : $arg" ; 

usage if $arg eq " — help" ; 

if ($arg /^ — /) 
{ 

if($arg Z'^— (.*) \= (.*)$/ ) 
{ 

$arg = $1; 
$argVal = $2; 
} 

else 

{ 

$argVal =1; 
} 

$hash{$arg} = $argVal; 
} 

else 

{ 

$hash{$argc++} = $arg; 
} 

} 

$hash{_argc} = $argc; 

return %hash ; 
} 

# 

# getSwitch(hashRef , switchName, defaultValue [/ mustBeNumber] ) 
# 

# Look at a hash as returned by parseArgs, and 

# give the value of the switch, or the defaultValue 

# if it was not specified in the command line. 

sub getSwitch 
{ 

my $hashRef = shift; 
my $ switchName = shift; 
my $def aultValue = shift; 
my $mustBeNumber = shift; 



my Sswitch^Rue; 



$switchValue = $$hashRef {$switchName} ; 

$switchValue = $def aultValue if ( $switchValue eq ""); 
$switchValue *= 1 if { $mustBeN\imber) ; 

return $ swi tchValue ; 
} 



10 # 

# main 

sub main 
{ 

15 my %switches; 

my $ lanes; 
my $width; 
my $sourceFileName; 
my $sourceFileNameBase; 
20 my $sourceFormat ; 

my $destFileName; 
my $destFileBase; 
my $destFormat; 

25 my $sourceFile; # complete contents 

my @destFile; # complete contents, indexed by lane 

my $ lane ; 

%switches = parseArgs (@_) ; 

30 

$lanes = getSwitch ( \%switches lanes 1) ; 
$width = getSwitch(\%switches, "width" ,16) ; 
p $comments = getSwitch ( \%switches , "comments 1) ; 

^ 35 

™ # Source name & format 

lV # 

rU 40 $sourceFileName = $switches { 0 } ; 

O usage () if $sourceFileName eq 

if ($sourceFileName / ^ (.*) \ .([ ^ .]*)$/ ) 
{ 

45 $sourceFileNameBase = $1; 

$sourceFormat = $2; 
} 

# 

50 # Dest name & format 

# 

$destFormat = "mif " ; 
if ($switches{l} ) 
55 { 

dprint "switchl = $switches (1} " ; 

$destFileName = $switches { 1 } ; 
if ($destFileName /"(.*) \ .([".]*)$/ ) 
{ 

60 $destFileNameBase = $1; 

$destFormat = $2; 
} 

} 



St Font 



10 



$destFormat = getSwitch ( \%switches , " of ormat " , $destFormat) ; 
$destFileNameBase = $ {sourceFileNameBase} if ( $destFileName eq ""); 
$destFileName = " $ {destFileNameBase} . $ {destFormat } " ; 

dprint "destFonriat = " , $destFormat ; 
dprint "destFileNameBase = " , $destFileNameBase; 
dprint "destFileName = " , $destFileName ; 
dprint " sourceFileName = " , $sourceFileNaine ; 

$sourceFile = readFile ($ sourceFileName ) ; 

die "Bad file $ sourceFileName" if $sourceFile eq ""; 



^=1 



if ($ sourceFileName =- /.mif$/) 

%bytes = mif 2hash($sourceFile) ; 
} 

else 

{ 

20 %bytes = srec2hash{$sourceFile) ; 

} 

$sourceFile = # done with source data, thankyou 

25 # 

# Generate each lane of the result file, 

# switching by destFormat 
# 



W 30 for ($ lane = 0; $lane < $ lanes; $lane++) 

1:^ if ($destFormat eq "mif") 

b ^ 

$destFile [$lane] 
35 hash2mif (\%bytes, $width, $lanes , $comments , $lane, 
1_ "source file: $ sourceFileName, lane $lane 

^ $lanes"); 

M= elsif ($destFormat eq "dat") 

nj 40 { 

n $destFile[$lane] = hash2 dat ( \%bytes , $width, $ lanes ,$ lane , 

"source file: $ sourceFileName, lane $lane 

$ lanes" ) ; 

} 

45 # 

# If we supported something besides mif, we'd add it here . . - 

# elsif. . . 
} 

50 for ($ lane = 0; $lane < $ lanes; $lane++) 

{ 

if($lanes > 1) 

$destFileName = $destFileNameBase . "_lane_" . $lane . 

55 $destFormat; 

} 

writeFile($destFileName, $destFile [ $lane] ) ; 
} 

} 

60 



# 

sub usage 



( 

print «EOP; 

nios-convert [options] sourceFile [destFile] 

5 

sourceFile can be . srec or .mif 
destFile will get same name as sourceFile if omitted 

lanes=x : break up into multiple output files, with _lane_0 . 

10 „lane_(x-l) appended 

— width=x : set output width to 8 , 16, or 32 
--oformat=f : format can be mif or dat 

— comments=b : comments in mif file enabled (1) or disabled (0) 
Default is enabled 



15 



25 



ffl 



"nios-convert" 



nios-convert is a tool to convert files between several 
formats. The formats supported are S-record, mif, and dat. 
20 These are three formats used in Nios hardware and software 
development. S-records are used to download code to the 
Germs monitor, mif files are used to specify the contents 
of Nios ROM and RAM devices, dat files are used as data for 
Modelsim to simulate a Nios hardware design. 

It is sometimes necessary to break up a file into individual 
"lanes"; if the — lanes option is used for more than 1 lane, 
then the result files will have the names "lane_0", "lane_l". 
&c, appended to them. 



^ 30 

Q 

H EOP 

C-j 

m 

35 exit { 0 ) ; 

f=l } 
ft] 

main((aARGV) ; 
ry 40 # end of file 



Nios -Convert .pi 



#! /bin/sh 

exec perl - "$@" «\ENDOFPERIi 
5 #!perl 

# We now use " nios -convert " in the HDK. 

# in the HDK, we can't rely on any standard Perl libraries 

# ... alas, not even "Strict": 
10 #use Strict; 



# 

# nios-convert 



15 # 

# ceil(x) 
# 

# standard math ceil 
# 

20 sub ceil 
{ 

$x = shift; 

return int($x) if ($x == int($x)); 
25 return int($x +1); 

o > 

ffi # 

^ # addTo (stringRef , list) 

S 30 

sub addTo 

O my $stringRef = shift; 

W 

B 35 my $i; 



for($i = 0; $i <= $#_; $i++) 

l! $$stringRef .= $_[$i] ; 

2 40 } 

U $$stringRef .= "\n"; 

} 



# 

45 # dprint (list . . . ) 
# 

# print only if gDebug 



50 



my $gDebug = 0; 

sub dprint 
{ 



my $i; 

55 return if ($gDebug == 0); 

for($i = 0; $i < 30; $i++) 
{ 

print shift ; 

60 } 

print "\n"; 

} 



# 

# dateTime ( ) 
# 

# returns a relatively nice date & time string 
# 

sub dateTime 
{ 

my ($sec, $min, $hour, $mday, $mon, $year , $wday, $yday, $isdet 

localtime { time) ; 
$mon++ ; 

$year += 1900; 

my $d = sprintf ( "%04d.%02d.%02d" , $year, $mon, $mday) ; 
my $t = sprintf ( "%02d:%02d:%02d" , $hour, $min, $sec) ; 

return " $d $t" ; 
} 



# 

# readFile (f ileName) 
# 

# returns the complete file contents 
# 

sub readFile 
{ 

my $f ileName = shift; 
my $bunch; 
my $ result; 
my $did; 

if (open (FILE, $f ileName) ) 
{ 

binmode FILE; # Bite me, Windows! — dvb 

while (read (FILE, $bunch, 32000) ) 
{ 

$result .= $bunch; 
} 

close FILE; 
} 

return $result; 
} 



# 

# writeFile (f ileName, contents) 
# 

# creates new file and writes entire 

# file contents. Return "ok" if so, 

# or " " if not . 
# 

sub writeFile 
{ 

my $f ileName = shift; 
my $contents = shift; 
my $did; 

# 

# Delete existing file, if any. 

"# 

unlink ($f ileName) if(-e $f ileNcime) ; 



$did = open(^^^, ">$fileName") ; 
if ($did) 

biniuode FILE; # Bite me, Windows I — dvb 

print FILE $contents; 

close FILE; 

return "ok" ; 

} 



10 return " " ; 

} 



15 # 

# srec2hash(giantFileString) 

# 

# Given a giant string containing 

# one entire srec file, return an 

20 # associative array where each entry 

# has a byte-address key, and its 

# contents . 
# 

# This will of course be moderately 
25 # gigantic, but who's counting? 

# 

# We just presume that RAM is cheap 

# and plentiful and works, too. 
# 

30 sub srec2hash 
{ 

my $srecString = shift; 
my %hash; 

35 my $srecord; 

my $recordType; 

my $recordLength; 

my $recordChecksum; 

my $recordAddress; 
40 my $recordData; 

my $addressStringLength; 

foreach $srecord ( split (" \n" , $srecString) ) 
{ 

45 $srecord s/\r//g; # kill '^M's 

dprint "record $srecord" ; ^ 

if{$srecord /-S([123]) (..)(.*) (..)$/) # S record we 

can use 

{ 

50 $recordType = $1; 

$recordLength = hex($2)-l; 
$a = $3; 

$recordChecksum = $4; 

55 $recordLength -= $recordType + 2; 

$addressStringLength = ($recordType +1) * 2; 
$recordAddress = hex ( subs tr ( $a, 0 , $addressStringLength) ) ; 
$recordData = substr ( $a, $addressStringLength) ; 

60 while { length ( $recordData) ) 

$hash{$recordAddress} = hex ( substr ( $recordData, 0 , 2 )) ; 
$recordData = substr ( $recordData, 2 ) ; 



$recorclAddress++ ; 
} 

} 

} 

5 dprint " srec hash keys " ; 

foreach $i (sort (keys (%hash) ) ) 
{ 

dprint" $i:$hash{$i} " ; 
} 

.0 

return %hash; 
} 



15 



sub mifRadixFromText 
{ 

my $inif Radix = shift; 



5== 



20 return 10 if ( $inif Radix eq "UNS" 

or $mif Radix eq "DEC") 

return 16; 
} 

25 sub mifValueByRadix 
{ 

my $mifData = shift ; 
my $mif Radix = shift; 



2 30 return hex ( $mif Data) if ($mif Radix 

W return 1.0 * $mifData; 

h ^ 

m # 

H 35 # mif2hash(giantFileString) 

o * 

r?^ # Given a giant string containing 

# one entire mif file, return an 

^ # associative array where each entry 

40 # has a byte-address key, and its 
S # contents . 

# 

# This will of course be moderately 

# gigantic, but who's counting? 
45 # 

# We just presume that RAM is cheap 

# and plentiful and works, too. 
# 

sub mif2hash 

50 { 

my $srecString = shift; 
my %hash; 

my $mifrecord; 
55 rtiy $mif Width; 

my $mif AddressRadix; 

my $mif DataRadix; 

my $mifBytesPerData; 

my $mifData; 
60 my $mif Address; 

my $i; 



$mifWidth = 8; 



foreach $mif record ( split {" \n" , $srecString) ) 
{ 

$mifrecord s/\r//g; # kill '^M's 
5 dprint "mif record $mif record" ; 

# Recognize 4 kinds of lines: 

# WIDTH=x; 

# ADDRESS_RADIX=HEX/DEC/UNS ; 
10 # DATA_RADIX=HEX/DEC/UNS; 

# addr:data; 

# Ignore anything else. We don't even care about the "DEPTH". 

$mifrecord =~ s/[\t ]//g; # kill white space 
15 if ($mif record /'^ (.*) \= {.*);$/ ) 

{ 

dprint "mif $1 = $2"; 

if{$l eq "WIDTH") 
{ 

20 $mif Width = $2; 

$mifBytesPerData = int ( $mif Width / 8) ; 
dprint "mif — mif BytesPerData = $mif BytesPerData" ; 

} 

elsif($l eq "ADDRESS_RADIX" ) 

25 t 

$mifAddressRadix = mif RadixFromText ( $2 ) ; 

dprint "mif — address radix = $mif AddressRadix" ; 

} 

elsif($l eq "DATA_RADIX" ) 

30 ^ 

$mifDataRadix = mif RadixFromText ( $2 ) ; 

dprint "mif — data radix = $mif DataRadix" ; 

} 

} 

35 elsif($mif record /"(.*):(.*);$/) 

{ 

dprint "mif — $1 : $2"; >. . ^ ^ \ 

$mif Address = mifValueByRadix ( $1 , $mif AddressRadix) 

$mif BytesPerData; ^ x 

40 $mifData = mifValueByRadix ( $2 , $mif DataRadix) ; 

dprint "mif — $mif Address $mifData" ; 

for($i =0; $i < $mif BytesPerData; $i++) 

{ 

45 dprint "mif — " , $i + $mif Address ,":", $mifData&Oxff ; 

$hash{$mif Address + $i} = $mifData & Oxff; 

$mifData »= 8; 

} 

} 

50 } 

dprint "mif hash keys"; 
foreach $i (sort (keys (%hash) ) ) 
{ 

dprint"$i:$hash{$i}" ; 
55 } 

return %hash; 
} 

60 



5 



10 



# hash2dat (hashRef , width, lanes , lane, info) 
# 

15 # Returns giant string ready to be written to a ti 
# 

sub hash2dat 
{ 

my $bytesRef = shift; 
20 my $width = shift; 

my $ lanes = shift; 
my $lane = shift; 
my $info = shift; 



25 my SaddressLow; 

□ my $addressHigh; 

my ©addresses; 

03 

^ my $address; 

^ 30 my $addressRange; 

Hf my $addressStep; 

^ my $bytesPerData; 

O my $dataFormat; 

ffi my $depth; 

3 35 my $result = ""; 

D 

g=i my $i; 

rV my $v; 

^ my $line; 

is 40 my $bytesPerLine; 

my $bytesThisIjine; 

©addresses = sort ({ $a <=> $b } keys (%$bytesRef ) ); 
$addressIiOW = $addresses [ 0] ; 
45 $addressHigh = $addresses [$#addresses] + 1; 

$addressRange = $addressHigh - $addressLow; 

SbytesPerData = ceil($width / 8); 

50 $addressStep = $lanes * $bytesPerData; 

$dataFormat = "%0" . $bytesPerData * 2 . "X"; 

$depth = log (ceil ($addressRange / $ address Step ) ) / log{2); 
$depth = ceil ($depth) ; 
55 $depth = 1 « $depth; 



60 



# 

# Print the MIF file header 
# 



addTo \$result, sprintf ( " \@%08X" , $addressLow / $addressStep) ; 



$line = 



n II . 



$bytesThisLine = 0 ; 
$bytesPerLine = 16; 

for($address = $addressLow + $lane * $bytesPerData 
$addressHigh ; $address += $addressStep) 
{ 

$v = 0; 

for($i = 0; $i < $bytesPerData; $i++) 
{ 

$v += $$bytesRef {$address + $i} « ($i * 8) ; 
} 

$line -= sprint f ($dataFontiat, $v) . " " ; 
$bytesThisLine += $bytesPerData; 
if ($bytesThisLine >= $bytesPerLiiie) 
{ 

addTo \$result, $line; 
$line = " " ; 
$bytesThisIiine = 0; 
} 

> 

addTo \$result, $line if $line ne ""; 

# Is this needed? the old converter tacked on an extra 00. 
addTo \$result, "00" x $bytesPerData; 

return $result; 
} 



# 

) # hash2mif (hashRef , width, lanes , comments , lane, info) 
# 

# Returns giant string ready to be written to a file, 
# 

sub hash2mif 
5 { 

my $bytesRef = shift; 
my $width = shift; 
my $lanes = shift; 
my $comments = shift; 
3 my $lane = shift; 

my $info = shift; 

my $addressIiOw; 
my $addressHigh; 
45 my ^addresses; 



my $ address; 
my $addressRange; 
my $ address Step; 
50 my $bytesPerData; 

my $dataFormat; 

my $ depth; 

my $result = " " ; 

55 my $ mi f Address; 

my $i; 
my $v; 



©addresses = sort ( {$a <=> $b} keys (%$bytesRef ) ) ; 
60 $addressLow = $addresses [0] ; 

$addressHigh = $addresses t$#addresses] + 1; 
$addressRange = $addressHigh - $addressL,ow; 



$bytesPerData = 



ceil ($width / 8) ; 



$addressStep = $lanes * $bytesPerData ; 
$dataFonnat = "%0" . $bytesPerData * 2 . "X" 



$depth = log ( ceil ($addressRange / $addressStep) ) / log(2); 
$depth = ceil ($depth) ; 
$depth = 1 « $depth; 

# 

# Print the MIF file header 
# 

addTo \ $ result; 

if {$coinitients) # MAX hates mif comments, so say — comments = 0 if 

you ' re MAX . 

{ 

addTo \$result, "/* This file generated by nios-convert */"; 

addTo \$result, "/* $info */"; 

addTo \$result, V* " , dateTime ( ) , " */"; 

addTo \$result, "/* " , sprintf ( " 0x%08x- 

0x%08x" , $addressLow, $addressHigh) , " */ " ; 
} 

addTo \ $ re suit; 

addTo \$result, "WIDTH=" , $width, ";"; 
addTo \$result, «DEPTH=", $depth, 
addTo \$result; 

addTo \$result, "ADDRESS_RADIX=HEX; " ; 
addTo \ $resul t , " DATA_RADIX=HEX ; " ; 
addTo \$ result; 

addTo \$result, "CONTENT BEGIN"; 
addTo \$ result; 

$mif Address = 0; 

for{$address = $addressLow + $lane * $bytesPerData ; $address < 
$addressHigh ; $address += $addressStep) 
{ 

$v = 0; 

for($i = 0; $i < $bytesPerData; $i++) 
{ 

$v += $$bytesRef {$address + $i} « ($i * 8); 
} 

addTo \$result, sprintf ( " %08X : $dataFormat ; " , $mif Address++ , $v) ; 
} 

addTo \$ re suit; 

addTo \$result, "END;"; 

addTo \$ result; 

addTo \$result, "/* End of file */"; 

return $result; 
} 



# -. 

# parseArgs 
# 

# Given a list of arguments, return 

# a hash where the keys and values 

# are taken from those arguments of 

# the form " — key=value" . The hyphens 

# disappear from the key name . 



# 

# A command line switch of " — key" 

# is equivalent to " — key=l" . 
# 

5 # a special key named _argc contains 

# a count of non-dash-dash argiaments , 

# and they are in the hash as {0}, {1}, 

# and so on. 

10 sub parseArgs 
{ 

my $arg; 
my $argVal; 
my $argc; 
15 my %hash; 

$argc = 0; 



20 while {$arg = shift) 

{ 

dprint "parseArgs: $arg" ; 

usage if $arg eq " — help" ; 

25 if($arg =- Z'^ — /) 

y { 

^ if($arg Z'^— (.*) \= (.*)$/ ) 

fn { 

S 30 $argVal = $2; 



} 



else 



{ 

$argVal = 1 ; 
35 } 



$hash{$arg} = $argVal; 
} 



else 

40 { 



$hash{$argc++} = $arg; 
} 

} 

45 $hash{_argc} = $argc; 

return %hash; 
} 

50 # 

# getSwitch(hashRef , switchName, defaultValue [, mustBeNumber] ) 

# 

# Look at a hash as returned by parseArgs, and 

# give the value of the switch, or the defaultValue 
55 # if it was not specified in the command line. 

sub getSwitch 
{ 

my $hashRef = shift; 
60 my $switchName = shift; 

my $ defaultValue = shift; 
my $mustBeNumber = shift; 



my $switchValue; 



$switchValue = $$hashRef { $switchName} ; 

SswitchValue = $def aultValue if ( $switchValue eq ""); 

$switchValue *= 1 if ( $mustBeNuinber) ; 

return $switchValue ; 
} 



10 # 

# main 

sub main 
{ 

15 my %switches; 

my $ lanes; 

my $ width; 

my $sourceFileName; 

my $sourceFileNameBase; 
20 my $sourceFormat; 

my $destFileName; 

my $destFileBase; 

my $destFormat; 



25 my $sourceFile; # complete contents 

my @destFile; # complete contents, indexed by lane 



!JJ 



35 



my $lane; 

%switches = parseArgs (@_) 



30 

M= $lanes = getSwitch ( \%switches lanes" , 1) ; 

Q $width = getSwitch(\%switches, "width" , 16) ; 

$comments = getSwitch ( \%switches , "comments" , 1) ; 



# 

# Source name & format 
# 



O 40 $sourceFileName = $switches {0} ; 

usage () if $sourceFileName eq ""; 

if ($sourceFileName =- /'^ (.*) \ .( ['^ •]*)$/ ) 
{ 

45 $sourceFileNameBase = $1; 

$sourceFormat = $2; 
} 

# 

50 # Dest name & format 

# 

$destFormat = "mif"; 
if ($switches{l}) 

55 { 

dprint "switchl = $switches {1} " ; 

$destFileName = $switches {1} ; 
if ($destFileName =- /'^ (.*) \ ■( ['^ .]*)$/ ) 
( 

60 $destFileNameBase = $1; 

$destFormat = $2; 
} 

} 



10 



SdestFormat = getSwitch (\%switches, "of ormat " , $destFontiat) ; 
$destFileNameBase = $ (sourceFileNameBase) if ( $destFileName eq ""); 
$destFileName = " $ {destFileNameBase} . $ {destFormat} " ; 

dprint "destFoinnat = " , $destFormat ; 
dprint "destFileNameBase = " , $destFileNameBase; 
dprint "destFileName = " , $destFileName; 
dprint "sourceFileName = " , $sourceFileName ; 

$sourceFile = readFile ($ sourceFileName ) ; 

die "Bad file $ sourceFileName" if $sourceFile eq ""; 



if ( $sourceFileName =- /.mif$/) 

15 ^ 

%bytes = mif 2]iash{$sourceFile) ; 

} 

else 

{ 

20 %bytes = srec2hash($sourceFile) ; 

} 

$sourceFile = # done with source data, thankyou 

Q 25 # 

# Generate each lane of the result file, 

^ # switching by destFormat 

m # 

H 30 for($lane = 0; $lane < $lanes; $lane++) 

^ { 

O if {$destFormat eq "mif") 

= $destFile[$lane] 

n 35 hash2mif {\%bytes,$width,$lanes,$comments,$lane, 

_ jj, xi^^xi^ y "source file: $ sourceFileName , lane $lane of 

1^ $ lanes" ) ; 

elsif ($destFormat eq "dat") 
O 40 { 

$destFile[$lane] = hash2dat ( \%bytes , $width, $ lanes ,$ lane , 

"source file: $sourceFileName , lane $lane of 

$ lanes" ) ; 

} 

45 # 

# If we supported something besides mif, we'd add xt here. 

# elsif. . . 
} 

50 for($lane = 0; $lane < $lanes; $lane++) 

{ 

if{$lanes > 1) 

$destFileName = $destFileNameBase . "__lane_" . $lane . " . " . 

55 $destFormat; 

} 

writeFile ($destFileName, $destFile[$lane] ) ; 
} 

} 

60 



# 

sub usage 



{ 

print «EOP; 

nios-convert [options] sourceFile [destFile] 

sourceFile can be .srec or .mif 
destFile will get same name as sourceFile if omitted 

--lanes=x : brealc up into multiple output files, witli _lane_ 

_lane_(x-l) appended 

width=x : set output width to 8 , 16, or 32 

— oformat=f : format can be mif or dat 

— comments=b : comments in mif file enabled (1) or disabled 
Default is enabled 



"nios-convert" 

nios-convert is a tool to convert files between several 
formats. The formats supported are S-record, mif, and dat. 
These are three formats used in Nios hardware and software 
development. S-records are used to download code to the 
Germs monitor, mif files are used to specify the contents 
of Nios ROM and RAM devices, dat files are used as data for 
Modelsim to simulate a Nios hardware design. 

It is sometimes necessary to break up a file into individual 
"lanes"; if the --lanes option is used for more than 1 lane, 
then the result files will have the names "lane„0", "lane.l", 
&:C, appended to them. 



EOP 



exit (0) ; 
} 



main(@ARGV) ; 



# end of file 



Ptf_Update.pl 



# ! /contrib/bin/perl 

# Just a wrapper to call the "main function" in this here module, 

# so that you can do it from the command-line : 
use wiz_utils; 

&PTF_Translate_Old_Version (@7VRGV) ; 



srec2inif .pi 



# ! /contrib/bin/perl 



10 



# 

# srec2mif 

# usage: srec2mif source-file 

# dvb \ Altera \ 2 000 



my $file = shift; # name of file to read 

my $outFile; 



my $a; 

15 my $recordType; 

my $recordLiength; 

my $recordAddress; 

my $recordData; 

my $recordChecksum; 
20 my $residue; 

my $i; 

$outFile = $file . ".mif"; 
if($file { .*) .srec$/) 

O 25 { 

$outFile = $1 . ".mif 

} 



2 



open (FILE, "<$file" ) or die "could not write to $f ile" ; 
30 open(OXJTFILE, ">$outFile" ) or die "could not write to $outFile" ; 



III 



# changed output file to make it MAX+Plus2 Friendly, 
ji # specif icially c style comments are not handled and 

H # UNS should be DEC. 

O 35 print OUTFILE «EOP; 



01 



WIDTH=16; 
DEPTH=512; 

40 ADDRESS_RADIX=DEC ; 
DATA_RADIX=HEX ; 

CONTENT BEGIN 
EOF 

45 while ($a = <FIIiE>) 

if ($a =~ /'^S([123]) (..)(.*) (..)$/) # an S record 

can use 

{ 

50 $recordType = $1; 

$recordLength = hex($2)-l; 
$a = $3; 

$recordChecksum = $4; 

55 $recordLength -= $recordType + 2; 

my $addressStringLength = ($recordType +1) * 2; 
$recordAddress 
hex(substr ($a, 0, SaddressStringLength) ) ; 

$recordData = substr ( $a, $addressStringLength) ; 



60 



if .($ residue) 
{ 

$recordAddress-- ; 



$recordData = $residue . $recordData; 
} 

$recordLength = length ( $recordData) & -3; 
$i = 0; 

while ($i < $recordLength) 

printf OUTFIIiE " %5d : %s%s ; \n" , $recordAddress/2 , 
substr{$recordData,$i+2,2) , 
substr ($recordData, $i,2) ; 

$recordAddress += 2; 

$i 4; 

} 

$residue = substr ( $recordData, $i) ; 
} 

} 



print OUTFILE «EOP; 

END; 
EOF 



# And end of this file, too! 



srec2siin.pl 



# I /contrib/bin/perl 



10 



15 



20 



25 



$HELP_STRING = «EOT; 

# srec2sim.pl 

# 



(C) dvb 2000 Altera 



# Translates any Nios S-record into Verilog memory- initialization 

# (.dat) files. 
# 

# OVERVIEW 

# Let's suppose you have a program --perhaps even a C-proram-- and you 

# want to simulate a Nios system running that program. 
# 

# As you know, the Nios PBM-wizard generates, among other things, a 

# test bench for the Nios System Module you specify. How handy. But 

# how do you get it to rxin a given program? Wouldn't it be great 
if your simluated Nios System Module were connected to a simulated 
memory device with -your program- already loaded into it? 



30 



35 



40 



45 



50 



55 



Yep, that'd be cool. 



# This utility converts any compiled Nios program {any S-record) 



into four .dat-files. These dat-files are suitable directly for use 
with the provided behavioral memory model "Demo_Ext_Ram__Sim_Model . v" 



That behavior model contains four individual byte -wide memory arrays 
(one array for each byte-lane of a 32-bit-wide memory bank) . At 
simulation-start, each byte-lane is initialized with conents from a 



# 
# 
# 
# 
# 

# file'of a particular, fixed name. The four fixed file names are 
# 
# 
# 
# 
# 
# 



extemal_ram_lane_0 . dat 
external_rcLm_lane_l . dat 
external_ram_lane_2 .dat 
external_ram_lane_3 . dat 



Initializes bits 0..7 of memory. 

Initializes bits 8.. 15 of memory. 

Initializes bits 16., 23 of memory. 

Initializes bits 24.. 31 of memory. 



[-b <mem-base-address>] <srec-f ile-name> 



# This utility emits these four files as output. It takes, as input, an 

# S-record which encodes the program or data you want these files 

# to contain. 
# 

# -- USAGE — 
# 

# perl srec2sim.pl 
# 

# <rEiem-base-address> 
# 
# 
# 
# 
# 
# 

EOT 



Target memory base-address in the simulated system. 
For the Nios demo kit, the external (main) memory 
is mapped at address 0x40000. That would be the 
number you'd enter here. The default value is 
zero (0) , 



60 # 

# Globals accessible to everyone... 

# 

rny ©memory; # byte by byte memory snarf . 



my $memoryLow = 999999999; 
my $memoryHigh = 0 ; 



5 my $file = 

my $mem_base = 0 ; 

while ($arg = shift (@ARGV) ) 

10 ^ $mem_base = eval ( shift {@ARGV) ) , next if $arg =- /'^-bS/i; 

die ($HELP_STRING) if $file; 
$file = $arg; 

} 



15 



die ($HELP_STRING) if !$file; 



# This comment gets stuck-in at the top of all the generated output 

20 # files: 

$OUTPUT_HEADER= «EOT; 
// External memory model initialization file. 
// contents translated from the S-record file: 
// 

25 // $file 
^ // 

^ // These contents were relocated for a memory with 

^ //a chip-select base-address at $mem_base . 

d 30 // This file was created by the utility script "srec2sim.pl." You 
U // can use this script to convert any S-record (compiled program) 

p // into a group of four memory initialization files. 

S // 

// These files are designed for use with the module 
L 35 // 

^ / / Demo_Ext_Ram_Sim_Model 

H= // That module is just a simple behavioral (NOT timing-accurate) model 

ry //of the 32 bits x 64K asynchronous SRAM which comes on the Nios 

D 40 // demo kit board, 

^' //That module gets its initial data from four files. This is one of those 

// files. 

45 // For more information about simulating a Nios core running a compiled 
// progrcim, see the comments atop "srec2sim.pl" 

// 
EOT 



50 # 

# EmitDATFiles 
# 

# This just uses all the globals inherited 

# from main. Why a subroutine? So we can 
55 # add a different one, perhaps, for MIF 

# or other spewers . 



sub EmitDATFiles 
{ 

60 my $lanes = 4; 

my $outFileBase ; 
my $outFile; 
my $address; 



my $lane; 

my $lineCount; 

$outFileBase = $file; 

$outFileBase = $1 if ($file { ,*) ,srec$/) ; 

$outFileBase .= " .dat" ; 

# 

# Emit a file for each lane 
# 

for($lane = 0; $lane < $lanes; $lane++) 
{ 

$outFile = "extenial_ram_lane_$lane" . ".dat"; 
#$outFile = $outFileBase . $lane; 

open (OUTFILE, ">$ out File" ) or die "could not write to $outFile" ; 
print f OUTFILE $OUTPUT_HEADER; 

printf OUTFILE "@%04x\n", int ( ( $memoryIjOw - $mem_base) / $lanes) ; 
$lineCount = 0; 

for($address = $memoryLow + $lane; $address < $memoryHigh; $address 

$lanes) 

{ 

printf OUTFILE "%02x " , $memory [ $address] ; 
$lineCount++; 
if ($lineCount >= 16) 
{ 

print OUTFILE "\n"; 
$lineCount = 0 ; 
} 

printf OUTFILE "\nOO\n"; # why? the example had it. 

close (OUTFILE) ; 
} 

} 



my $a; 

my $recordType; 
my $recordLength; 
my $recordAddress ; 
my $recordData; 
my $recordChecksum; 
my $ residue ; 
my $i; 

# 

# Step 0. Open input file 
# 

open (FILE, "<$file" ) or die "could not read from to $file"; 
# 

# Step 1. Read every S-Record we can understand 



into ©memory, or $memory[], if you prefer. 



# an S record we can use 



while ($a = <FIIiE>) 

{ . 

if($a /'^SCtiaS]) (..)(.*){. .)$/) 
{ 

$recordType - $1; 

$ r ecor dLeng th = hex ( $ 2 ) - 1 ; 

$a = $3; 

$recordChecksum = $4; 
$recordLength -= $recordType + 2; 

my $addressStringLength = {$recordType +1) * 2; 
$recordAddress = hex ( subs tr ( $a, 0 , $addressStringIiength) ) ; 
$recordData = substr ($a, $addressStringLength) ; 

# recordAddress is the where the first byte 

# of recordData goes. recordData is ascii hex pairs, 

# byte by byte 

while ($recordData =- /''{..)(.*)$/) 
{ 

$memory [$recordAddress] = hex($l) ; 
$memoryIjOw = $recordAddress if 



$memoryIjOw; 
$memoryHigh ; 



} 



$memoryHigh 



$recordAddress if 



$recordAddress 
$ recordAddress 



$recordData = $2; 
$recordAddress++ ; 
} 



} 



printf ("Read S-records from %X to %X\n" , $memoryLow, $memoryHigh) ; 
printf {" Relocating to memory at base address %X.\n", $mem_base) 
i f $mem_ba s e ; 



# 



# Step 2. Spew out the memory file in some format. 
# 



EmitDATFiles ( ) ; 



# And end of this file, tool 



vhdl_s imulation.pl 

#Copyright (C) 2000-2001 Altera Corporation 

################################################### 
#main program begins here . 

my $help_string = «END_OF_HELP; 
vhdl_simulat ion . pi 

This program converts nios 1.1 verilog simulation files to vhdl 
simulation files. It has been provided as a service to customers who 
design with vhdl exclusively. It converts verilog simulation files 
generated by the nios 1.1 kit into equivalent vhdl files. This 
program is NOT a general verilog to vhdl converter. 

It is the belief of the Altera Nios group that the hdl world is split 
roughly evenly betweeen vhdl and verilog users. Designers who wish to 
incorporate intellectual property (IP) from external sources into 
their designs will quickly find themselves in need of bilingual HDL 
tools. Such tools exist and we enthusiastically endorse them. We 
have had a good experience with a bilingual simulator license from 
modelsim technology. You can contact them at http://www.model.com/. 

To run this program, you first need to generate nios 1.1 verilog 
suitable for simulation. To do this, you must exit the Nios System 
Builder MegaWizard and hand edit your <system.ptf> file. Under the 
system WXZARD_SCRIPT„ARGUMENTS you should add the line. 

do_bui 1 d„s im = " 1 " ; 

It is important that you put this line in the WIZARD_SCRIPT_ARGUMENTS 
of the system and not WIZARD_SCRIPT„ARGUMENTS for a particular module. 
; Then open up the MegaWizard and re-generate your system. From now on, 
whenever you re-generate your system, an updated simulation directory 
will be created. 

You will also need a perl distribution which you can obtain on the web 
) from active perl. If you don't already have perl 5 . 0 or greater 
running on your computer, you can get it from: 

ht tp : / / www . act ives tate . com/ Product s /Ac tivePerl /Download . html 

45 Then from a command line cd to your nios project/ sim directory and type 

perl vhdl_simulation.pl <nios_system_test_bench . v> 

e.g. to build a vhdl sim model of the 32 bit reference design: 

perl d: /temp/bin/vhdl_simulation.pl ref_32_system_test_bench . v 

The program will then take all the verilog files referred to by 
ref_32_system_test_bench.v and convert them into equivalent vhdl 
55 files. 

END_OF_HELP 

60 if (-e $ARGV[0] ) 
{ 

&Convert_Simulation_Files ($ARGV[0] ) ; 

} 



50 



else 
{ 

print $help_string; 

} 

#######################################################################*******# 

# 

# V2VHD and accompanying functions takes a verilog file and converts it to a 
vhd file. 

J##^##^####4^################################################################### 
# 

# This works with most synthesizable verilog code. 

# Here is what is not supported and known ways to work around it: 

# 0) Verilog numbers must not be more than 32 bits wide 

# 1) No Procedure/Tasks allowed. 

# 2) Asynchronous set/resets must follow elk in always declaration 

# i.e. always @(posedge reset or posedge elk) not supported, 

# always @ (posedge elk or posedge reset) is. 
) #3) Asynchronous set /resets must be first declared i.e. 

# always ©(posedge elk or posedge reset) 

# begin 

# if (reset) 

# //asynchronous stuff here. 

) # else 

# //synchronous statements here 

# endif ^ , 

# 4) Params may not define width, i.e. output [Width - 1: 0] foo not supported 

# 5) Params must be able to convert to types of natural or string 
3 # 6) Parameters must be set using defparam Instance .param=value not #value 

Instance ^ , . x x „^4- 

# 7) Instantiation must connected by Instance (.port (connection)) not 

Instance (connection) 

# 8). No case statements allowed. Use a lot of if statements instead. 
5 #9) verilog and my code is ease sensitive, vhdl isn't. 

#10) don't name a wire/module/ instance a vhdl reserved word. 
#11) Integers are forced to be 32 bits wide 

#12) verilog /f unky_@ ! #naming_convention_with_slash not supported 

#13) timing statements are not supported i.e. a <= #23 b; will be treated as a 

^ #14?'$readmemb, $readmemh and $write are the only special $variables supported 

#15) It's currently possible to name a wire = tmp_logie later on in the module 

or some . n 4_ • 

# other name that get_.exclusive name doesn't know about yet. The solution 

#^ run through first and gather up all known names then do Exclusive name on 
the known name 

J##^#4#######################################*######*#*^^***^***^ 
50 #Ways to make code more readable 

# 1) Put comments back in 

# 2) Find a way to convert boolean to std_logic„vector . 

# 3) Make wire assignments a list with keys = rhs, value = Ihs 

# then when we make a new wire we can look for key rhs before making a new 
55 wire. 

# 4) Find a better way to concatenate /reduce names, sign extend names 

# 5) Fix condition where wire tmp„logieal is declared later on after wire name 
is 

# created. 
60 # Known Bugs: 

# Is real should replace equivalences on parenthesis names. 

########################################################################*##*#** 
# 



^3 i 



# read_file ($f ile_index, $complete„f ilename) 

# read_file returns the contents of the file named $complete_f ilename . 

# Sounds like a cakewalk except that Verilog has a means of including files 
5 # much like C++ does. 

# 

# So everytime read_file sees: 
# 

# 'include foo 
10 # 

# it calls: 

# &read__file ( $f ile_index+l , f oo) ; 

# and sticks the result directly in its string, which it returns when it 
15 # reaches the end of its file. (Recursive functions are like that). 

# 

# This file uses a global list called $include_list . 

# $include list is used to ensure that infinite ^include loops don't happen 

# see check for inf inite_include„loops 

# 

sub read_file 

my ($f ile_index, $complete_f ilename, $path) = @_; 
25 my $f ile_contents; 

$complete_f ilename trl\\l\/|; 
$path =- trl W 1 \/ I ; 

30 #wam "path, filename $path, $complete_f ilename\n" ; 

$path = " . " unless $path; 

open ($file_index, "<$path\/$complete„f ilename") | | 

die "Unable to open $complete_f ilename, $ ! " ; 
while (<$f ile_index>) 
35 { 

if (0) #(s/'"\s*\^include\s + \" ( .*?)\"//) 
{ 

my $fn = $1; 

#print "in file $complete_f ilename , found include, $l\n"; 
40 $fn trl\/|\\l ; 

if ($fn I- /'^( (WW) 1 (\w\:) )/) 

^ #full path name isnt specified. Use previous directory location. 
$fn = $path.$fn; 

45 } 

$include_list{$complete_f ilename} .= if 

($include_list{$complete_f ilename} ) ; 

$include_list{$complete_f ilename} .= $fn; 

#print "include_list for $complete_f ilename is 
50 " - $include_list{$complete_f ilename} . 

#" check value is $complete_f ilename\n« ; 

&check„for_inf inite_include_loops ($fn, $complete_f ilename) ; 
$f ile_contents .= &read_f ile ($f ile_index+l , $fn, $path) ; 

55 } 

else 
{ 

$f ile_contents .= S_; 

} 

60 } 

close {$file_index) ; 

return ( " \n$f ile_contents\n" ) ; 



# 

# check_for„inf inite_include_loops 

5 # I'm getting sick of recursive functions. Here's another one. 

# This one hunts down the tree structure in $included_f ile{list } and makes sure 

# that files don't refer back on themselves via ^includes. 
# 

10 # It is okay for multiple ^includes of the same file as long as that file 

# doesn't include something which includes something which includes the orignal 
file. 

# To check, we put a stake in the ground ( $check_value) and traverse the 

15 "include files . 

# If we ever see our stake again, we know we've walked m a circle. 

# 

20 sub check__f or_inf inite_include_loops 
{ 

my ($included_f ile, $check„value) = @_; 

#print "c„f_i_i_l, if, $included_f ile , cf, $check_value\n" ; 
if ( I $include_list{$included_f ile} ) 
™ 25 f 

Q return; #never heard of this file 

rz before . . ^ . . ^ -, i_ 

^ #no mfxnxte loop here. 

O 30 f or each $ key (split (/\ $include_list{$included_f ile} ) ) 

La # I've seen this guy somewhere before 

, # make sure I'm not 

IZl 

circling. 

if ($key eq $check_value) 

~ 35 { 

Q die "ERROR: FOUND INFINITE INCLUDE LOOP!\nFILE $check_value 

ff^ EVENTUALLY INCLUDES ITSELF !\n"; 

ry else 
S 40 { 

^ #print "checking $key against $check_value\n" ; 

#no smoking gun yet, check what this file includes. 
#keep the same $check_value; 

&check_f or_inf inite_include_loops ($key, $check_value) ; 

45 } 
} 

return; 

} 

sub Kill_Comments 
50 { 

my ($line) = @_; 

#Kill multi_line_comments 
my $ tmp_l ine ; 
55 while ($line =- s | -{.*?) \/\* (.*?) \*\/ 1 1 s) 

( 

$ tmp_l ine . = $ 1 ; 

} 

$tmp_line .= $line; 
60 #Kill single_line_comments 

$line = " " ; 

while ($tmp_line s | ^ ( . *?) \/\/ . *?\n | \n | s) 
( 



$line .= $1; 

} 

$line .= $tmp_line; 
return ( $line) ; 

} 

sub Process^Comments 
{ 

my ($line) - @_; 

# Comments 

# VHDL does not have a means for making multi line comments 

# That means that we have to convert the lines to verilog single line 
comments (//) 

while ($line s | (.*?) \/ \ *(.*?) \*\/ | $1 1 s) 
{ 

my $commented_line = $2 ; 

#There better not be nested comments in here! 
die "BAD COMMENT, $ comment ed_l ine , NESTED COMMENTS!" 
if ($commented_line /\/\*/); 

# Convert all single line comments (//) in the comment to (/-/) so we 

don ' t 

# confuse ourselves later. 

while ($commented_line s|\/\/l\/\-\/|){;} 

$commented_line = join (" \n\/\ split ( /\n/ , $commented_line) ) ; 
############### 

# Right now we just crush multi-line comments. We could get fancier 

later 

# If you wanted to keep these comments, uncomment the next line. 

# $line .= "\/\/$commented_line\n" 

} 

############### 

# Now we just have single comments left. For these, we can just convert 

# the verilog single line comment //to the vhdl single line comment -- . 

# We also need to convert all ticked statements, e.g. ('define, 'ifdef, 
"endif, etc.) 

# to their non-ticked counterparts, (define, ifdef, endif, etc.) And since 

we 

# later split commands on semi-colon (; ) Crush ; so that we won't have to 
worry about it . 

# crush single -line comments 

while ($line s | ^ ( . *?) \/\/ ( . *?) \n ( . * ) | $1 1 s) 
{ 

my $comment = $2; 
my $rest - $3; 

#wam "found single line comment named $comment, $l\n" ; 

#Keep comments with special word "exemplar" in them for Leonardo 
Spectrijm. 

#But convert comment character to vhdl comment character so that we don't 
#get stuck in an infinite loop. 

if ($comment /'^ \s* exemplar/ i) 
{ 

#warn "putting $comment back into line\n" ; 
$line .= " \-\-$comment\n" ; 

} 

$line .= $rest; 



############### 



# Just kill comments for now 

# while ($comment =- s/ ( \ ^ | \ ;)//){; } 

# $line .= "\-\-$coinment" ; 

} 

return ($ line) ; 

} 

# Process_Verilog_Directives takes verilog code as its sole string argument. 

# It then processs all things in the file that have ^ associated with it except 

# for ' include 

# such " thingees include 

# define foo 3 

# ^ifdef, ^else, ^endif 

# ^foo 

# It returns an equivalent verilog string devoid of all 'marks. It replaces 

# all 'foo with its definition if defined. (No error message is printed if foo 

# has not been defined). It does the correct thing on 'idef, 'else, 'endif 

# statements, (including nested ifdefs) . 

##########################################################################**### 
# 

sub Process_Verilog_„Directives 
{ 

my ($line) = 
my $def ined_line = " " ; 

undef % defined ; 
I undef %def inition_of ; 

my %defined; 
my %def inition_of ; 

my @nested„ifdefs = (1); #start off including code. 
5 my $I_Should_Keep_This_Part ; 

$line = " ".$line; #a space is added so that, first time through, split 
rt, we pass through ^. ^ • 

#all of the gates and emerged unscathed as the first part of $def xned_line; 

3 

#print "line is $line\n" ; 
foreach $tick (split (/Ws,$line)) 

$I_Should__Keep_This_Part = eval (join ('&&', @nested_ifdef s) ) ; 
45 #print ("tick is $tick, isktp is $I_Should_Keep„This_Part , nifdef = " 

#.join ( ' 1 ' , @nested_ifdef s) . "\ndefined line now is $def ined_line 

\n") ; 

die "unmatched 'endif" if ((scalar (@nested_ifdef s) ) == 0); 
if ($tick =~ /^ifdef \s+(\S+) ( .*) /s) 

50 { 

$defined{$l} = 0 unless ( $def ined{ $1 } ) ; 

$I_Should_Keep_This_Part = ( $def ined{ $1} && 

$I_Should_Keep_This_Part) ; 

push (@nested_ifdefs,$I_Should_Keep_This_Part) ; 
55 $def ined_line .= $2 if ( $I_Should_Keep_This_Part ) ; 

next ; 

} 

if ($tick =- /^else\s+ ( . *) /s) 
60 { 

die ("saw 'else before 'ifdef") unless ((scalar (@nested_if def s) > 



1) ) 



$I_Should_Keep_This_Part = pop (@nested_if def s) ; 



$I_Should_Keep_This_Part = ( ! $I_Should_Keep_This_Part ) eval (join 

('&&', @nested_if def s) ) ; „ 

push (@nested_ifdefs,$I_Should_Keep_Th3.s_Part) ; 

$defined_line .= $1 if ($I_Should_Keep_This_Part) ; 
5 next ; 

) 

if ($tick =- /'^endif\s+( .*) /s) 
10 ^ die ("saw ^endif before ^ if def in $line\n" ) unless ((scalar 

(@nested_ifdef s) > 1) ) ; 

pop (@nested_ifdefs) ; ■ ^j, x: w 

SI Should_Keep_This_Part = eval (join (•&&■, @nested_xfdef s) ) ; 

"#print "endif says isktp is $I_Should_Keep_This_Part . nxf ooxn 

15 ( ' I ' ,@nested_ifdefs) ; ^ . „ ^.v 

' ' $defined_line .= $1 if ( $I_Should_Keep_This_Part) ; 

next ; 

} 

20 if ($tick /\Adefine\s+(\S+)\s*(\S*)\s*$/m) 

{ 

if ( $ I_Should_Keep_Thi s_Par t ) 

^ #print "definition of $1 is $2, vpp pass is $vpp^ass"; 
_ 25 #die "$1 is defined in 2 places" if { $def ined{$l} ) ; 

y $defined{$l} = 1; 

$def inition_of {$1} = $2 ; 
$tick s/"(.*?)\n(.*)/$2/s; 
$def ined_line .= $tick; 

30 } 

next ; 

} 



m 



m 



if ($tick /^{\S+) {.*) /s) 
35 { 

$tick = $def inition_of {$1} . $2 ; 

$defined_line .= $tick if ( $I_Sliould_Keep„This„Part) ; 
next ; 

40 } 

if ($tick =- /'^Xs+Zs) 

^ #this should only be the first one. 

$defined_line .= $tick if { $I_Should_Keep_This_Part ) ; 

45 next ; 

} 

die "missing ^endif" if ((scalar (@nested_ifdef s) ) > 1) ; 

50 return ( $def ined_line) ; 

} 

sub date_time 

55 ^ my ($sec,$min,$hour,$niday,$mon.$year,$wday.$yday.$isdet) = localtime (time) 
$mon++ ; 

$year += 19 00; 

my $d = sprintf ("%04d.%02d.%02d" ,$year,$mon,$mday) ; 
60 my $t = sprintf ("%02d:%02d:%02d" ,$hour,$min,$sec) ; 

return "$d $t" ; 




# 

# verilog_Nuinber_To_Bit_String 
^ I Verilog_Nuinber_To_Bit_String takes a verilog number of the form 5-hA 

# 

10 sub Verilog_Nuinber_To_Bit_String 
{ 

my ($verilog_n\arnber) = @_; 
my $integer_value = 0; 
my $ width; 

$verilog„niimber s/"\s* ( . *?) \s*$/$l/ ; 

die "ERROR NO WIDTH SPECIFIED FOR VERILOG NUMBER $verilog_number\n" 
unless {$verilog_number =~ s/^ {\d+) \* / / ) ; 

£f -wiSth^is greater than 32 bits. I intend to fix this, but for now. you 

are out of luckXn" 

if ($widtli > 32) ; 

# If there is an 'x' or 'z* in the number, return 

# a bitstream of x or z with width $width 

® if ($verilog_number =- /{[zx])/i) 

^ { 

□ 30 my $tmp_string = $1 x $width; 

return ( " \ " $tmp_string\ " " ) ; 



20 



25 
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□ > 

if ($verilog_number =- /^b ( [0-1] +) $/i) 
U 35 { 

^ foreach $bit (split {//,$1)) 

yl ( 

$integer_value = $integer_value * 2; 
$integer_value += 1 if {$bit == 1) ; 

40 } 

} 

if ($verilog_number =- /-d( [0-9] +) $/i) 
{ 

45 $integer_value = $1; 

} 

if ($verilog_number =- / '"o ( [ 0-7 ] +) $/i) 

50 ^ $integer_value = eval ( " 0 " . $1) ; 

} 

if ($verilog_n\amber =- /'^h( [0-9a-f ] +) $/i) 

55 ^ $integer_value = eval ( " Ox" . $1) ; 

} 

die ("ERROR verilog_Number_To_Bit_Size_And_Bit_String: \n* 
."NUMBER $verilog_number NOT UNDERSTOOD!") 
60 if ($integer_value eq ""); 

if ($integer_value >= 2**32) 
{ 



g_number $verilog_n\imber int__value 



#warn " vei^^g.number $verilog_n\imber int_vaiu^ ( $integer_value) is 
bigger than 2**32\n"; 
my @bit_array; 
while ($integer_value > 0) 
5 { 

unshift (@bit_array, ($integer_value % 2) ) ; 
$integer_value = $integer_value » 1; 

} 

my $bit_string = join ( " " , @bit_array) ; 
10 #warn "test way to do it yields $bit_string\n" ; 

} 

#Orion, warn if number is >= than 2»$width 

15 my $return_string; 

my $mask_value ; 

f oreach $mask„bit (reverse (0 . . {$width-l) ) ) 

if {$integer_value & (1 « $mask_bit) ) 
20 { 

$return_string .= "1" ; 

} 

else 
{ 

„^ 25 $return_string .= "0" ; 

CO #return ( " \ ' $return_string\ ' " ) if {$width ==1); 

m return { " \ " $return_string\ " " ) ; 

0 30 } 

C sub VN2BS {return ( &:Verilog_Number_To_Bit_String (@_) ) ; } 

sub Process_Concatenation 
% 35 { 

S my {$string, 

01 @Module_Inf o) = @„; 
my ( 

$Width_List, 
40 $Signal_List, 

$pWire_Assignments , 

$Equivalence_List) = @Module_Inf o ; 

my ($begin, $middle , $end) = &Count_Parentheses { $string, ' \{ ' , ' \} ' ) ; 
45 #wam "PC: middle ( $middle) \n" ; 

#warn %$Width_List ; 

#wam "PC: end\n" ; . 
die "ERROR Process_Concatenation, NO VALUE BETWEEN SQUIGGLY BRACKETS in 

($string) \n" 

50 if ($middle eq " " ) ; , r ^ x 

while {$middle =- s/\ { | \ } //g) { ; > #e.g. {a, b, c , {a, e} , f , g} -> {a, b, c , a, e , f , g} 

my ($expanded__array, $width) 

&Expand_Array„Of_Bit_Vectors_Into_Separated_Bits ( " , " , $middle , @Module_Inf o ) ; 
55 #warn "P_C, return_width is $return_width, width is $width\n" ; 

$string = "$begin"; 

if (scalar (split ( / \ , / , $expanded_array) ) == 1) 
{ 

my $tmp„string = $expanded_array ; 
60 while ($tmp_string s/\'/\ "/){;} 

#Turn indexed bits into bit array of size 1 
while ($tmp_string s/\ [ \s* ( \d+) \s*\] /\ [$1 : $1\] /s) { ; } 



$string .= $t:mp_st:ring; 

} 

else 
( 

$string .= " std_logic_vector\ ' 

$string .= "\("; 

$string .= $expanded_array ; 

$string .= " \)$end"; 

} 

#warn "PC: Concatenation = $string\n" ; 

return (ScReplace ("Concatenation = $string" , $width, @Module_Inf o) ) ; 

} 

############################################################################### 
# 

# Expand_Array_Of_Bit_Vectors_Into_Separated_Bits 
# 

# Does exactly what it says. e.g. 

# ScExpand_Array_Of_Bit_Vectors_Into_Separated_Bits (A(3 DOWNTO 2), "0010") 

# returns " A[3 ] , A [2 ] , ' 0 ' , * 0 • , ' 1 ' , ' C " 

# We convert brackets to VHDL Parentheses at the end of the module 
############################################################################### 
# 

sub Expand_Array_Of„Bit_Vectors„Into_Separated„Bits 
{ 

my ($ separator, 

$Comma_Separated_String, 
@Module_Info) = @_; 

my ($Width_„List , 
$Signal_List , 
$pWire_Assignments , 

$Equivalence„List) = @Module_Inf o ; 

my $string = " " ; 
my $width = 0; 

foreach $name (split (/ \s*\ , \s*/s , $Comma_Separated_String) ) 
{ 

$name =- s/'^Xs* ( . *?) \s*$/$l/s ; 
#wam " eabvi sb name ( $name ) \n " ; 

$name = &V2VHD_Eciuation { $name , @Module_Info) ; 



#Convert Bit String into bits, i.e. "10110" => •1','0','1','1','0' 
if (&Replace_Equivalences {$name, $Equivalence_List) 

/^(\" |\') ( [01XZ]+) \l$/i) 
{ 

foreach $bit ( split ( / / , $2 ) ) 
{ 

$string .= "$separator " if ($string) ; 
$string .= "\'$bit\'"; 
$width++ ; 

#warn " eaobvisb bit_string bit is $bit, width is $width\n" ; 

} 

} 

else 
{ 

my { $lef t , $right ) ; 



($name, $ref t , $right) = &Vector_Range ( $naine , $Width_List) ; 



if ($left eq {$left = &Width_Of ( $name, $Width_List ) ; } 

if ($ right eq " " ) 

{ 

$naine = &Add_Intennediate_Signal ( " tmp_$name 

$naine" , $lef t , @Module_Inf o) ; 

$left = eval ($left - 1) ; 
$ right = 0; 

} 

$left = eval{$left) ;$right = eval ( $right ) ; 

foreach $index (iOrder ( $lef t , $right ) ) 

{ 

$width++; 

$string .= " $separator\n\t " if {$string) ; 
$ string .= " $naine\ [ $index\ ] " ; 

#warn " eaobvisb ( $name {$ index) $ separator) added to string, width 
is $width \n" ; 

} 

} 

} 

return { $string, $ width) ; 

} 

############################################################################### 
# 

# Vector^Order 

# Inputs, $lef t , $right 
# 

# Vector_Order (0,4) returns (0 TO 4) 

# Vector„Order (3,1) returns (3 DOWNTO 0) 

############################################################################### 
# 

sub Vector_Order 
{ 

my ($lef t_index, $right_index) = @_; 
return " ( $lef t_index) " 

if ( $right„index eq ""); 
if ( ($lef t_index >= $right_index) || ( $right_index == 0)) 
{ 

return " {$left_index DOVJNTO $right_index) " ; 

} 

else 
{ 

return " ($left„index TO $right„index) " ; 

} 

} 

############################################################################### 
# 

# Order 

# Inputs, $left, $right 
# 

# Order (0,4) returns array (0,1,2,3,4) 

# Order (3,1) returns array (3,2,1) 

############################################################################### 
# 

sub Order 
{ 

my ($lef t, $right) = 



10 } 



my @Vector_Array; 

die "ERROR Order: LEFT VALUE ($left) NOT A NUMBER\n" 
unless ($left =~ s/-\s* ( \d+) \s*$/$l/s) ; 

die "ERROR Order: RIGHT VALUE ($right) NOT A NUMBER\n' 
unless {$right =- s/'^Xs* ( \d+) \s*$/$l/s) ; 

if ($right > $lef t) {@Vector_Array = ( $lef t . . $right ) ; } 
elseC @Vector_Array = reverse { $right . . $lef t ) ; } 
return {@Vector_Array) ; 



^#####^##################################################### 

# Width_Of 

15 # Returns the width of a variable, verilog number, or vhdl bit.stream. 

# eg. Width_Of (4'h2) = 4; Width_Of "01010" = 5; 

# Returns if the width is not known. 

20 sub Width_Of 

^ my ($var, $Width„List, $pParameter) = 

#KILL SPACES! KILL! KILL! 
Q 25 $var =- s/-\s*(.*?)\s*$/$l/s; 

#A verilog number is nice enough to tell you its width 
C8 #at the very beginning. Usually a pain, but in this case it is great 

5 if ($var =~ /'^ (\d+) \ ' [bdoh] ( [\d+a-fxz] ) /i) 

P ^ #warn " WIDTH_OF found verilog number $var, returned width of $l\n" ; 

Q return { $1) ; 

m } 

35 #Count the bits in a vhdl bit stream 

S if ($var (t01XZ]+)\l/i) 

^ my Swidth = scalar (split (//,$2)); . ^ ^ j= ^ -^i^uv .. 

ry #warn " WIDTH_OF found vhdl number $var, returned width of $width\n ; 

p 40 return ($width) ; 

M } 

my ($name,$left,$right) = &Vector_Range($var, ^''^^I'^-'^^l^^' ^ 
#wam "Width„Of $var after Vector_Range, left, right -> $left, $right\n , 
45 return "" if ($left eq " " ) ; #Not Known; 

return "$left" if {$right eq " " ) ; #Known, but not a vector, 
return (abs($left - $right) + 1); #vector width arithmetic 

} 

# Vector_Range 

# Returns the name and (left and right value) of the vector range for a 

# verilog or vhdl vector. 

55 # if 

# reg [4:0] foo; 

# &Vector_Range (foo [3:2]) = (foo, 3, 2) 

# &Vector_Range (foo) = (foo, 4,0) 

# &Vector_Range (foo [2]) = (foo, 2, 2) 

60 ###########################################*##**#*****^^*****^* 
sub Vector__Range 

my ($var, $Width_List, $pParameter) = 



my $naine; 
my $left; 
my $right; 

$var =~ s/^\s* ( .*?) \s*$/$l/s; 

#If our var is foo [3:2] return (foo,3,2) 

#We're not sophisticated enough to deal with (>1) -dimensional 
#vectors. If you need a mult i -dimensional vector width, 
#there is a keyboard in front of you, start typing. 

if {$var =~ /(\w+)\s*\[(.*?)\]/s) 

#warn " Width_Of brackets, inside brackets is $2\n"; 
$name = $ 1 ; 

($left,$right) = split { / \s*\ : \s*/ s , $2 ) ; 

$left = eval($left) ; 

$right = $left if ($right eq " " ) ; 

$right = eval ( $right ) ; 

return ( $name, $lef t , $right ) ; 

} 

#If our var is foo {3 DOWNTO 2) return (foo, 3, 2) 
if ($var =- / {\w+) \s*\ ({.*?) \) /s) 

#warn " Width_Of brackets, inside brackets is $2\n" ; 

$name = $1; 

my $index = $2; 

{$left, $right) = split ( /\s* (DOWN) ?TO\s*/s, $ index) ; 

$left = eval($left) ; 

$right = $left if ($right eq ""); 

$right = eval ( $right ) ; 

return ( $name , $lef t , $right ) ; 

} 

#No indecies are specified, that means use the whole 
tvariable. Fortunately, we have already saved all 
#variable widths in %$Width_List 

{$left, $right) = split ( /\ , / , $$Width_List { $var} ) ; 
$name = $var; 

return ($name, $lef t , $right) ; 

} 

############################################################################.### 
# 

# Replace_Parameters 

# Replaces all text in $val with $$pParameter { text } 

# Currently not being used 

sub Replace__Parameters 
{ 

my {$val, $pParameter) = 

while {$val =- s/'^ (.*?){ \b[a-zA-Z\_] \w*) (.*) $/$l/s) 
{ 

last if ($2 =~ /integer/i) ; 

my $param_substitution = $$pParameter {$2} ; 

die "ERROR PARAMETER SXJBSTITUTION : PARAMETER $2 NOT DEFINEDXn" 

if ( $param_substitution eq ""); 
$val .= $param_substitution. $3 ; 

} 

return (eval ($val) ) ; 

} 



############################################################^*##*^*****^******** 
# 

# Get__Port_,Name_Direction_And_Type 

# Takes a vhdl port string and returns Name, Direction, Type and Vector Range 
5 # i.e. SIGNAL data_from_cpu : OUT STD_LOGIC_VECTOR 

# returns ( "data„f rom.cpu" , "OUT" , " STD_LOGIC_VECTOR (31 DOWNTO 0)") 

# 

sub Get_Port_Naine_Direction_And_Type 
( 

10 my ($string) = 

my $possible_variables = • SIGNAL 1 VARIABLE 1 SHARED \s+VARI ABLE • ; 

if {$string /- \s* ( $possible_variables) \s+ { \w+) \s* : \s* ( \w+) \s* { . * ) $/is) 

my ($name, $direction, $type) = ($2,$3,$4); 
15 return ( $name , $direct ion, $ type) ; 

} 

else 

^ die "ERROR Get_Port„Name_Direction_And_Type, IMPROPER STRING $string\n" ; 

20 } 
} 

############################################################################### 
# 

=^25 # Declare_Signal 
# 

_ # takes, $name, $pSignal_Width as arguments, returns 

# SIGNAL $name : . STD_LOGIC_VECTOR {$left DOWNTO $right) 
S» # or 

O 30 # SIGNAL $name : STD_LOGIC_VECTOR ($left TO $right) 
M # depending on pSignal_Widtli 

rp sub Declare_Signal 

{ 

^35 my ($name,$pSignal_Width) = 

if my ($left,$right) = split ( / \ , / , $$pSignal_Width{ $name} ) ; 

y= die "Declare_Signal, bad inputs {$name, $lef t , $right) \n" 

^ if (($name /\W/) U ($left /\D/) 1| ($right =- /\D/)); 

ly my $Signal_Declaration; 

□ 40 if ($left < $right) 

^ ^ $Signal_Declaration = "SIGNAL $name : STD_LOGIC_VECTOR ($left TO 

$right) ; " ; 
} 

45 else 

^ $Signal„Declaration = "SIGNAL $name : STD_LOGIC_VECTOR ($left DOWNTO 
$right) ; " ; 

50 #wam "DECLARE_SIGNAL RETURININGG $Signal_Declaration\n" ; 

return ( $Signal_Declaration) ; 

# 

55 # Convert_Signals_To„Shared_Variable 

# Takes a string and a pointer to Signal„List. 

# Converts every word ( \b ( [a-zA-Z] \w* ) \b) in the Signal_List from a SIGNAL 

# to a SHARED VARIABLE. Returns an array of all words changed. 
60 # This function is only needed to handle blocking statements. 



sub Convert_Signals_To_Shared_Variable 
{ 



my ($line, $Signal_List) = @„; 

die "ERROR Convert_Signals_To_Shared_Variable , Signal_List IS NULLXn" 

if ( ! $Signal_List) ; 
my @retum_array ; 

while {$line s/\b ( [a-zA-Z] \w* ) \b/ / ) 

my $variable = $1; 

push (@return_array, $variable) ; 

my $tmp_Signal_List = $$Signal_List { $variable} ; 

die "ERROR VARIABLE CONVERSION: of ($variable) FAILED 

($tmp Signal_List ) \n" 

unless ($tmp_Signal_List s/^ ( \s* )( SIGNAL | SHARED VARIABLE) / $1SHARED 

VARIABLE/ s) ; . . • 

#warn " CSTSV, signal was $$Signal_List {$varxable} now is 

$tmp_Signal_List\n" ; 

$$Signal_List{$variable} = $tmp„Signal„List ; 

} 

} 

sub Process_Register_Assigninent 
{ 

my {$line, @Module„Info) = @_; 
my ($Width_List, 
$Signal_List: , 

$pWire_Assignments) = @Module_Inf o; 
my $lhs; 
my $rhs; 
my $lhs_width; 
my $after_line; 

#Process $readmem (b | h) , $write, etc 

#wam "line is $line\n" ; 

if ($line s/'^(\s*) {\$.*?)\s*$/$2/s) 

^ return ( $1 . &Process_Dollar_Verilog_Statements ( $line , @Module_Inf o) ) ; 
} 

#Search for delay patterns 

$line =- s/(.*)\#\s*\S*(.*)/$l $2/s; 

# delay kind of broken due to differences between languages 

# representation of delays, so just forget about them for now 
if (0)#($line s/(.*)\#\s*(.*)/$l/s) 

{ 

my $wait_cLmount = $2; 

my ($tmp, $delay_amount, $rest_of_line) ; 

if ($wait_amount /^\{/) 

($tmp, $wait_amount, $rest_of_line) = &Count_Parentheses ( $wait_amount ) 
$line .= $rest_of_line; 

} 

else 
( 

$wait_amount s/'^ ( \S+ ) ( . * ) $/$l/s ; 
$line .= $beginning_of_line . $2 ; 

#If there is only a delay statement, e.g. (#32;) return "wait for 32 ns ; 

if ($line /'^\s*\;/s) 

{ 

return ("WAIT FOR $wait_amount ns;"); 

} 

else 
{ 



$after_line = "AFTER $wait_ainount ns"; 

} 



} 

#There are two kinds of verilog assignments that can be made 

# 1) blocking " = " assignment made immediately . ^ 

# 2) non-blocking "<=" assignment made after all other items m that 

# timestamp are equated 

if ($line =- /-(.*?) (\<\=|\ = ) ( .*)$/s) 

my ($lhs,$operator,$rhs) = ($1,$2,$3); 
my $tmpjWire_Assignments; 

my $line = &V2VHD_E<iuation_Wrapper ( $lhs 

$rhs" , $Width_List , $Signal.List, \$tmp_pWire_Assignments) ; . 
iwarn "P_R_A: After Wrapper wire assignments are $$pWire_Assignments\n ; 

if {$operator eq "\=") 

^ $line s/-(.*?)\<(\=.*?)$/$l:$2/s; . ^ . . ^, • 

#warn " found blocking statement ( $lhs$operator$rhs) Ihs is ($lhs)\n , 

############### 

# BLOCKING STATEMENTS are tricky. 

# verilog has this concept of "blocking and non-blockmg" statements. 

# VHDL has module scoped SIGNALS that can only be non-blockmg and 

# process scoped VARIABLES that must be blocking. To convert 

# verilog blocking statements into an equivalent VHDL blocking 

statement, ^ ^^^^ ^^^^^ convert the Ihs of the blocking assignments within 
our process^ ^^^^ VARIABLES. At the end of our process, we transform all our 

# names into temporary variable names and assign the original SIGNAL 
# equal to the temporary variable names. Perhaps an example will 

# confusing explanation from spinning your head any longer. 
# 

# always @ (posedge elk) 

# a = a + 1 ; 
# 

# will become: 

# PROCESS BEGIN 

# WAIT UNTIL elk = "1"; . mn 

# number_l_l_bits__wide *-= -L 

— all machine generated equations ^,n\\ 
# a„2_bits_wide : = std_logic_vector ' CO', variable_a ( 0 ) ) 

-must preceed^assignment and be std_logic_vector ' CO' 

niimber_l_l_bits_wide{0) ) ; —of type VARIABLE 

# variable_a := a_2_bits_wide (0 DOWNTO 0) ; 

# a <= variable_a; 
# END PROCESS 

# 

############### 



VARIABLE 
names 
keep my 



variable 



############### , . ^ , 

# First, we convert any machine generated wire assignments t 

# assignments within the line since they need to be evaluated before 

# the "effective immediate" (ly) variable assignment. 



process 
not 

non-vhdl 
$line . 



# in the above example, number_l_l_bits_wide and a_2_bits_wide are 

# "machine generated" . 

my $machine_generated_commands = " " ; 
#warn " tmp_WA ( $ tmp^Wire_As s ignment s ) \n " ; 

my (@blocking_commands) = split { / \ ; / , $tmp_jWire_Assignments) ; 
foreach $block_command {@blocking_commands ) 

^ $block_command =- s/^ (.*?) \< (\=. *?)$/$!: $2 ; /s; 

&Convert„Signals_To_Shared_Variable($l, $Signal_List) ; 
$machine_generated__commands .= " $block_command" ; 

$line = $machine_generated_commands . $line ; 

############### _ ^ ' 

# Now we'd like to translate all left hand side arguments in the 

# into tmp names. Unfortunately, we only know what's in this line, 

# what is in the entire process. So for each chip design, we put a 

# sentence that says "Please Convert $signal_name To A Variable" in 

# We'll do the conversion later. Pretty hacky, I know. 

$lhs =- s/\ [ . *?\] //s; #do not convert memory indexes; 
while ($lhs =^ s/\b( [a-zA-Z]\w*)\b//) 

$line .= "Please Convert $1 To A Variable"; 

} 



else {$$pWire_Assignments .= $tmp_pWire_Assignments ; } 

if ($after_line ne "") 
{ 

$line =~ s/\;\s*$//s; 

return ("$line $af ter_line; " ) ; 

} 

else 
{ 

return ( "$line" ) ; 

} 

} 

else 
{ 

return " " ; 

} 

} 

sub Get_Exclusive_VHDIj_NcLme 
{ 

my ($ncime, $List) = @_; 



$name tr/A-Z/a-z/; 

#First make $name into a vhdl acceptable name 
#warn "eatme 2, $name\n" 
# i f ( $ GLOBAL_DEBUG ) ; 

#Say goodbye to everything that is not a word character m name, 
while ($name s/\W+//){;} 



#Convert spaces to underscores 
while ($name =~ s/\s+/\_/s) { ; } 



#But not too many underscores, vhdl will not let you have two underscores 

in your name or 

#any underscores at either end 
5 while (Sname s/ ( \„) {2 , } /\_/s) { ; } 

while ($naine s/-\„+ ( - *? ) > t ; > 

#vhdl does not like names to begin with numbers 
10 $name =~ s/ ( \d) /number_$l/ ; 

#warn "eatme\n" ; 
#warn "IN GETXNAME\n" 
# i f ( $ GLOBAL_DEBUG ) ; 
while {$$List{$name} ne "") 

^ #warn "G.E.N name $name already taken. Trying tmp_$name\n" 
# i f ( $GLOBAIj_DEBUG ) ; 
$name = "tmp_$name"; 

20 #wam "G_E_N name $name not taken. \n" 

#if ($GLOBAL_DEBUG) ; 
#Keep Place holder at this name. 
$$List{$name} = "Taken"; 
return ($name) ; 



□ 25 



# 

# Convert_Integers_To_Std_L.ogic_Vector 
= I convert integers_To_Std_Logic_Vector takes left, operator right as inputs. 

yl to the known width. 

# (Perhaps it should not do this?) 

2 # It does not use the operator now, but it maybe useful later, 

y ^ 

r= sub Convert_Integers_To_Std_I.ogic_Vector 

3 40 ^ my {$left,$operator,$right,$Width_List,$Equivalence_List) = @_; 
i=i my $left_width = ScWidth_Of ($lef t, $Width_List) ; 

my $right_width = &width_Of ( $right , $Width_List) ; 

#Check that widths are equal if both are known. 
45 if ( ($left_width) && ( $right_width) ) 

if ($left_width 1= $right_width) 

^ my $tmp left = &Replace_Eciuivalences ($lef t, $Equivalence_List) ; 
50 my $tmplright = &Replace_Eguivalences ($right, $Equivalence_I,xst) ; 

#wam ("WARNING EXPRESSION ($left $operator $r3.ght) \n 

#. "WIDTH OF $tmp_left ( $lef t_width) ! = WIDTH OF $tmp_right 

($right_width) ! \n" ) ; 
} 



55 



else #Warn if neither width is known. 



^ if ( ! ($lef t_width || $right_width) ) 

^ die {"CV2SLV VECTOR WIDTHS { $lef t_width) ( $right_width) UNKNOWN FOR 
EXPRESSION ARITHMETIC OPERATION ($2) ($3) ($4)\n"); 
} 



else #If only one width is known, convert the iinknown width, 
if ($lef t_width) #right width is unknown. 

^ if ($right =- /'"Xs* (\d+) \s*$/s) #nuinber => verilog decimal number 
with width $left_width 

^ #warn ("right width is unknown, left width is $lef t_width\n" . 
#"sending $lef t_width\ ' d$l to VN2BS"); 
$right = ScVN2BS ( " $lef t_width\ ' d$l " ) ; 

} 

} 

else #left width is unknown. 

^ if ($left /'^Xs* (\d+) \s*$/s) #nijinber => verilog decimal number 

with width $right_width 

^ #warn ("left width is unknown, right width is $right_width\n" . 
#"sending $right__width\ ' d$l to VN2BS"); 
$left = &VN2BS("$right_width\'d$l") ; 

} 

} 

} 

} 

#Now determine the proper width. 
#take max 

my $max_width = $right„width; 
$max_width = $left_width 

if ($left_width > $right_width) ; 

return ($max_width, $lef t , $right) ; 

} 

^############################################################################## 
# 

# Replace_Equivalences 

# Replaces all tmp names in Equivalence List. Since some names 

# in Eouivalence^List refer to other names in the same Equivalent_List , 

# Replace_Eciuivalences is Recursive. See big comment before sub V2VHD_Equation 

# for an explanation of the bigger picture. 

sub Replace_Equivalences 
t 

my ($string, $Equivalence_List) = 

my $new_string; 

my $replacement_value ; 

while ($string ne 

^ if ($string =- s/'^ ( [\W\ " \ ' \d] +) / /s) { $new_string .= $l;next;} 
if ($string s/'" ( \w+) //s) 
{ 

my $word = $1; 

$replacement_value = $$Equivalence_Iiist { $word} ; 

if ($replacement_value eq 

{ 

$new_string .= $word; 

} 

else 

my $new_replacement_value 
&:Replace_Equivalences ( $replacement_value, 

$Equivalence_L,ist) ; 



############### . . . n l«™1c= 

#parentheses get replaced if there is additxonal replacement levels 
#inside the parentheses, e.g. verilog statement 

# (a+b) => (binary) => parentheses. 

# When replacing, 

# parentheses => (binary) => (a+b) 
# 

# (a) -> parentheses 

# When replacing 

# parentheses => a //no parentheses 

if ( ($word =- /parentheses/ i) 

( $$Equivalence_Lis t { $replacement_value } ) ) 

^ $new_replacement_value = " \ ( $new„replacement_value\ ) " ; 
} 

$new__string .= $new_replacement_value; 

) 

} 

} 

return ( $new_string) ; 

} 

sub Vestigual_Replace_E<iuivalences 

my {$string, $tmp_Equivalence_List) = @_; 

my %Equivalence_List = %$tmp_Eciuivalence_List ; 

my $values_were_changed = 1; 
while ( $values_were_changed) 
{ 

$values_were_changed = 0; 

foreach $key (keys (%$Eciuivalence_List) ) 

my $value = $$Equivalence_List { $key} ; 

#Put parentheses around value if key was parenthesized 

#And it needs it . r-^ -i i\\ 

if ( ($key =- /Parentheses/) ( $$Eciuivalence_List {$value} ) ) 

{ $value = " \ ( $value\ ) " ; } 

while ($string =- s/ \b$key\b/$value/ ) 

^ #wam "key is $key\n value is $value\n string is $string\n" ; 
$values_were_changed = 1; 
undef $$Eciuivalence_List{$key} ; 

} 

} 

#Now crush parentheses around single objects 

#while ($string s/\ ( ( [ \sa-zA-z\ " \ ' ] t \s\w\ " \ ' ] * ) \ ) /$l/s) { ; } 

#warn "Replace_Equivalences , done, string is $string\n" ; 
return ($string) ; 



} 



^^##^###############################################################*#######^## 

# ReadMem takes a verilog $readmem(b Ih) (<f ilename> , <memory>) 

# instruction and then hardwires „memory_ to the values in .filename 

# This isn't as flexible as a true conversion of readmem would be (<filename> 

# could be parameterizable and be different for multiple instances of the 

# same module. In the future, this should be replaced with a real vhdl 
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# equivalent, but so much easier to parse filenJMI with perl than with 

vhdl 

sub ReadMem 
{ 

my ( $mem__radix , 
$dat_f ilename, 
$mem_name , 
@Module_Inf o) = @_; 

my {$Width_List , 
$Signal„List , 
$pWire__Assignments , 

$Equivalence_Liist) = @Module„Inf o; 



my $retum„string; . ,^ ■> ^ 

my ($left,$right,$up,$down) = split ( /\s*\ , \s* /s , $$Width_Lxst { $mem_naine} ) ; 
my ($width) = &Width_Of ($mem_name , $Width__Iiist ) ; 
open {DAT,"< $dat_f ilename" ) or 
20 open (DAT, "< ni os__system_sim\/$ da t_f ilename" ) or 

warn "\nWarning, cannot open $dat_f ilename ($!)\n"; 



my $dat_contents; 
25 while (<DAT>) 

5 ^ if (s/'^C .*?)\/\/. *$/$!/){; } 

S $dat_contents .= 

^ unless (/''\s*$/s); 

ft 30 } 

^ close (DAT) ; 

O my @Address__Data_.Pairs = split(/\@/, $dat_contents) ; 

g1 foreach $address_data (@Address_.Data_Pairs) 

« 35 { . ^ . ^ 

my ($address,@data) = split ( /\s+/s , $address_data) ; 

#wam "address is $address. data is @data\n" ; 

r2 my $integer_address = eval ( " Ox$address" ) ; 

foreach $datum (@data) 

40 { 

o 

M= if ($mem_radix eq "b" ) 

{ 

$datum = " \ " $datum\ " " ; 

45 } 

else 

$datum = ScVN2BS ( " $width\ ' $mem_radix$ datum" ) ; 

} 



U 



50 



$return_string . = " $mem_name ( $integer_address ) <= $datum; \n" ; 
$integer_address++ ; 



} 



} 

55 return ( $return_string) ; 

} 



# 

60 # Process_Dollar_Verilog_Statements 
# 

# Converts verilog $readmemb, $readmemh and $wrxte statements 

# to the appropriate vhdl equivalent 



# 

sub Process_Dollar_Verilog_Statements 
{ 

my ($ equation, @Module_Info) = @_; 

my ($Width_List, 
$Signal_List , 
$pWire_Assignments , 
) = @Module_Info; 

my $retum_string; 

if ($equation 
/-\s*\$readmem(b|]i) \s* \ ( \s*\ " \s* ( \S+ ) \s*\ " \s* \ , \s* ( \w+) \s*\) \s*\; \s*$/is) 
{ 

my {$mem_radix, $dat_f ilename, $mem_name) = {$1,$2,$3); 
return ( &ReadMem ( $mem_radix , 

$dat_f ilensime , 

$mem_name , 

@Module_Inf o 

) 

) ; 

} 

if ($equation =- /^\$write\s*\ (\s*\ "(.*?) \ " \s*\ , \s* (.*?) \s*\) \s*\ ; /is) 
{ 

my ( $quote, $values) = ($1,$2); 

my @values_array = split ( /\s*\ , \s*/s , $values) ; 

my @string_array = (""); #put null in first spot and index from 1 
$string_length 

my $string_length = 0 ; 

while ($quote) 

{ 

$string_length++ ; 

if ($quote s/" ( [\%\\] \w) //) 

{ 

die "ERROR \$$equation ONLY \%c IS CURRENLTY SUPPORTED AS DATA 

TYPE! \n" 

unless ($1 /\%c/i) ; 
push. 

(@string_array, "character • val (CONV_INTEGER ( " . shif t (@values_array) ."))"); 
} 

else 
{ 

$quote s/'^ (.)//; 

push (@string_array, " \ ' $1\ ' " ) ; 

} 

} 

# make a string signal of width $string_length 

my $string„name = &Get_Exclusive_VHDL_Name ( " string_name" , $Width_List) ; 
$$Signal_List {$string_name} = "SIGNAL $string_name : STRING (1 TO 
$string_length) ; " ; 

$$Width_List {$string_name} = " 1 , $string_length" ; 

#warn " string_array is @string_array\n" ; 

foreach $index ( 1 . . $string_length) 

{ 

$return_string .= " $string_ncime ($ index) <= 

$string__array[ $ index] ; \n" ; 
} 

$return_string .= " write (output , $string_name) ; \n" ; 
return ( $return_string) ; 
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} 

die "ERROR Process_Dollar_Verilog_Stateraents , STATEMENT ( $equation) NOT 
UNDERSTOOD \n" ; 
} 

sub V2VHD_Equation_Wrapper 
{ 

my ($equation, @Module_Inf o) = @_; 

my ($Width_List, 
$Signal_List , 
$pWire_Assignments , 

$Equivalence_Iiist) = @Module_Inf o; 
my %E_List; 



my $pE_List = \%E„Iiist; 
$pE_List = $Equivalence_List 
20 if ($Equivalence_Iiist) ; 

my $string = 5cV2VHD_E<3uation (@_, $pE_List ) ; 
$string = &Replace__Equivalences {$ string, $pE_Liist) ; 

25 #Undef the tmp names so that we can use them again next time 

#Do not undef if $Eciuivalence_List was non-null because 
#we've been recursively called, 
if ( ! $Equivalence_List) 
{ 

30 foreach $key (keys {%pE_Iiist) ) 

{ 

#undef ($$Width_Iiist{$key}) ; 
$$Width_List{$key} = ""; 

} 

35 } 

#kill std_logic_vector ' on Ihs concatenations 
while ($string =^ s/"\s*std_logic_vector\ ' / /s) { ; } 

iconvert assignment operator to <= 
40 $string s/ \= { 1 } \s* / \<\= /s; 

#wam " Final Answer: $string\n" ; 
return {$string) ; 

# 

# Replace 

# Replace replaces a complicated expression with a simple exclusive name. 
50 # See V2VHD„Ec[uation comment. 

# e.g. 

# &Replace ("foo = a + b" , 4 , @Module_Inf o) ; 

# would get an exclusive name for foo, set 

# $E<3uivalence_Liist{&Get_Exclusive_Name(foo, $Width_List) } = a + b; set 
55 # $width_List{<the exclusive name for foo>}= 4 

# and return the exclusive name for foo so that V2VHD_Eciuation can substitute 

it 

# into equations . 

60 sub Replace 
{ 

my (Sequation, 
$width. 



@Module_Inf o) - @„; 



my ( $Width_List , 
$Signal_List , 
$pWire_Assignments , 

$Equivalence_List) = @Module„Inf o ; 

#die "ERROR Replace: width is ($width) in equation ( $equation) \n" 

#unless $width; _ 

my {$replaceinent„name,@tmp_replacement_value) - spiic 

(/\s*\={l}\s*/s,$equation) ; 

my $replacement„value = join (" = " , @tmp_replacement_value) ; 

$ r ep lac emen t_name 
&:Get_Exclusive_VHDL_Name { " $replacement_name" , $Width_List ) ; 

$$Equivalence_List{$replacement_name} = $replacement_value; 

$$Width_List {$replacement_name} = $width; 

return ( $rep lac emen t_name) ; 

} 




# 

# Find_In„Order 

# searches $equation for each term in a " 1 " separated regexp. 

# searches in order and returns the first exp that matches. 

# returns a \ escaped string so that $equation can be 

# patterned matched. 

sub Find_In_Order 
{ 

my {$equation, $regexp) = @_; 
$regexp =- s/ (["!])$/ $1 1 /s ; 

my $tmp_regexp = $regexp; 
I my $exp; 

while ($tmp_regexp =- s/^ ( . *? [ '^W ] ) \ | / / ) 

{ 

$exp = $1; 

#warn "FIO looking for {$exp)\n"; 
) if ($equation /($exp)/) 

{ 

$exp = $1; 

#warn "FIO found ($exp) IN EQUATION ( $equation) \n" ; 
last ; 

45 } 

die "ERROR Find_In_Order : {$regexp) NOT FOUND IN ( $equation) \n" 

unless ($exp ne " " ) ; 
$exp =- s/ (\W) /\\$l/gs; 
50 return ($exp) ; 

> 

############################################################################### 
# 

55 # V2VHD__Equation 
# 

# Verilog and VHDL have similar operators, but of course they are 

# different because as Buddah says, "Life is Suffering". 
# 

60 # Fortunately, since the operators do pretty much the same thing, we 

# dont have to evaluate too many verilog expressions. For most 

# operators, we just need to translate verilog arithmetic into vhdl 

# arithmetic. 



# verilog and vhdl handle numbers differently, so we need to convert 

# numbers from verilog (32,4'hF,0) into their corresponding vhdl 

# std_logic_vector bit strings " 10000 1111 00 " . We also need to 

# determine the bit width of the number. We do that based upon^the 

# closest known width operating on the number, i.e. (foo[4:0] == 0) 

# means 0 probably has width of 5 . 

# VHDL really like "types" and that gets us in a little trouble. A 

# naive translation of the verilog expression: 

# wire counter_ne_zero = ! (counter [3 : 0 ] == 0) 

# Would be: 

# SIGNAL counter_ne_zero : STD_LOGIC; 

# counter_ne„zero <= NOT (counter(3 DOWNTO 0) = "0000") 

# Unfortunately, the result of (counter (3 DOWNTO 0) =0) is type 

# boolean, not std_logic. If there were an easy way to type change a 

# boolean to std_logic, it would be easy to say: 

# counter__ne_2ero <= NOT (To_std„logic (counter (3 DOWNTO 0) = 

"0000")) 
# 

# But I have not found cin easy way to do so. 

# declare a tmp signal tmp„counter_ne_zero . 

# isnt already used by someone else first.) 

# the vhdl WHEN, ELSE statement: 

# SIGNAL tmp_counter_ne_zero: STD_LOGIC_VECTOR (0 DOWNTO 0) ; 

# tmp_counter^ne„2ero <= "1" WHEN (counter(3 DOWNTO 0) = "0000") ELSE 



To work around this, I 
(I make sure this signal 
It gets assigned to using 



— Now we are back in happy std_logic_vector land: 
counter_ne_zero <= NOT ( tmp_counter_ne_zero) ; 



are 



converted to STD_LOGIC_VECTOR inside the Entity (VHDL for 



# 
# 
# 

# All types 

module) ^ *.v, • 

# We convert types to/ from STD_LOGIC at the beginnxng and end of the entity. 

# e.g. 

# module f oo (c) ; 
output c ; 

//more verilog code here 

# endmodule 
# 

turns into 
ENTITY foo IS 
PORT ( 

SIGNAL a 
SIGNAL b 
SIGNAL c 

) ; 

END foo; 

ARCHITECTURE behavior OF foo IS 

SIGNAL tmp_a : STD__LOGIC_VECTOR ( 0 DOWNTO 0); 
SIGNAL tmp_C : STD_LOGIC_VECTOR ( 0 DOWNTO 0 ) ; 
--INOUT signals are kept as STD_LOGIC_VECTOR 
--other signals here 



# 
# 



# 

# 

# 

# 

# 

# 

# 

# 

# 

# 

# 

# 

# 



IN STD_LOGIC; 
INOUT STD_LOGIC; 
OUT STD_LOGIC; 



# BEGIN 

# --verilog code translates to vhdl here 

# c <= tmp_c (0) ; 

# tmp_a(0) <= a; 

# END behavior 
# 

# IMPORTANT IMPORTANT ^o-ro 

# INOUT STD_LOGIC_VECTOR (0 DOWNTO 0) signals are not converted to STD_LOGIC 

# INOUT signals are not so easy to convert to STD_LOGIC 

# sometimes the INOUT signal looks like an output 



# sometimes its an input. Eventually, I could declare two tmp_signals . 

# Convert the signal on the rhs of all equations to be the input version 

# signal and convert all signals on the Ihs to be the output signal. 

# Determine what signal is driving. Then say: 

# inout_signal = (Driving) ? tmp_output„inout : I'bz; 

# tmp_input_inout = inout_signal . 

# For now you'll just have to deal with a STD_LOGIC(0 DOWNTO 0) INOUT. 

# Everything instantiating the module will hook up to it correctly. 

# END IMPORTANT IMPORTANT 
# 

# V2VHD_Equation can recursively and iteratively call itself. 

# The main idea is that complicated expressions 

# can be turned into simpler expressions through replacing 

# expressions with exclusive words. (see subroutines Replace and 
Rep lac e_Ec[u i va 1 enc e s ) 

# Converting an expression with V2VHD_Equation simplifies th 

# e.g. 

# verilog: c <= a + b + [c; 

# Gets turned into 

#1) c <= a + b + reduction; / /$Equivalence_List {reduction} 

"(c(msb) or c (msb - 1) ... or c (Isb) ) " 

# //$Width_List{reduction} = 1; #as if 
reduction were a verilog signal. 

#2) c <= addition + reduction / /$Eciuivalence„L is t {addition} = "a + b" ; 

# //$Width_List {reduction} 

max (width (a) , width (b) ) + 1; 

#3) c <= tmp_addition / / $E<iuivalence_List { tmp_addition} = addition 

+ reduction; 

# //$Width_List {reduction} 
) max (width (addition) , width (reduction) ) + 1; 

# 

# V2VHD would then return c <= tmp_addition 

. # V2VHD_E(3uation_Wrapper is the top level call to V2VHD_Equation . calls 
5 &Replace_Equivalences after 

# V2VHD_Equation. Replace_Equivalences will replace every 
key (%Ec[uivalence_List) with $Equivalence_List { $key} . 

# Using c <= tmp_addition from the example before. Replace_Eciuivalences will 
do: 

[) # 0) c <= tmp_addition 

#1) c <= addition + reduction; 
#2) c<=a+b+ reduction; 
#3) c <= a + b + (c(msb) or c (msb - 1) ... or c(lsb)); --voila, a valid vhdl 
equation 

45 

sub V2VHD„Equation 
{ 

my ( $equation , 

@Module__Info) = @_; 

my ($Width__List , 
$Signal„List , 
$pWire_Assignments , 

$Equivalence_List) = @Module_Inf o; 

my $ width; 
my $left; 
my $right; 

60 my $debug = "verilog" ; 



50 



55 



while ($equation =- s/\s+//sg) { ; } ; 

#Convert all verilog numbers to equivalent word name. 



while ($equation s/ {.*?)( \d+\ ' [bodh] [\da-fxz] +) (^^$l/si) 

{ 

my {$replace_this) = &VN2BS{$2); 
$width = &Width_Of ($2, $Width_List) ; 

$replacement_naine = ScReplace ( "Verilog_Number 

$replace_this" , $width, @Module_Inf o) ; 

$eciuation .= " $replacement_name $3"; 
warn " verilog number equation now is $equation\n'' 
if ($debug /number/); 

} 

#Convert vector [max__index:min_index] to equivalent word name, 
while {$equation =- s/ *?\b) { \w+) \sM \ [(.*?) \ 1 ) C*) ) 
{ 

my $replace„this = $2;; , 
($replace_this,$left,$right) = &Vector_Range ( " $2$3 " , $Width_List ) ; 

my $rest = $5; 

#Worry about memories 

my ($l,$r,$up,$down) = split ( /\s*\ , \s*/s , $$Width_List{$2} ) ; 

if ($up ne " ") 

{ 

#It ' s a memory 

#wam "equation is $equation\n" ; 

warn " \nVERILOG TO VHDL CONVERSION: " . &date_time . " USING MEMORY 

$2\n" ; 

$replace_this .= " ( CONV_INTEGER (unsigned ( $4) ) ) " ; 
($left,$right) = ($l,$r); 

} 

else 

^ $right = $left if ($right eq ""); #If only one value, 
#$replace_this .= &:Vector_Order ( $lef t , $right) ; 

$replace_this .= " [ $lef t : $right] " ; #we'll change vector order when we 

#replace_equi valences 

} 

#warn " in brackets , (@Module_Inf o) \n" ; 

$replacement_name = ^Replace ( " Verilog_Bracket 

$replace_this" , " $lef t , $right " , @Module_Inf o) ; 

$equation .= " $replacement_name $rest" ; 

} 

#WRONG WRONG WRONG WRONG WRONG 

#THE ORDER BELOW IS WRONG ^ o ■ 

# Now the order of operators we have (according to verilog 13 64 and Samir 

Palnitkar's book) 

# to handle are 

# 1) Parentheses, Replecation and Concatenation 

# 2) Unary (+, -, 1 ,-) 

# 3) Multiply, Divide, Modulus (*,/,%) 

# 4) Add, Subtract, Shift ( + ,-), «, » 

# 5) Relational (<, <=, >, >=) 

# 6) Equality (==, !=) 

# 7) Binary Bitwise (Sc,'^,!) 

# 8) Logical (&&, \ \ ) 

# 7) Reduction (&,^,|) 

# 9) Conditional (?:) 
#10) Assignment ( = ) 



#WRONG WRONG WRONG WRONG WRONG 

#THE ABOVE ORDER IS WRONG 

#AND IS A BUG IN THE 13 64 spec. 



#SEE THE FOLLOWING POST FROM ALT . COMP . LANG .VERI LOG 



#... Based on the information obtained from "private sources" {a member 
#of the 13 64 WG) I concluded that the TAble 4-4 is, indeed, 
#wrong, and, maybe, the table in Thomas and Moorby 2nd is not 
#right, either. 

#ALL unary operators have precedence higher than ANY binary operator, 
#while the precedence among unary operators is non-essential. 
#So, Table 4-4 gives erroneous precedence for -& and -| UNARY 
#operators placing them where such BINARY operators should have 
#been had they existed. It is still to be determined whether 
#binary ^-/'^ has the same precedence as & (T&M) or lower (IEEE 
#Draft), and that can be easily accomplished with Verilog-XL 
#which I'm going to do shortly. 
# 

#Regards to all, 
#Sergei Sokolov 



my $unary_operators = ' \+ | \- | \ ! 1 ' ; 

$reduction_operators 

\&{1}1\-\&{1}|\-{1}1\-\"{1>1\'^\-^1>IM(1>1\-\| tl>' ... . ^ 

my $all_unary_operators = join { ' | • , $unary_operators , $reduction_operators) ; 

my $relational_equality_operators = ' \<\= t \< | \>\= 1 \> I \= t2 } | \ 1 \- ' ; 

my $arithmetic_operators = ' \* 1 \ / 1 \+ | \- ' ; 

my $binary_bitwise = ' \&{ 1} | \- { 1} | \ | {1} | \-\" I \"\- ' ; 

my $shif t_operators = ' \<\< | \>\> ' ; 

#It's a pain to differentiate between \&\& and \&, so change 

#logical operators to something easier to discern. The ' marks 

#are the verilog escape character, so we know some verilog typer 

#won't accidentally type 'AND' accidentally. 

while ($equation =- s/\&{2}/\'AND\V) { ; > 

# Similar argument for | ] 

while ($ec[uation s/\ j {2 } / \ ' 0R\ V ) { ; ) 

my $logical_operators = ' "AND' ] 'OR' ' ; 

#1 also hate those === and 1== operators which (for all synthesizable 
#code does just the same thing as == and ! = 
while ($eciuation s/ \ ! \= {2 } /\ ! \ = / ) { ; } 
while ($equation s/ \= {3 } /\=\=/ ) { ; } 

my $binary_operators_with_same_width_operands_and_shif t_operators = j oin 
$arithmetic_operators , 

$binary_bitwise , 
$shif t_operators , 

$relational_e<iuality_operators , 

$ logical_operat or s 
) ; 

itiy $operator_order = join ( ' | ' , $all_unary_operators , 

$binary„operators_with_same_width_operands_and_shif t_operators , 

$logical_operators) ; 

# la) PARENTHESES 
{ 

my ($bef ore_paren, $inside_paren, $af ter_paren) 

ScCount_Parentheses ($equation) ; 



while ($inside_jparen ne "") 
{ 

############### 

# if there is one or more operators inside the parentheses, then 

process it (them). 

# Otherwise strip the parentheses and continue. 

# i.e. (counter -1), process it. 

# (counter) / return counter 
if ($inside_jparen =- /$operator_order/ ) 

#warn " replace_this found ( $inside_paren) in ($ equation ) \n" ; 
tRecurse equation (DAMN DAMN equation!); 

my $replace_this = &V2VHD_Equation { $inside_paren, @Module_Info) ; 
#warn "Parentheses converted ($ inside j»aren) to ($replace_this) , 
($$Width_List{$replace_this})\n"; ^v, • x v « 

die "ERROR V2VHD_Equat ion: replace_this returned ($replace_this) \n 

unless ($replace_this =- s/^\s* ( \w+) \s*$/$l/s) ; 
my $replacement_name = &Replace ( "Parentheses ^ $replace_this" , 

$$Width_List{$replace_this} , 
@Module_Info) ; 

$equation = " $bef ore_paren $replacement_name $af ter_paren" ; 
#wam "equation now is $equation\n" ; 

} 

else 
{ 

#warn " parentheses, no operator f ound\n" ; 
#put parentheses around 

$equation = " $bef ore_paren $inside_paren $af ter^aren" ; 

^ ($before_paren, $inside_paren, $af ter j>aren) 

&Count_Parentheses ($equation) ; .^^v,v 

#warn " parentheses equation now is $equation, width is $width\n ; 

} 

} 

# lb) REPLECATION AND CONCATENATION 
{ 

#Replicate first 

#warn " replecation equation was $equation\n" ; 
while ($equation =- s/^ ( . *? ) \ { \s* ( \d+) \s* ( \ { . * ) /$l/s ) 

{ 

my $bef ore_curly_brace = $1; 
my $repeat_number = $2; 

my ($b,$m,$e) = &Count_Parentheses ( $3 , ' \s*\ { ' , ' \ } \s* ' ) ; 
warn "replecation and concatenation bme is ( $b) , ( $m) , ( $e) \n" 

if ($debug =- /replecation/ i) ; 
$m = ("$m\," X $repeat__number) ; 
$m =- s/\,\s*$//s; #lose last comma. 
$e =- s/^\s*\}//s; 

$equation = " $bef ore_curly__brace $b\{$m\}$e"; 
#warn " replecation equation now is $equation\n" ; 

} 

#A11 other curly_braces ({,)) (including the replecation we handled 

above) are concatenation 

my ($before_curly_brace, $inside_curly_brace, $af ter_curly_brace) 

&Count_Parentheses ( $equation, ' \ { ' , ' \ } ' ) ; 
while ($inside_curly_brace ne "") 
{ 

#warn "BPC ( $inside_curly_brace) \n" ; 
#warn %$Width_List ; 

my $replacement_name = &:Process_Concatenation 

( " \ {$inside_curly_brace\} " , @Module_Inf o) ; 



$equation = " $bef ore_curly_^fee $replacement_naine 

$af ter_curly_brace" ; 

($before_curly_brace, $inside„curly_brace , $af ter_curly_brace) 

&Count„Parentheses ($equation, ' \ { ' , ' \ ) ' ) ; 

} 

} 

# 2) UNARY OPERATORS 

^ ############################################################ 

# In addition to the normal unary operators 

# Verilog has these weird but useful unary operators called reduction 
operators 

# a = |foo[3:0] => a = foo[3] | foo[2] | foo[l] | foo[0]; 

# It turns out that these operators are quite useful . 

# However it is difficult to distinguish between the unary reduction 
operator 

# and the binary "or" operator. a = c | foo or a = c + | f oo looks quxte 
like a = |foo. 

# Here is how we differentiate. If the first non spaced character before 
the possible 

# reduction character is a word (\w) then consider it a binary operator. 
If it is a 

; # non word character, consider it a unary operator. This is good even 

for equations with 

# parentheses because we've already converted parentheses to words. 

# Consider: a = (c + b) | foo 

# Above, we've already converted (c + b) to tmp_par en theses so the 

) equation we see is 

# a = tmp__par en theses | foo //binary or 

# 

while ($equation / { $all_unary__operators) / ) 
5 { 

my $operator = &Find_In_Order {$ equation, $all_unary_op era tors ) ; 

last unless ($equation 

s/^{ . *? ) \s* ($all_unary_operators) \s* (\w+) (\s* . *) /$l/s | | 

$equation 

3 s/"' {\s*) ($all_unary„operators) \s* (\w+) (\s* . *) /$l/s) ; 
my $beginning = $l; 
$operator = $2; 
my $name = $3; 

$width = ScWidth_Of ($name, $Width_Ijist) ; 
45 my $rest = $4; 

my $replace_this ; 

if ($operator =- / '^$unary_operators$/ ) 
{ 

if ($operator eq " \ ! " ) 
50 { 

if {$width == 1) {$replace_this = " (NOT $name) " ; } 
else{$replace_this = "\($name \= \'»".("0'' x $width) . " \ " \ ) " ; } 
$width = 1; 

} 

55 else 
{ 

$operator =- s/\*/NOT/; 
$replace_this = " {$operator $name) " ; 

} 

60 } 

else 
{ 

my $value_to_r educe = $name; 



my $reduction_operator = $operator; 

$reduction_operator = "OR" if ( $reduction„operator Z'^^U^^^/); 
$reduction_operator = "AND" if ( $reduction_operator /'^\&{1}$/); 
$reduction_operator = "NOR" if ( $reduction_operator 

^^^$riduction_operator = "NAND" if { $reduction_operator 

$reduction_operator = "XOR" if ( $reductxon_operator =- / \ {!}$/), 
$reduction_operator = "XNOR" if ( $reduction„operator 

^'^''^^^^''"'^^^ $reduction_operator = "XNOR" if ( $reduction_operator 

jny ($value_to_reduce, $vec_lef t , $vec_right ) 

&Vector_Range {$value_to_reduce, $Width_Ijist ) ; 
if ($vec_right ne " " ) 

^ #We can just expand the bit vectors if width is left, right 

because reduction is simple i.e. |a ^ , . \ 

{ $replace_this , $tmp) 

&Expand_Array_Of„Bit_Vectors_Into_Separated_Bits ( " $reduction_operator " , 

$value_to_r educe , 

@Module_Info) ; 

} 

else 

^ #else it's not so simple, so generate a signal = to rhs and 

then reduce the signal ^^^^ <:Tri--r 

#wam "reduction operator $reduction_operator , vtr 5vcr, 

$tmp_width\n , ^^^^ first make an intermediate signal since there is an 

operator inside ( $new_signal„name) = &Add_Intermediate_Signal 

("reduced_$reduction_operator = $value_to_reduce" , 

ScWidth Of ($value_to_reduce,$Width_List) , ^ ^ x 

ocvv _ @Module_Info) ; 

{$replace_this, $tmp) 

&Expand_ArraY„Of_Bit_Vectors„Into_Separated_Bits ( " $reduction_operator " , 

$new_s ignal_name , 
@Module_Info) ; 

#Turn indexed bits into bit array of size 1 

while ($replace_this =- s/\ [\s* (\d+) \s*\] /\ [$1 : $1\] /s) { ; } 

$width = 1; 

$replace_this = " ( $replace_this) " ; 

} 

my $replacement_name = &Replace ("unary = $replace_this" , 

$width, 

@Module_Inf o) ; 
$equation .= " $replacement_name $rest"; 

} 

} 

# 3,4, BINARY OPERATORS 

# 5,6 REIATIONAL (<, <=, >, >=) AND EQUALITY (==,!=) 

# AND LOGICAL 



#wam " pre-relational equation is $equation\n" ; 
#die "bowswop 
$binary_operators_with_saine_width_operands„and_shift_operators\n"; 

S while ($equation 

/ ( $binarY„operators_wi th_same_width_operands_and_shif t_operators ) / s ) 

^ ray $operator = 

&Find_In_Order ($equation, $binary^operators„with_same_width_operand^^^^ 

10 perators); g^^^Y^OPERATOR ($operator) not found in < , , . 

unless ($equation s/M . *?) ( W-.) \sM$operator) \s* (\w+)( . * ) , 

my $lef t__operand = $2 ; 

$operator = $3; 
j5 #wam "operator now is $operator\n" ; 

my $right_operand = $4; 

my $rest = $5; 

my $replace_this ; ^ . , jx x 

if (&Is_real($left_operand) && &Is„real ( $rxglit_operand) ) 

20 ( . . TV n 

#warn " relational equation xs reaixn ; 

#If both are real numbers, evaluate using perl's 

#binary operators. 

if ($operator eq "\^AND\^") 

^- if (($2 ==0) II ($4 == 0) ) {$equation .= "0";} 

else{$equation .= "1";) 

_ } 
U3 else 

O 30 i 

if {$operator eq "\^0R\ ") 

5 ^ if ({$2 1= 0) 11 ($4 != 1) ) {$equation .= "1";} 

else {$equation .= "0";} 

L 35 > 

^ else 

U ^ my $evaluatedExpression = eval ( " $lef t_operand $operator 

$right_operand" ) ; 

# Programming Perl p. 87: . ^ _ " „^ 

# 'The equal and not-equal operators return 1 for true, and 

# just as the relational operators do) . ' 

# Translate all forms of "false" to 0 : 

$evaluatedExpression = "0" if ( ! $evaluatedExpression) ; 



40 



45 



for false 



} 



$equation .= $evaluatedExpression ; 



50 } 

$equation . = $rest ; 

next ; 

} 

55 #shift_operators operate on integers, all other operators need their 

integers to be converted to bit_vectors. 

if ($operator =- /'^$shif t_operators$ / ) 

{ 

if (&Is_real($left_operand) ) 

^ $replacement_name = eval " $lef t_operand $operator 

$right_operand" ; 

# Translate all forms of "false" to 0: 



$replaceinent„naitie = "0" if ( ! $replacement_name) ; 

} 

else 

5 ^ my ($naine, $lef t, $right) 

&:Vector_Range($lef t_operand, $Width_List) ; 

$width = &Width_Of ($lef t_operand, $Widtti_List) ; 

die "ERROR V2VHD_EQUATI0N ($equation) HAS UNKNOWN width. UNABLE 

TO SHIFT\n" 
10 if ($left eq " " ) ; 



AMOUNT\n" 



15 



die "ERROR V2VHD_EQUATI0N ($equation) HAS NON- INTEGER SHIFT 
unless ($riglit_operand =- s/'^Xs* (\d+) \s*$/$l/s) ; 



if ($right eq " " ) 

^ $name = ScAdd_Intermediate_Signal ("shift = $lef t_operand" , 

$ 1 e f t _op e r and_l e f t _i ndex , 
20 @Modu 1 e_Inf o 

) ; 

$lef t — ; 
$right =, 0; 

} 

□ 25 

^ ############### 

#c [3 :0] » 1 = C [3:1] ; 
^ #C [0:3] » 1 = C [0:2] ; 

O 30 my ©array = &Order ( $lef t , $right) ; 

my $2eros; 

while ( ($right_operand — ) && ($width != 0) ) 

if ($operator eq " \<\< " ) { $zeros .= "0"; $width++;} 
™ 35 else{ 

^ if ($operator eq " \>\>" ) {pop (©array) ; $width — } 

ffl else {die "ERROR V2VHD_EQUATI0N, UNKNOWN SHIFT 

H= ASSIGNMENT ( $operator ) \n" ; } 

fy } 
O 40 } 

my $expand„this_string; 

if (©array) 

{ 

45 $left = $array[0] ; 

$right = $array[-l] ; #last value in the array 
$expand_this_string = " $name\ [ $lef t\ : $right\ ] " ; 
if ($ zeros ne "") 
{ 

50 $expand_this_string . = " , \ " $zeros\ " " ; 

} 

#warn "sending $expand_this_string to EAOBVISB\n" ; 
( $replace_this , $ width) 
&Expand_Array_Of _Bit_Vectors_Into_Separated_Bits ( " , " , 

55 

$ expand_thi s_s t r ing , 
©Module_Inf o 

60 $replace_this = " std_logic_vector • ( $replace_this) \n" 

} 

else 



) ; 



{ 

$replacement_naine = "0"; 

} 

my $replacement„name = ^Replace { " shift 

$replace_this" , $width, @Module_Inf o) ; 

$equation .= " $replacement_naine $rest"; 

next ; 

} 

if ($operator =~ /^$logical_operators$/ ) 
{ 

#operator transforms ^ 

^^^^^ "found lo ($left„operand,$operator,$right„operand)\n , 
$operator = "AND" if {$operator eq "\^AND\^"); 
$operator = "OR" if ($operator eq "\^OR\^"); 
$replace_this 

" ( " . &Process_If_Condition { $lef t.operand, @Module_Inf o) . " ) $operator ( 

.&Process_If_Condition($right_operand.@Module_Info) . ) . 

$width = 1; 

my $replacement_naine = ScAdd_Intermediate_Signal ("logical = \"1\" 

WHEN ($replace_this) ELSE \-0\"", * . 

Swidtn, 

@Module_Inf o) ; 

$eciuation .= " $replacement_name $rest" ; 
next ; 

} 

#warn "calling CV2SL.V ($lef t_operand, $operator, $right_operand) \n" ; 

($width. $lef t.operand, $right_operand) 

&Convert_Integers_To_Std_Logic_Vector ( $lef t.operand, $operator , 



$right_operand , 
$Width_L.ist, 

$Equivalence_List) ; 

if ($operator =- /'^$arithinetic_operators$/ ) 

^ # VHDL thinks c = a + b results in c_width = max{a width.b.width) . _ 
# But that is clearly wrong. In reality, c_wxdth - 

max(a_width.b_width)^.^l.^^^^^^.^^ widths to give us signals (new.a, new_b) that 
have widths 1^-1^^^^:^;^-:^^^^^^ to get us a signal of the correct 

width. 

my $new_width; 
if ($operator =- 

^ $new_width = $width + 1; #Max_width from 

Convert_Integers„To_Std_Iiogic_Vector above . 

$lef t_operand = &Reconcile_Known_Widths ( 

$ lef t_operand , 
$lef t_operand, 
$new_width. 



ScWidth_Of ($lef t_operand, $Width_Ijist ) , 



@Module_Inf o 
) ; 



$right_operand = &Reconcile_Known_Widths ( 

$right_operand , 
$right_operand, 
$new_width.. 



&Width_Of ($right_operand, $Width_List) 



} 



@Module_Inf o 
) ; 



if {$operator =- /\*/) 

^ $new_width = &Width_Of ( $lef t„operand, $Width_List ) + 

&Width_Of ($right_operand, $Width_Ljist) ; 
} 

if ($operator /\//) 

^ $new_width = &Width_Of ( $lef t_operand, $Width_List ) 

&Width_Of {$right_operand, $Width_List) ; 

#wam " worop is " . &Width_Of ( $right_operand, $Width_List ) , " , nw is 
$new_width\n" ; 

$width = $new_width; 
#wam "width is ($width)\n"; 

#$replace_this = " $new_lef t_operand $operator $new_right_operand" ; 
$replace_this = " $lef t_operand $operator $right_operand" ; 
my $replacement„name = &Repl ace ( "arithmetic 

I $replace_this" , $width, ©Module_Inf o) ; 

$equation . = " $replacement_name $res t " ; 
next; 

} 

5 #relational operator transforms 

if ($operator /'^$relational_equality_operators$/ ) 

^ ############################################################ 

# Convert boolean (in) equality . Since the output of a conditional 

3 is a boolean 

# and we only understands std_logic, we need to replace the 

conditional with 

# a wire named something like tmp_std_logic . 

# Then we set tmp_std_logic <= '1' when (condition) else '0'; 

45 # 

# N.B. In the future, since we convert everything to 

std„logic_vector , we might 

# be able to convert the boolean to std_logic_vector 

50 my $tmp_left 

&Replace_Equivalences ( $lef t_operand, $Eq[uivalence_List) ; 

my $ tmp_r ight = 

&Replace_Equivalences ( $right_operand, $Equivalence_Iiist ) ; 

55 my $tmp_output_name; 

#warn "operator ($operator) is relational_operator\n" ; 

if ($operator =- s/\s*\ = {2 } \s* / \= /s) {$tmp_output_name = 
"$tmp_lef t\_eq_$tmp_right" ; } 

if ($operator =- s 1 \s* \ • \= { 1 , 2 } \s* | \/\= | s ) {$tmp_output_name = 
60 " $tmp_lef t\_ne_$tmp_right" ; } 

if ($operator =- /\s*\<\s*/s) { $ tmp_output_name = 
"$tmp_lef t\_lt_$tmp_right" ; } 




if ($l!Prator /\s* \<\ = \s* /s) ''^W { $tmp_output_name = 

$tmp__left\_.le_$tmp_right:*' ; } 

if ($operator =- /\s*\>\s*/s) { $tmp_output_name = 

$tmp„left\_gt„$tmp_right" ; } 

if ($operator / \s* \>\=\s* /s) {$tmp_output„name = 

$tmp_lef t\_ge_$tmp_right" ; } 

if ( $ tmp_outpu t_name ) 

^ my $boolean = " $lef t_operand $operator $right_operand" ; 

$tmp„output_naine = &Add_Intennediate_Signal ( " $tinp_output_name = 

WHEN \($boolean\) ELSE \"0\"", 

&Module__Inf o) ; 

$equation .= " $ tmp_output_name$rest" ; 
#wam "ton, ( $eciuation) \n" ; 

} 

next ; 

} 

$operator = "XOR" if ($operator /''\^$/); 
$operator = "AND" if ($operator /^\&$/); 
$operator = "OR" if ($operator =- Z'^XlSV); 
$operator = "XNOR" if {$operator /^\^\-$/) 7 
$operator = "XNOR" if {$operator /''\-\^$/); 

my $replacement_name = &Replace ( " binary„operator = $lef t_operand 
$operator $right_operand" , 

$width, 

@Module_Info) ; 
$equation .= " $replacement__name$rest " ; 

} 

} 

ttCONDITIONAL. ? : 

while ($equation s/(\s*) ( \w+) \s*\?\s* ( \w+) \s*\ : ( \s* ) / " $1$3 WHEN 

\(" .ScProcess_If__Condition($2,@Module_Info) ."\) ELSE $4"/sge) 
{#wam "fo\ind conditional ( $2 ) \n" 
;} 

# ASSIGNMENT . ^ 

# The following is copied very closely from the 
$binary_operators__with_same__width_operands case above 

# Assignment gets a little bit nasty because unlike verilog, VHDL requires 
that the left and right sides of ^.^ ^v, 

# assignments be the same width. So we need to chop off or add bits to the 
right hand side of the assignment. 

# We do that in &Reconcile_.Widths . 
{ 

my $tmp_eciuation = $ equation; 

if {$equation =- s/" { . *?) {\w+) \s* (\ = {1}) \s* (\w+) ( . *) /$1$2 $3/s) 
{ 

my $lef t_operand = $2; 
my $operator = $3; 
my $right„operand = $4; 
my $rest = $5; 

{$width, $lef t_operand, $right_operand) 
&Convert_Integers_To_Std_Logic_Vector { $lef t_operand, 

$operator , 



$right_operand. 



10 



m 

$Width._List, 
$Eguivalence_Iiist) ; 

#wam " left_operand. operator, right_operand, rest, ^i^th, 
replace_this IS $lef t.operand, $operator, $right_operand, $rest, $wxdth, 

$replace„tliis\n" ; ^ ^ ^ 

$right__operand = &Reconcile_Widths ( $lef t_operand, 

$right_operand, 
@Module_lnf o 
) ; 

#warn " ro is $right__operand\n" ; 
#operator transforms 
15 #$replace_this = " $operator $right_operand" ; 

$equation .= " $right_operand$rest " ; #replace_this$rest " ; 
#warn " assignment equation now is $ec3uation\n" ; 

} 

20 #We also need to match up Ihs with values following ELSE statements 

#1 put a - mark before all processed ELSE words to keep us from an 

infinite loop. 

#Again, we need to Reconcile_Widths . 
while {$equation 
25 s/'-i (\w+) (\s*\={l}.*?ELSE(\s+l ['^X^Nw])) (\w+) (.*)/$l/s) 

Q { 

my $lef t_operand = $2; 
fa my $in_between = $3; 

my $right_operand = $5; 

0 ^ $rest = $6; ( $width, $lef t_operand, $right_operand) 

&Convert_Integers_To_Std_Logic_Vector ( $lef t_operand. 



35 $ r i gh t _ope r and , 
$Width_List, 



$E<iuivalence_List^^ . Conditional Assignment: lef t_operand, in_between. 
right.operand, rest, width, replace_this IS $lef t_operand, $xn_between, 
$right_operand, $rest, $width, $replace_this\n" ; 
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#Do the same width reconciliation deal as above, (if needed) 
45 $right_operand = &Reconcile_Widths { $lef t_operand, 

$right_operand, 
@Module__Inf o 
) ; 

50 #in between transforms . . 

$replace_this = " $lef t.operand $in_between \ \ $rxght_operand ; 
$equation .= " $replace_this$rest " ; 

#warn " ELSE assignment equation now is $equation\n' ; 

} 

55 

#crush ^ marks 

while ($equation s/W/g){;} 

} 

60 $eguation s/'^Xs* ( . *? ) \s*$/$l/s ; 

return ($ equation) ; 



##################################################################*###**##^*#^^ 
# 

# Reconcile_Widths and Reconcile_Known__Widths 
# 

# A big difference between verilog and vhdl is that verxlog is more lenient 
when it 

# comes to width assignments. 

# eg. foo[7:0] = ook[3:0] => foo[7:4] = {0,0,0}; foo[3:0] = ook[3:0] 

# eg. foo[3:0] = ook[7:0] => foot3:0] = ook[3:0]; 

# Not so for vhdl. It requires lef t_side_width = right_side_width . Thus this 
function. 

# Reconcile_Widths, takes as input a left and right operands. It forces the 

# right operand to the same width as the left operand. 
# 

# If the left operand width is smaller than the right operand width 

# Reconcile_Widths creates a signal_of_right_side_width <= right_side; 

# then sets left_side <= ( signal_of_right_side_width) ( ( lef t_side_width -1) 
DOWNTO 0) . 

# 

# If the left operand width is bigger than the right operand width, 

# Reconcile_Widths creates a signal_of_right_side_width <= right_side, 

# It sets left_side <= std_logic • ( ' 0 ' x ( $lef t„side - $right_side) , 
signal_of_right_side__width) ; 

# eg. fooC7:0] = ook[3:0] becomes foo(7 DOWNTO 0) <= &V2VHD_Equation {foo[7:0] 
= {4'd0,ook[3:0] }) 

# 

# Reconcile_Widths wraps around Reconcile„Known_Widths 

# Reconcile_Known_Widths can also be used when one is comparing the right_side 
to a left_side 

# that is not in %$Width„List . e.g. when instantiating a Module. 

############################################################################### 
# 

sub Reconcile_Widths 
{ 

my ($lef t_operand, 
$r ight_operand , 
@Module_Info) = @_; 

my ($Width_rjist , 
$Signal__List, 
$pWire_Assignments , 

$Eciuivalence_Ijist) - @Module_Inf o; 

my ($lef t_width) = &Width_Of { $lef t_operand, $Width_Liist ) ; 
my ($right_width) = &Width_Of { $right_operand, $Width_List ) ; 

die "ERROR Reconcile_Widths : WIDTH OF { $lef t_operand (" 
&Replace_Equivalences ($left_operand, $Eciuivalence_Iiist ) . ")) NOT KNOWN! \n" if 
($left_width eq ""); 

die "ERROR Reconcile_Widths : WIDTH OF ( $right_operand (" 
&Replace_Equivalences{$right_operand, $Equivalence_List ) . ")) NOT KNOWN! \n" if 
($right_width eq " " ) ; 

return (&:Reconcile_Known_Widths ( $lef t_operand, 

$right_operand, 
$lef t_width, 
$right_width, 
@Module_Inf o 
) 



sub Reconcile„Known_Widths 
{ 

my ($lef t_operand, 
$right_operand, 
$lef t_width, 
$right_width, 
@Module_lTifo) = @_; 

my ($Width_List, 
$Signal_L.ist , 
$pWire_Assignnients , 

$Equivalence_List) = @Module_Inf o; 

#warn ("RNW, $lef t_operand, 
# $ r ight„operand , 
#$left_width, 
#$right_width\n" ) ; 

#We may not know the left or right operand on pass 1, 

#die »Reconcile_Widths, lef t_width not known" if ($left width eq ), 
#die "Reconcile„Widths, right_width not known" if ( $right_width eq ); 
return ( $right_operand) if ($left_width eq ""); 
return ( $right_operand) if ( $right_width eq ""); 

my $tmp_signal; 

if ($left_width == $right_width) 

* ^ #warn " $lef t_operand has same width as $right_operand, retuming\n" ; 

return ( $right_operand) ; 

} 

else 

^ ^ • 1 - ficAdd Intermediate_Signal 

$tmp__sxgnal - j„ 

("$left_operand\_$right_width\_bits_wide = $right_operand , 

$right_width, 
@Module_Info) ; 

0 } 

if ( $left_width < $right_width) 
{ 

#warn " RW: Iw < rw.\n"; 
45 $right_operand = "$tmp_signal ( {$left_width - 1) DOWNTO 0)"; 

} 

if ( $left_width > $right_width) 

50 ^ my $width„difference = $left_width - $right_width; 

my $filler = "\'0\', " x $width_dif f erence; 

my {$EAOBV,$junk) ^ ^ ' 

&Expand,Array_Of_Bit_Vectors_Into_Separated„Bits ( " , " , $tmp„signal , @Module_Inf o) ; 
$right_operand = " std_logic_vector\ ' ( $f iller$EAOBV) " ; 

55 } 

return ( $right_operand) ; 

} 

# Add_Intennediate_Signal takes a vhdl string signal "a" or "a = b" and 
Tthrcorrect signal name to use. If signal is of the form "a = b» it replaces 



# equivalences of b^Rd adds a <= b to wire_assignments 

sub Add_Intermediate_Signal 
{ 

5 my ($signal, 

$width, 

@Module_Info) = @_; 
itty ( 

10 $Width_L.ist , 

$Signal_Ijist , 
$pWire_Assigninents , 
$Equivalence_Iiist) = @Module_Inf o ; 

15 ray ($signal_lhs , $signal_rhs) = split ( /\s* \= {1} \s*/s . $signal , 2) ; 

#nty $signal_rhs = join ( ■• \ = " , @signal_rhs) ; ^ . -, ^-ot-^ 

$signal_rhs = jcReplace_Equivalences ( $signal_rhs, $Eciuivalence_List) 

if ( $Equivalence_Ijist && $signal_rhs) ; 

20 die "ERROR Add_Intermediate_Signal: ILLEGAL WIDTH ($width) IN SIGNAL 

ASSIGNMENT ($signal)\n" 

unless (($width =- s/-\s* (\d+) \s*$/$l/) && ($width > 0) ) ; 

#just return signal_rhs if only one value is on the rhs . 
25 #eg. foo = bar, just return bar 

if ($signal_rhs =- s/'^\s* (\w+) \s*$/$l/s) 

#Orion, do width checking here 
return ($signal_rhs) ; 

30 } 

#rename signal_lhs , ,v. t < =h . 

$ s ignal_lhs = &Get_Exc lus ive_VHDL_Naine ( $ s ignal_lhs , $Width_Li s t ) , 

if ($signal_rhs ne " " ) 

^ $$pWire_Assignments .= " $signal_lhs <= $signal_rhs ; \n" ; 
} 

$$Signal_List{$signal_lhs} = "SIGNAL $signal_lhs 

40 STD_L0GIC_VECTOR(" . {$width -1)." DOWNTO 0) ; " ; 

$$Width_List{$signal_lhs} = {$width-l) . " , 0" ; 
return ( $signal_lhs) ; 

} 

45 ######################################*#######*#******#**********************^ 

I is.real returns 1 if the value passed to it is a real number, i.e integer >= 



50 



sub Is_real 
{ 

my $value = shift (@_) ; 

return (1) if ($value /-\s*\d+\s*$/s) ; 
55 return (0) ; 

} 



# 

60 # Co\int__Parentheses 



# so i have a string always @ (blow(me) (leonardo | synplicity) ) blerg (boof) 

# I want to perform computations on the string surrounded by the 



# beginning and la^^parentheses . I call Count_Parenth^^ and it 

# returns 3 values, the beginning string: "always @" , the parenthesized string 

# "blow(me) (leonardo|synplicity) " and the last string "blerg (boof ) " . 

5 # If I want to search on something other than parentheses, say begin, end, I can 

# place their values in $begin_inatch and $end_match. 

############################################################################### 
# 

sub Count_Parentheses 
10 { 

my ($string, $begin_match, $end__match) = @_; 
my $begin_string; 
my $paren_string; 
my $end_string; 
15 my $begin_match_default = '\s*\(\s*'; 

my $end_match_default = '\s*\)\s*'; 

$begin_match = $begin__match_de fault unless ( $begin_match) ; 
$end_match = $end_match„de fault unless ($end_match) ; 

20 warn " CP string is $string,\n" 

$begin_match, \n $end„match\n" 
if (0) ; 

#if ( $begin_match ne $begin_match_default) ; 

25 return {"","", "$ string" ) 

unless {$string /'^ ( . *?) $begin_match ( . * ) $/s) ; 

#warn " found first bit $1, \n 

rest is $2\n in string $string\n" 
30 #if ($GLOBAL_WARNING) ; 

# $begin_match, \n $end_match\n" 

#if ($begin_match ne $begin_match_def ault) ; 
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$begin_string = $1; 

my $paren_count = 1; 
$end_string = $2; 



while ($end_string =- s/'^ ( . *?) ($begin_match| $end_match) ( . *) $/$3/s) 
40 { 

my $match; 
$match = $2; 
$paren_string .= $1; 

45 if ($match =- / $begin_match/ ) 

{ 

$paren_count++ ; 

} 

else 
50 { 

$paren_count = $paren_count - 1; 

} 

last if ( $paren_count == 0) ; 
55 #else 

$paren_string . = $match; 

} 

#die "mismatched $begin_match, $end__match in string 

60 $begin_string$paren_string$end„string" if ( $paren_count != 0) ; 
return ( $begin_string, $paren_string, $end_string) ; 

} 



sub Handle_Next_I^ffTse_Line 
( 

my ($if_body, @Module„Inf o) = (@_) ; 

my ( 

$Width_List, 
$Signal_List, 
$pWire_Assignments , 

$Equivalence_Ijist ) = @Module_Inf o; 
my $rest_of_module; 
my $spacing; 

######################################+^##############*#^**## 

# following a verilog " if (condition) "always ©(condition), 

statement, there are three things that 

# can follow the statements. 

# 1) an if statement 

# 2) a begin - end block 

# 3) a one line statement ending with a semi-colon; 



# 1) an if statement 

if ($if_body =- /'^(\s*)\bif\s*(\(.*)/s) 

^ my ($tmp,$if_conditions, $tmp_if_body) = &Count_Parentheses ( $2 ) ; 
#warn "if statement is ( $if_conditions) \n" ; 

$if_body = "$1IF " .&Process_If_Condition($if„conditions, ©Module 
THEN " ; 

($tmp_if„body, $rest_of_module) 
&Handle_Next_If_Else_Line ($tmp_if_body, @Module_Inf o) ; 
$if_body .= $tmp_if_body ; 

#If an else statement follows the block 
#Process it. 

if ($rest_of_module ( \s* ) else ( . * ) /s) 

{ 

$if_body .= "$1ELSE"; 

($tmp_if„body, $rest_of_module) 
&Handle_Next_If__Else_Iiine ($2 , @Module_Inf o) ; 
$if_body .= $tmp„if_body; 

} 

$if_body .= "\n$ spacing" . "END IF; " ; 
return ( $if_body , $rest_of_module) ; 

} 
45 

# 2) a begin - end block 

if ($if_body / ^\s*\bbegin\b/s) 

C 

#warn "hniel, begin end line, ib is $if_body\n" 
50 # i f ( $HNIEL_DEBUG ) ; 

my ($tmp, $tmp_body, $rest_of _module) 

&Count_Parentheses ($if_body, ' \bbegin\b' , ' \bend\b' ) ; 

#if we are in a begin_end block, then process each command. If 
55 an if statement 

# lurking, then call this function again. 

#my ©commands = split ( / \ ; / s , $tmp_if_body) ; 
my $line; 
60 $if_body = " " ; 

while (!($tmp_body =- /^\s*$/s)) 
{ 

( $ tmp , $ tmp_body) = &:Handle_Next_If _Else_L,ine ( $ tmp_body , 



@Module_Inf o 

$if_body .= $tmp; 

#wam "begin_end, ib{$if_body) \n— tmp_body ( $tmp_body) \n--\n" 
#if ($HNIEL_DEBUG) ; 

} 

#wam "hniel, ib now is ( $if _body) \n" 
#if ($HNIEL_DEBUG) ; 

return ($if„body, $rest_of_inodule) ; 

} 

#3) a one line statement ending with a semi-colon; 

if ($if_body \s* )(.*?;)(.*) /s) 

{ 

#warn "hniel, oneline ($2)\n" 
#if ($HNIEL„DEBUG) ; 

$if_body = $1 .&Process_Register_Assignment ($2 , @Module„Inf o) ; 
#warn " becomes ( $if __body) \n" 

#if ($HNIEL_DEBUG) ; 

$rest_.of_module = $3; 

return ($if_body, $rest_of_module) ; 

} 

} 
# 

# Process_If_Condition: converts verilog if conditions 

# to VHDL IF conditions . 

# V2VHD EcTuation 

# 

sub Process_If_Condition 
{ 

my ($condition, @Module_Info) = {@_) ; 
my ( 

$Width_Iiist, 

$Signal_List , 

$pWire_Assignments , 

$Eciuivalence_List) = @Module_Inf o; 

#wam "PIC, $condition\n" ; 
my %E_List; 

if ($Equivalence__List eq 
{ 

$Equivalence_List = \%E_List; 
$Module_Info [3] = $Equivalence_List ; 

#relational_eciuality__operators, and transforms copied from v2VHD_Equation; 
my $vhdl_relational_equality_operators = ' \<\= | \< | \>\= | \> | \= ( 1 > 1 \/ \= ' ; 

# If there is no relational__equality_operators in the equation, it's 

# implied that the equation != 0, i.e. 

# if (foo) //same thing as if ( f oo != 0) ; 

# if (Ifoo) // same thing as if ( I f oo != 0) ; 

my $result = 5cV2 VHD__Equati on ($ condition, @Module„Info) ; 

my $result„width = &Width_Of ( $result , $Width_List ) ; 

#die "ERROR Process_If_Condition, WIDTH FOR ($result) NOT KNOWN 
($condition) 'Xn" 

#unless ($result_width) ; 

my $rhs = 0 x $result_width; 

$result = &Replace_Equivalences {$result, $Equivalence_L.ist) ; 
my $return_string = "$result"; 



•^^vhdl_relational_equality„operato3^^^ 



if ($result • 
{ 

if ($result =^ /'^\s*\" [01] +\"\s*$/) 
{ 

if ($result =- /!/) 
{ 

$return_string = "true"; 

} 

else 
{ 

$retum_string = "false"; 

} 

} 

else 
{ 

$return_string = "($result) \/\= \"$rhs\""; 

} 

} 

#warn "PIC, returns $retum_string\n" if $start_special ; 
return ( $retum__string) ; 

} 

############################################################################### 
# 

# Get_Attribute_Types : Returns all attributes defined by VHDL code. 

# Currently, I have just pasted in the attribute definitions from exemplar .vhd 

# into a "HERE" string; 

############################################################################### 
# 

sub Get_Attribute_Types 
{ 

my {$pAttribute_List) = @_; 



my $vhdl„string = q[ 

-- Attribute declarations 



attribute 


required_time : 


time ; 


attribute 


arrival_time : 


time ; 


attribute 


output_load : 


real ; 


attribute 


max_load 


real ; 


attribute 


clock_cycle 


t ime ; 


attribute 


clock_of f set 


time ; 


attribute 


pulse_width 


: time ; 


attribute 


input_drive 


: time ; 


attribute 


nobuf f 


: boolean ; 


attribute 


pin_number 


: string ; 


attribute 


preserve_signal 


: boolean ; 


attribute 


no opt 


: boolean ; 



-- New attributes in 2 . 1 release 

__ Specify pin_numbers for bits of a 1-dimensional array 
type exemplar_string„array is array {natural range <>, 
natural range <>) of character ; 

attribute array_pin_number : exemplar_string_array ; 

— Buffer_sig attribute to force a (clock) buffer on a signal 
attribute buffer_sig : string ; 

— PAD attribute to force a particular PAD cell on a 10 pin 



^^^oes not work for Xilinx, Orca and^^^era. 
attribute pad : string ; 

— Type needed to indicate speed requirements for module 

generators 

type modgen_select is (smallest, small, fast, fastest) ; 

— Use this attribute to set speed on signals/variables 
attribute modgen_sel : modgen_select ; 

— New attributes in 2 . 2 release 

— Attributes for encoding of enumerated types . 

type encoding's tyle is (BINARY, ONEHOT, TWOHOT, GRAY, RANDOM) 

attribute TYPE_ENCODING_STYLE : encoding_style ; 

Example of using type_encoding_style for an enumerated 

type state_t is (PLAY, WAIT_FOR_MOVE , END_OF_GAME) ; 

attribute TYPE_ENCODING_STYIjE of state_t:type is 



attribute TYPE_ENCODING : exemplar_string_array ; 

— Example of using TYPE_ENCODING for an enximerated type : 
type state_t is (PLAY, WAXT_FOR_MOVE , END_OF_GAME) ; 

attribute TYPE_ENCODING of state„t:type is 

("Oil" , "110" , "101" ) ; 

] ; 



type : 
ONEHOT ; 



#Crush comments 

while ($vhdl_string s/'^ ( . *? ) \-\- . *$/$l/in) { ; } 

5 my ©commands = split ( / \s*\ ; \s*/s , $vhdl_string) ; 

foreach $command (©commands) 

if ($command /'^\s*attribute\s+ ( \w+) \s + \ : \s* ( \w+) /s) 
{ 

3 $$pAttribute_List{$l} = $2; 

#warn "Type $1 is $2\n"; 

} 
} 



45 



} 



############################################################################### 

# V2VHD converts from a synthesizable verilog file to a synthesizable vhdl file 
# 

50 # Still to be done 

# 1) Make multiple behaviour modules for each definition 

# 5) Save comments around modules sind always blocks 

# 6) Convert $display statements 

# 7) Make a special altera_verilog library that overloads verilog operators 
55 # That will make for a much cleaner compiler. 

# 

############################################################################### 
# 

sub V2VHD 

60 { 

my ( $Ver i log_S t r ing , 
$complete_f ilename, 
$pass. 



$Module_Indexecr_Port_Width_Pointer, 

$ Modul e_I ndexed_Po r t_Name s_Po inter, 
$Module_Indexed_Parameter_tiist_Pointer, 

$Component_List_Pointer) = @_; 



my %Entity_And__Architecture; 
my %ModuLe_Instantiation_Ijist ; 
my @Module_Array; 



#Put the whole shebang including ^included files in $line. 
$complete_f ilename =- tr|\\|\/|; 

my @tmp_path = split ( /\// , $complete_f ilename) ; 

my $ filename = pop (@tmp_path) ; 

my $path = join { " \ / " , @tmp_path) ; 

#wam "path, filename $path, $ filename \n" ; 

my $line = $Verilog_.String; 

$line ,= &read_fileCfhOOO' ,$f ilename, $path) ; 

my $all„entity_declarations; 
my $all„architecture„blocks; 
my %Def Param_List ; 

my $vhdl_module = " --$complete_f ilename\n\n" ; 
############### 

# Just like leonardo spectrum, we need to know components. 

# unfortunately, we forgot to include ifdef SIMULATION around the 

# component declaration. So we hack up a search using commented 

# information and stick the module back in $line after line has 

# been cleaned up. 
my $tmp = $line; 

my ^components = ( ) ; 

while ($tmp . ^ ^ j t ^ 

sj \/\/\s+Black\-box\s+declaration\s+for\s+simple\s+module\£ 

(module\s+\l. *?) 
\/\*\s+syn thesis \s+syn_black_box\s+\*\/ 

( . *?\bendmodule) 

I Isx) 

{ 

push ( ©components , $2 . $3 ) ; 

} 

#Find and process comments 
$line = &Kill„Comments ($line) ; 
#$line = &Process_Comments ($line) ; 

#Find definitions and process ifdefs 

$line = 5cProcess_Verilog_Directives ($line) ; 

#stick those components back in. 
$line .= join (" ©components) ; 
my %attribute__type; 

&Get_Attribute_Types ( \%attribute_type) ; 
#Process each module 

while ($line 
s/" ( . *?) \bmodule\s+ {\w+) . *?\; { . *?) \bendmodule\b ( . * ) $/$l$4/s) 
{ 

my $module_name ; 
$module„name = $2; 



#warn "module $module_name , pass $pass\n" ; 

if ($pass == 2) 

{ 



push (@Module_Array, $module_name) ; 

} 




undef %Paraitieter_List ; 
5 my %Paraineter_List ; 

my @parcLmeter_order - {) ; 
my $module_commands ~ $3; 
my $Process_Statements; 
my $Wire_Assignments = " " ; 
10 my %Declared__Components; 

my $instantiation_string; 
my $attribute_string; 

15 my %attribute_already_declared; 

#Clean up module_name 

$module„name s/-\s* ( . *?) \s*$/$l/s; 

#warn "module name is $module_name\n" ; ^ ^ ^. „ r,pnPFqc;TMr MODULE 

20 warn "VERILOG TO VHDL CONVERSION: " . &date_time . " PROCESSING MODULE 

$module_name\n" ; 

# we need to know all defparams before we instantiate a module 
25 # So we look for defparams separately and store ttiem in 

H # %DefParam_List which is indexed by instance name 

^ # When it comes time to instantiate a module, we will have all 

ffl # the information we need. *^/^:1<':l/o^ 

a while ($module_commands =- s/- { . *?) \bdefparam\s+ { . *?) \ ; ( . *) /$l$3/s) 

P 30 { _ T 

U #defparam ins tance_name .parameter - value, 

Q # instance_nameX.parameterY = valueZ ; 

5^ #print "found defparam $2\n" ; 

foreach $defparam (split ( /\s*\ , \s*/s , $2 ) ) 

□ ^ if ($defparam /-\s* ( \w+) \ . ( \w+) \s* \=\s* ( \S+) / ) 

M ^ $DefParam_List{$l} .= " , \n" if ( $Def Param_List { $1} ) ; 

ry $DefParam_List{$l} .= " $2 => $3"; 

h 40 #warn "adding $2 => $3 to dplist $l\n" ; 

else 

^ die "ERROR: defparam statement $defparam not understood!"; 

45 } 

} 

} 

^###^####################################################### 
50 # We need to find all exemplar attributes separately of the 

# commands that are split by semi-colon. 

# So we look for exemplar attributes separately and store them 

# When it comes time to instantiate a module, we will have 

# the attribute information that we need. 

55 # warn "before exemplar check, $module__commands\n \n" ; 

# NO EXEMPLAR ATTRIBUTES ARE RESPECTED, MODULES WITH NO CONTENTS WILL 

# BE CONVERTED TO BLACK BOXES 

while ( 0 ) # ( $module_commands s/ •)\ \ 

60 \s*exemplar\s+attribute\s+ { . *?) \s*$/$l/mi) 
{ 

my $attribute_info = $2; 

my ($name, $attribute,$attribute_value) = split (/\s+/,$^); 
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$attribute t^r/K-Z/a-'z./; 

my $att type = $attribute_type {$attribute} ; 

#wam "attribute found: name , attribute , at tribute_value - 
$name, $attribute, $attribute„value, $att_type\n" ; 
if ($att_type) 

^ $attribute„string .= " -attribute $attribute : $att_type ; \n" 

unless ($attribute„already_declared{$attribute}) ; 
$attribute_already_declared{$attribute}++; 

$attribute_string .= " -attribute $attribute of $ name : ENTITY 

is $attribute„value; \n" ; 
} 

15 #warn "after exemplar clieck, $module_commands\n \n" ; 

#A11 other commands are separated by and are processed inline with 

each command. 

20 ##################################################********** 

# Port_Iiist only contains information for module ports 

# Signal_List only contains information for wires and registers 

# Port_Width, Port_Type contains info for all ports, wires and registers 
25 # They should probably be renamed AllJJodes.Width/Type or something 

# Port.Type is indexed by verilog ( input . output , inout , r eg, wire) its 

result is ^ ^ ^ 

5 # a " , " separated list of all ports of that type 

S # Port_Width is indexed by the port name. Its result is " left, right" 

O where ^ ^^^^ _^ dimension of the array, right is the last dimension. 

J' # eg. for wire [7:3] foo; $Port_Width{ " foo" } = "7,3"; 

i=™ 35 # 

4i pri■r^ "List is indexed by the module port_name . 

J Its value is SIGNAL $port_name : ( IN | OUT | INOUT) ST0_I.OGIC (.VECTOR?) 
^ (left DOWNTO right) 

P 40 # Signal_List is indexed by the register/wire name t nrxr f VECTOR-^) 

S # Its value is $Signal_List {$port } = "SIGNAL $port : STD.LOGIC (.VECTOR? ) 

(left DOWNTO right)" 

undef %Signal_List ; 
45 my %Signal_Iiist ; 

undef %Type_List; 
my %Type_List; 

50 my %Memory__Type ; 



US 
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undef %Port_List; 
undef %Port_Width; 
undef %Port__Type; 



my %Port_List; 
my %Port_Width; 
my %Port_Type; 
if (0)#($pass == 2) 

^ my $Port„Width_Po inter 

$$Module Indexed_Port_Width_Pointer{$module_name} ; ^^..^,^^v „ 

" die "ERROR MODULE ( $module_name) HAS NOT BEEN PREVIOUSLY SCANNED\n 



if ($Port_Width_Pointer eq " " ) ; 

foreach $key (sort (keys (% { $Port„Width_Pointer} ) ) ) 

^ #wam "module_name ( $module„naine) key ($key)\n"; 
$Port_Width{$key> = "TakenXn" ; 

} 

$Module_Indexed_Port_Naines__Pointer, 
$Module_Indexed_Paraiaeter_List_Pointer, 

my @Module_Info = ( \%Port_Width A%Signal_List A$Wire_Assignments) ; 

my $counter - 0 ; 

my $nuinber_of_commands = 25; 

while ($module_commands =- s/'^ ( . *?) \ ; ( • *) /S2/s) 

^ #Counter prints " . " after $number_of ^commands 
$ counter ++; 

print STDERR " . " ^ ^ _ nx 

if (($counter % $nuinber_of_coinmands) =- U); 

my $this_coinmand = $1; 

my $next_commands = $2; 

my $rest__of_module = "$1\;$2"; 

#warn "rom is $rest„of_module \n" ; 

#wam "tc, $this„coinmand\n" ; 

#Search for parameters and determine their type, 

#?Ses are "NATURAL" if they only contain numbers, else Type 

"STRING" ^5this„command =~ . *?) \bparameter\sM . *?) \s*$/s) 

{ 

my $parameter_equation; 

$parameter_equation = $2; _ , 

my ($param_lhs,@param_rhs) - ^ 

( /\s*\ = \s*/ , $parameter__equation) ; 

my ($param_rhs) = join ( " \ = " , @param_rhs ) ; 
my ($parameter_type) = "STRING"; 
$parameter_type = "NATURAL" 

if ($param_rhs =- s/-\s* ( \d+) \s*/$l/s) ; ^ 
#warn " $param_lhs , $param_rhs , pt is l^^^^^'^ll-''^^^^ type 
#was $ parameter's tring .= " $paraitulhs : $parameter„type 

'^""""-"'^''%krameter_List($param_lhs> = " Sparameter_type := $Param_rhs" ; 

#warn " found paramter " . $Parameter„List {$param_lhs} . \n , 

} 

############### 

# Get Signal Definitions 
. ^ if (Sthis_command 

/{.*?) \b ( input 1 output \ inout \ reg | wire | integer ) \b ( . * ) / s ) 
{ 

my $direction = $2; 
my $port_list - $3; 
my $left__index = ""; 
my $right_index = " " ; 
my $ width; 

############### 

# (Signal Widths Width > 1) => std_logic_vector 

if ($port_list =^ s/-\s*\t(t-\:U)\:([-\]]+)\lNs*(-*)/$3/^ 

$left_index = eval($l); 
$right_index = eval($2); 



$type 

"STD_LOGIC_VECTOR" . StVector_Order { $lef t_inciex, $right_index) ; 

$width = "$left__index, $right„index" ; 

} 

else #Width is one. 
{ 

if ($direction /'^inoutS/) 
{ 

#all inouts of width one should be considered 
#std_logic_vector . 

$type = "STD_LOGIC_VECTOR (0 DOWNTO 0)"; 
$width = "0,0"; 

} 

else 
{ 

if ($direction =- /'^integerS/i) 
( 

#Convert integers to 32 bit STD_IiOGIC_VECTORS 
$width = "31,0"; 

$type = "STD_LOGIC_VECTOR(31 DOWNTO 0)"; 

} 

else 
{ 

############### 

# everything else is STD_IiOGIC , 

# (wires and registers which will 

# be converted back to STD_LOGIC_VECTOR in the if ( 

condition below.) 

# Perhaps this could be cleaned up later 
$type = "STD_LOGIC"; 

$width ="0,0"; 

> 

} 

} 

############### 

# Wires can be declared and assigned to in the same statement 

# e.g. wire a = b + c; 

# So we strip away everything after the first "=" assignment 

# And put the results in $Wire_Assignments 
my $rhs; 

if ($direction eq "wire") 
{ 

my @rhs = { ) ; 

($port_list,(arhs) = split { /\s*\={l} \s*/s , $port_list) ; 
$rhs = join ("=",@rhs); #Put $rhs back together again 

} 

############### 

# Handle memories e.g. 

# reg [7:0] mem_array [512 - 1 : 0]; 

if ($port_list s/'^(.*?)\[(.*?)\: {.*?)\]\s*$/$l/s) 
{ 

my $up_index = eval($2) ; 

my $down_index = eval($3); 

$ width . = " , $up_index, $down_index" ; 

my $array_order = &Vector_Order ( $up_index, $down_index) ; 
my $mem_type = "memory_type_$array_order " ; 
while ($mem_type =- s/\s/\_/){;} 

my $memory_type 
&:Get_Exclusive_VHDIi_Name ($mem_type, \%Port_Width) ; 

$Type_List{$memory_type} = "TYPE $memory_type IS 
$array_order of $type;"; 



$ t yp e = $ memo ry_t yp e ; 

} 

############### ^ T^ci- 

# Get Port Names and transform names to Port/Signal_L.isc 
$port_list s/-\s*(.*?)\s*$/$l/s; #Strip spaces at either end 
foreach $port ( split ( /\s*\ As*/s , $port_list) ) 

^ die "ILLEGAL PORT NAME $port, $l\n" if ( $port /(\W)/); 
$Port_Type{$direction} .= "$port, " ; 
$Port_Width{$port} = $width; 

############### . 
# If direction is a port, put it m port_list 

if ( (Sdirection eq "input") 11 
($direction eq "output") \\ 
($direction eq "inout") 
) 

{ 

my %dir_xform; 

$dir_xform{" input"} = "IN"; ^ 
$dir_xform{" output"} = "OUT" ; 
$dir_xform{" inout"} = "INOUT"; 
$dir__xform{"reg"} = 
$dir_xf orm{ "wire" } = 



have a tmp 



n n 

/ 

It II 



my $dir = $dir_xf onn{$direction} ; 
$Port_List{$port} = "SIGNAL $port : $dir $type" ; 

) 

############### , , „, .^^ 

# If direction is an internal signal or (an output which must 

# signal associated with it) or (an input port of STD_LOGIC) 

# declare it in %Signal_List 

if ( ($direction eq "wire") || 
($ direct ion eq "reg") 11 
($direction eq "integer") || 

($direction eq "output") || ,^„-rr,n» n 

( ($direction eq "input") && ($type eq " STD_LOGIC " ) ) 

) 

{ 

# Convert all STD_LOGIC to STD_LOGIC_VECTOR ( 0 DOWNTO 0) 

mv $tmp type = $type; „. ,. 

$tmp_ty^e =~ s/-STD_LOGIC$/STD_I,OGIC_VECTOR(0 DOWNTO 0)/i; 

############### V, 

# DO not put a wire/ register in signal list xf xt has already 

# been declared in port list . 

$Signal_List{$port} = "SIGNAL $port : $tnip_type; " 
unless $Port_List{$port} ; 

#wire foo = some value; // Put (foo = some value) in wire 

assignments .j. , na\ \ 

if ( ($direction eq "wire") && ($rhs ne " " ) ) 

^ my $wire_assignment = &V2VHD_Equation_Wrapper ("$port = 

$rhs" . @Module_Info) ; . ^ v„„ 

$Wire_Assignments .= " $wxre_assxgnment; \n , 
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if ( $direction eq "input" |1 $direction eq "output") 
{ 

#^########################################################## . 

# VHDIi will not allow you to make equations 

# with outputs in the equation rhs . So we 

# make a wire called tmp_$port for each output named 

# later we assign the output $port <= tmp_$port and 

change all ^ ^ 

# assignments in the module to use 

# tmp_$port instead of port. 

my $tmpj)ort 

&Get Exclusive„VHDL_Name{"tmp„$port",\%Port_Width) ; 

#keep $port as the key so we can wire up tmp_$port and 

$port later $signal_List {$port} = "SIGNAL $tmp_port : $tmp_type;"; 

#wam "added ( $Signal_List { $port } ) in addition to 
portlist ($Port_List{$port}) \n" ; 

} 

} 

} 

#caSnot^do^Sext until 'we've determined that the entity is a black box 
if ($this_command =- ( \s* ) \bassign\b ( . * ? ) \= ( ■ * ) $/s) 

^ rny $wire_assignment = " " . &V2VHD_Equation_Wrapper ("$2 = 

$3 " , @Module„Inf o) . " \ ; \n" ; 

$Wire_Assignments .= $wire_assignment ; 

} 



15 
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#get module instantiation , , , , . 

if {$this_command =- /(.*?) (\w+) \s+ (\w+) \s*\ ((.*) \ ) \s*$/s) 



my $module_being_instantiated = $2; 
40 my $instance_name = $3; 

my $Connections = $4; 



45 



50 



############### 

# hack a register into syn_dpram 

if ($module_being_instantiated =- /-syn„dpram_{ \d+) x ( \d+) \„ruwr$/i) 

#warn "warning, found syn_dpram\n" ; 
my $WrAddress = $Connections ; 
my $WrClock = $Connections ; 

die "WrAddress not found for IiPM__ROM $instance__name" 
unless ($WrAddress 
*-?\ . \s*WrAddress\s*\ (?\s* (\w+) .*$/$l/s) ; 

die "WrClock not found for IiPM__ROM $instance_name" 
55 unless {$WrClock 

s/'^.*?\.\s*WrClock\s*\(?\s*(\w+) .*$/$l/s) ; ^. ^ o- i 

my $Delayed_Address = ficAdd_Intermediate_Signal 

( " dl_$WrAddress " , 

60 ScWidth Of ($WrAddress, \%Port_Width) , ^ ^ , 

~~ @Module_Inf o) ; 

$Connections s/\b$WrAddress\b/$Delayed_Address/ ; 



$Process_Statements .= " — GENMEM WARNING!!! SUPER HACK MADE FOR 
VERSION 1.0 SIMULATION WARNING! I ! WARNING 1 !! \n " ; 

$Process_Stateinents .= " — GENMEM of 

$module being_instantiated\.vhd DOES NOT CORRECTLY LATCH WrAddressXn" ; 

$Process_Statenients .= "—SO WE HACK IN A LATCH HERE AND WIRE 
$itiodule being_instantiated\ .WrAddress to $Delayed_Address\n" ; 

$Process_Stateinents .= "PROCESSXn BEGIN\n WAIT UNTIL 

$WrClock = \"l\";\n $Delayed_Address \<\= $WrAddress ; \n" ; 

$Process_Statements .= "END PROCESS; \n"; 
die "using memoryXn" ; 

} 

if {$module_being_instantiated /'"LCELLS/i) 
C 

$Connections =- s/\s+//gs; 

my {$lhs,$rhs) = split (/\, /s, $Connections) ; 
$Wire_Assignments .= " — LCELL $lhs = $rhs\n" ; 

$Wire_Assignments .= " " . &V2VHD_Eq[uation_Wrapper {"$lhs = 
$rhs" , @Module_Inf o) . " \ ; \n" ; 

} 

else 

^ #wam "VERILOG TO VHDL CONVERSION: " . &:date__tiine . " : 
INSTANTIATING $instance_naine IN MODULE $module_name \n" ; 

#lf module_being_instantiated is a black box, declare it as 

a component , 

#else instantiate it normally 

) #fpga express likes everything to be a component. All 

other files accept ENTITY work and only use component as a black box. 

tforcing if (1) makes fpga express 

tthappy. component_list_^ointer makes everyone else happy 
5 if ($$Component„List_Pointer{$module_being__instantiated} ) 

$Declared„Components { $module_being_instantiated} ++ ; 
$instantiation_string .= " $instance_name : 

$module_being_instantiated\n" ; 

D } 

else 

{ 

if ($pass == 2) 
{ 

45 $Module_Instantiation_List {$module_name} 

"$module_being_instantiated, " 

unless ( $Module_Instantiation_List { $module_name } 
=- /\b$module_being_instantiated\, /) ; 

} 
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$instantiation_string .= " $instance_name : ENTITY 
work. $module_being_instantiated\ (behavior \) \n" ; 

} 



55 if ($Def Param_List{$instance_name} ) 

{ 

$ instant iation_string .= " GENERIC MAP 

\ (\n" .$DefParam_List{$instance_name} . " \) \n" ; 

#wam " PARAMETERS in 

60 $instance__name\n" . $Def Parain_List { $instance_name} . " \n" ; 

) 



############################################################ 
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# I initially thought it would be r~ly easy to just hook 
up the ports. 95% of the time it is total cake. 

# But 5% of the time is a royal paxn. 

# Here are the major differences between verilog and VHDL 

port instcintiation . 

# 

# 1) Verilog does not care that you leave a port 
unconnected. VHDL does. ^^^^^^^ ^^^^ ^^^^ ^^^^ ^.^^^^ ^^^^^ 

the widths of the connected signal 

# do not match. VHDL does. . 

# 3) Verilog considers a bit vector of width 0 and a single 

bit to be interchangable. considers STD_I,OGIC different than 
STD_LOGIC_VECTOR ( 0 DOWNTO 0) . 

# Problem 1 is easy to solve: Keep a list of module ports 
and instantiated connections ^^^^ ^^^^ ^^^^ ^^^^ associated connection 

gets wired to "open". 

# 

# Problem 2 is solved in the following manner: 

# If a port is an input, e.g. " . input_signal ({-a , 
□ 25 {4(b}}})", ^ ^^^^-L^^ f^^^ 

£ V2VHD_Ecxuation.Wrapper(input_signal = ( (~a ^^^^'^ ' ^ ' '^J.^^^^^^ 

m # is sophisticated enough to deal with axi veri±og 

operators and can also reconcile widths, 

# 

# For each output connection, e.g. " .output_signal {{-a , 

^^^^^^^^ # we make a tmp„output_signal which has the same width as 

the output port. Then we use V2VHD_Equation ,„ / r . IdfblM^ = 

25 # again, &:V2VHD_Equation_Wrapper ( " ( {~a , {4 {b} } } ) 

tmp_output_signal" . . . ) . 

# Problem 3 is also solved by having a tmp signal act as the 

go-between . 

I This makes for very ugly vhdl code. When I have time. 

I'll fix it so that the . ^ . ^ co. ^-p 

# only time we generate a tmp signal is for the nasty 5% of 

the time. 
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45 

$Module_Port_Names__Pointer 
SSModule indexed_Port_Names__Pointer{$module_being_instantiated} ; ^ . ^ 

(iie "ERROR IN INSTANTIATING ( $module„being_xnstantiatecl) . 

50 UNKNOWN MODXILEXn" ^ . « n ^ r^T^^oo — 

if ( ($Module_Port_Names_Pointer eq "") && ($pass — 

2) ) * _ 

niy $Module__Port_Width_Pointer 

$$Module_Indexed_Port_Width„Pointer($module_being_instantiated} ; 

55 #my $Module_Parameter_Pointer = 

$$Module_Indexed_Parameter_List_Pointer{$module_being_instantiated} ; 
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my %Connection_Ijist ; 

foreach $connection (split ( / \s*\ , \s* /s , $Connections) ) 
{ 

#last if ($pass == 1); 



if ($connection / \ . \s* ( \w+) ( . * ) 
{ 

my $Module_Port_Nanie ; 
$Module_Port_Name = $1; 
#my $Cormection_rhs = $2 ; 

my ($tmp, $Connection_rhs, $tmp2) = 

&Count_Parentheses ($2) ; 

die "ERROR INSTANTIATION OF $instance_naine IN MODULE 
$moduIe_name NOT UNDERSTOOD ( $connection) $l\n" 

if ($Connection_rhs eq ""); 
$Connection_rhs s/'^\s* ( . *? ) \s*$ / $1/ ; 

$Connection_List{$Module_Port„Naine} = $Connection_rhs ; 
#wam " INSTANTIATION ( $module_being_instantiated) 
adding $Connection_rlis , 

SModule Port Name ( " . $Connection_List { $Module_Port_Name} . " \n" ; ^ 
^ - " die "ERROR INSTANTIATION OF MODULE 

Smodule being instantiated NAMED $instance_name \n" .^^^x^ttxt 
^ _ y- ."IN MODULE $module_.naine REFERS TO AN UNKNOWN 

PORT $Module„Port_Name\n" 

unless 

($$Module_Port_Width_Pointer{$Module„Port_Name} 1| ($pass == 1)); 

} 

else 

^ die "ERROR INSTANTIATION OF $instance„name IN MODULE 
$module_name NOT UNDERSTOOD ( $connection) $l\n" ; 

#$module^ort_list .= " $connection , \n ; 

} 

} 

my $module_port_list ; 

my $pw_array = join ("\n " , keys ( %Port„Width) ) ; 

#loop over ports of module being instantiated 

foreach $port (sort (keys ( %$Module_Port_Names_Pointer )) ) 

^ my $what_port_connects_to = $Connection_List {$port } ; 
if ($wliat_port__connects_to eq " " ) 

$module_port_list .= " $port => open,\n ; 

next ; 

} 

my $port_width = &Width_Of ( $port , 

$Module_Port_Width_Pointer) ; 

my ($tmp_name, 
$direction, 

$port_type) ^ 
&Get_Port_Name_Direct ion„And_Type { $ $Module_Port_Names_.Pointer { $por t } ) ; 

my %E_List; 

my $port_name - 

&V2VHD_Equation($what_port_connects_to,@Module_Info, \%E_List) ; 

$port_name s/'^Xs* ( . *?) \s*$/$l/s ; 

my $connection_width = 

&Width_Of ($port_name, \%Port_Width) ; 

if ( $connection_width eq && ($direction =- /"OUT$/) 

ScSc ($pass != 1) ) 

{ 
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warn "WARNING: INSTANTIATION^^ $instance_naine IN 
MODULE $module_naxne HAS ALPORT _NAMEDXn- ; ^ ^^^^,_^„^^_,„,,3,ts_to) THAT HAS NOT 
BEEN DEFINED. ASSUMING A^SIGN;^ OF KQUIVALENT TO WIDTH OF 

MODULE ($module_being_instantiated) PORT\n" ; 

warn " ( $por t_name ) \n " ; 

$connection_width = $port_width; 

^dd_Intermediate_Signal ($what^ort_connects„to, $connection„width, @Module_Xnf o) 



if ($E_I.ist{$what_port_connects_to} ) 

$port_width 

&Width_Of ( $what __port_connects_to , \%Port_Width) ; 

} 

2Q #If the port width does not match or if 

$what_port_connects_to contains some funky operators 

#do the safe thing and make a tmp_wxre. 

if ( ($connection_width != $port_width) 1| 

Q 25 ($what_port_connects_to /\W/)) 

~z { 

'^3 if ($direction =- /'^INOUT$/i) 

m { 

K foreach $a (keys {%Port_Width) ) 

□ '^n t 

print "cw $a, $Port_Width{ $a} \n« ; 

b > 

^ foreach $foo (keys (%$Module„Port_Width_Pointer ) ) 

O print "here is module $foo, 

$$Module_Port_Width_Pointer{$foo}\n" ; 

m die ("ERROR MODULE $module_name , INSTANTIATION 

Q 40 Sinstance name INOUT PORT, \n" „^^+.v.\ 
™ :?insi.^ - . " $what_port_connects_to (width $connection_width) 

MUST HAVE THE SAME WIDTH AS $port (width $port_width) \n" ) ; 

} 

45 if ($direction =- /^IN$/i) 

$what_port_connects_to = "To_$instance_name\_$port " ; 

$what_^ort__connects„to 
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&Get Exclusive„VHDIi_Name($what_port_connects_to,\%Port_Width) ; 

~ #warn " instance_name is $instance_name , port is $porc, 

mpwn is " . $$Module_Port„Width_Pointer {$port} . " \n" ; 

$Port_Width{$what_port_connects_to} 

$$Module Port_Width_Pointer{$port} ; i 

$Signal_List{$what_port_connects_to) = &Declare_Sxgnal 

55 ($what j>ort_connects_to, \%Port_Width) ; 

$Wire_Assignments .= " . &V2VHD_Equation_Wrapper 

( " $what_port_connects_to = " - $Connection_List { $port } , 

60 @Module_Info)."\;\n" ^^^^^^ _ 

} 

if ($direction =- /'"OUT$/i) 
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$whit_port_connects_to = "From.Oinstance.nameX.Sport" ; 

$what_port_connects_to 

aGet_Exclusive_VHDI._Name ( ^-^-^^-^^--^^^^^^^^^^ 

$$Module_Port_Width_Pointer_(^por^^^^^ ^ ^Oeclare.Signal 

{$what_port_connects_to, \%Port_Width) ; 

$Wire_Assignments .= " " . &V2VHD_Equation_Wrapper 

($Connection_List{$port}." = $what_port_connects_to" , 

@Module_Info) . "\; \n" ($pass == 2); 

15 > 

$what_port_connects_to .= "(0)" if ($port_type =~ 

/'^STD_LOGIC$/i) ; „ Sport => 

$module_port_l3.st . = 

20 $what_port_connects_to, \n" ; 

} 

#Lose the last comma 
$module_port_list =- s/\,\s*$//s; 

25 $instantiation_string .= « PORT MAP UVn"; 

O $instantiation_string .= ••$module_port_list \)\,\n\n , 

3 } 
m > 

30 



i a 



I y 



a 40 
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# in verilog, you often declare a bunch of wxre and ^^f ^^^. ^^^^^^f it 

# right before you do an always or initial block. It s nice 

this way ^ ^^^^ ^. ^^^^ determine the outcome of the always statement 
35 # are near the actual always statement. 

I we do the same thing in our initial and always blocks. 

# We put all previously assigned wires ^„ 

I before the ?R0CESS statement. And clear out $Wire_Assignments so 

# that the assignments only show up in one place. 
# 

# find initial always statements. 

# assume that a statement always @ (posedge a or posedge b) 
5 ll^l has "a- as the clock and "b" as the asynchronous event. 

# we can get fancier later. 

if {$rest„of_module /-\s*\b (always 1 initial) \b\s* (.*) $/s) 
{ 

50 #update heartbeat 

print STDERR " . " ; 
$counter = $number_of_.coinmands ; 

#wam " in always statement\n" ; 
55 my $always_or__initial = $1; 

my $always_statement = $2; « 
#warn "found always statement, $always_statement\n ; 

my $clk; 

my $clk_level = "0" ; 
60 W $edge; 

my $asynch.ronous_event ; 

my $asynchronous_level = "0"; 

my $asyncl:ironous_edge; 



i 



my $wait_statement ; 
my $t:mp; 

my $always_condition; 
my $always_innards - $2; 
my $ tmp_alway s_condi t ion ; 

$Process_Statements .= $Wire_AssigTiinents ; 
$Wire_Assignments = " " ; 

#Search for always @(foo) 

if ($always_statement =- /^\@{.*)$/s) 

{ 

#warn " f oxind \@ remaining $l\n" ; 

{$tmp, $always_condition, $always_innards) 

&:Count__Parentheses($l) ; 

#convert always condition 

$tmp__always_condition = $always_condition; 

#get clock and clocks edge /c-o / ^ 

if ($always_condition s/ (pos j neg) edge\s+ { \S+) ( . * ) / $3 / s ) 

{ 

$clk = $2; 
$edge = $1; 

$clk_level = "1" if ($edge eq "pes"); 

#$wait_statement = "UNTIL $clk = \'".($edge eq "pos ). \ ; 
$wait_statement = "UNTIL $clk = \"".($edge eq "pos")."\""; 

#warn "always condition is ($always_condition) \n" ; 

} 

else 

if ($always_or_initial =- /always/i) 

^ #No clock statement, but possibly a conditional always 
#e.g. always @{a or b or c) 

while ($always_condition =- s/ \s*\bor\b/ \ , / i ) { ; > 
$wait_statement = "ON $always_condition" ; 
#wam "wait_statement is $wait_statement\n" ; 

} 

} 

} 

my $rest_of_module_innards; 
( $always_innards , $res t_of _module_innards ) 
&Handle„Next_If „Else_Line ( $always_innards , 

@Module_Info) ; 

my %Variable_Conversion_List; ^ 

while ($always_innards s/Please Convert {\w+) To A Variable//s) 

{ 

#wam "found conversion of ($l)\n"; 
$Variable_Conversion_List {$1} ++ ; 

} 

foreach $VCL (keys (%Variable_Conversion_List ) ) 

^ #warn "VCL is ($VCL), width of 

" .&Width_Of ($VCL,\%Port_Width) ."\n"; . , „„.^-r7vx.r it twnr « 

#my $tmp_name = 5cAdd_Intermediate_Signal ( " VARIABLE_$VCL , 

#&Width_Of ($VCL, \%Port_Width) , 
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#@Module_Inf o) ; 

tadd intermediate signal, but don't use function since 
# its possible the signal is a memory 

"""^ ^Sl!Sclusive_VHDI._Name ( ■•VARIABLE_$VCL" , \%Port_Width) ; 

my $tmp_signal_list = $Signal_Listl$VCL} ; 
$tmp_signal_list =- s/\b$VCL\b/$tmp_name/g; 
$Signal_List{$tmp_name} = $tmp_signal_list ; 
$Port_Width{$tmp_name} = $Port_Width{ $VCL} ; 
#warn "vcl $VCL. tmp_name $tmp_name, width 

#$Port_Width{$tmp_naine}, signal $Signal_List{$tmp_name}\n ; 



15 &convert_Signals_To_Shared_Variable($tmp_name,\%Signal_List) ; 

while ($always innards =- s/\b$VCL\b/$tmp_name/si) { ; } 
$always_innardi = " $tmp_name := $VCL; \n$always_xnnards\n 

$VCL <= $tmp_name; " ; 
20 > 

# &Handle_Next_If_Else_Line has converted everything inside 
always statement to always_innards and the rest 

always ^ module is in $rest_of_module_innards ; So set our top 

r* level module_commands = $rest_of_module_innards 

2: # and continue parsing from there, 

is $module_commands = $rest_of_module_innards ; 



Q 25 
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#get asynchronous signal and edge if it exists . , 

if {$always_condition =- /\s+or\s+ (pos |neg) edge\s+ (\S+) /s) 



$asynchronous_edge = $1; 
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$asynchronous_event = $2; n„„„i. \. 

$asynchronous_level = "l" if ($asynchronous_edge eq pos ), 

ff^ #my $first_if_then_statement = "IF $asynchronous_event = 

ft N-$asynchronous_level\' ™;;_,,_,^,,_,,,,,,ent = "IF $asynchronous_event = 

p 40 \"$asynchronous_level\'' THEN" ; 

^ my $death_string = "ERROR ALWAYS CONDITION 

,tmp_always_condition^™^^^^ 
45 ."INSIDE ALWAYS BLOCK IS ( $always_innards ) . \n" ; 

#Process first if condition ^r-^^^ 

#make sure asynchronous edge was involved m first it 

computation . 

die ("$death_string") unless ( $always_innards 
s/" (\s*) IF( , *?)THEN( . *) $/$l$first_if„then_statement$3/s) ; 

die^r$deathlstring") unless ($fic /$asynchronous„event/s ) ; 
55 die ( "$death_string" ) unless 

($always_innards ^ t i, 

s/($first_if_then_statement.*?)ELSE(.*)$/$lELSIF $clk\ 'EVENT AND $clk - 

\"$clk_level\" THEN$2/s) ; 

60 $Process_Statements .= "PROCESS ( $clk, $asynchronous_event) \n 

BEGIN" ; 

$Process_Statements .= " ; 



else 

^ $Process_Statements .= "PROCESS\n BEGIN\n" ; 

$Process_Statements .= " WAIT $wait.statement ; \n" 

if {$wait_statement) ; ^ „^ v « 

#$Process_Statements .= " $always„innards \n END PROCESS; \n"; 

} 

$Process_Stateinents .= $always_innards ; 
$Process_Statements .= " \n WAIT;" 

if ($always_or_initial =~ /initial/) ; 
$Process_Statements .= " \nEND PROCESS; \n\n" ; 
} #Done with always @innards . 

#If we've printed status print a new Ixne 

print STDERR "\n" 

if ($counter >= $nuinber_of_coinmands) ; 

^^########################################################## 

# Put it all together. 

I Check to see if anything needs to be put inside the architecture block 

# If nothing does, assume its a black box and instantiate a "component 

with same Parameters and Ports as the entity hooked 

up to the 

# component . 

# P.S. I hate black boxes. 

{ ($Process_Statements . $Wire_Assigninents . $ instant iation_s tr ing . $attribute_string 
) eq "") 

^ my $Component_String = 

ScDeclare Entity ( $module_naine , \%Port_List , \%Parameter_List ) ; 

"while ($Component_String =- s /ENTITY/ COMPONENT/ ){; } 

while ($Coniponent_String s/END\s4-$module_name\s*\ ; /END 

COMPONENTX ;/){;} 

my $tmp_cs = $Component_String; 

$Component_String .= " —attribute noopt : boolean; \n" ; 

$Component_String .= " attribute noopt of $module_name : component is 
true;\n"; $component_String .= " -Hard instantiation of $module_name 

megafunction in VHDL with user defined parameters\n\n\n" ; 

$$Component_List_Pointer{$module_name} = $Component„String; 

#else #It is not a black box, declare it as a normal module 

{ ( $Process_Statements . $Wire_Assignments . $instantiation_string . $attribute_string 
) ne " " ) 

^ #######################################################^*##^ 

# Unlike Verilog, VHDL requires that all entities be defined before 

another ^ architecture block instantiates said entity. (Sounds like a legal 

verdict doesn't it?) . ^ ^v,t-^ 

# So, we put our port and parameter information into 

$entity_declaration, then put all 

# $entity_declaration at the top of our file. 

my $entity__declaration 
&Declare_Entity ($module_name, \%Port_List, \%Parameter_List) ; 

#Everything below goes in the architecture block. 



IS\n" 



put a commented out entity declaration ^^here too so 

#it will be easier for a coder to figure out what is going on 
#Put it all in a string called $architecture_block 

my $architecture„block = "ARCHITECTURE behavior OF $module_name 

my (@Component_Array) = sort (keys (%Declared_Components) ) ; 

$architecture_block .= "attribute noopt : boolean; \n' if 



@Componen t_Ar ray ; 

foreach $key {@Component„Array) 

^ $architecture_block .= ($$Component_List_Pointer {$key} ) ; 
} 

foreach $type (sort (keys (%Type_List) ) ) 

^ $architecture_block .= " " . $Type_List C $type} . " \n" ; 
} 

while ($Wire_Assignments s/W/g){;} #crush tick escape character 
should already be done, but it does not hurt anything 
#warn "wa is $Wire_Assignments\n" ; 

########################################################*### 

# VHDIi will not allow you to make equations 

# with outputs in the equation rhs . So we 

# make a wire called tmp_$port for each output 

# and assign the output $port <= tmp_$port . All 

# other assignments in the module are changed to use 

# tmp_$port instead of port. 

# Also, VHDL considers std_logic to be different than 
std_logic_vector(0 downto 0). Verilog does not. ^ ,n 

# We solve this above by assuming everything is a std_logic_vector ( u 

downto 0). Here we'll take 

# a port (std_logic) and instantly convert it to tmp_^ort 

(std_.logic_vector (0 downto 0)) and set 

# tmp__port(0) <= port; if port is input and port <= tmp^ort(O) it 

port is output . n . 1 , 4- 

# Extra tricky, though is that fpga express does not like event on 

std_logic_vectors . 

# we'll need to convert 'event signals back to std„logic 

foreach $port_declaration (sort (keys (%Port_Iiist) ) ) 
my ( $port_name, $port_direction, $port_type) = 
&Get_Port„Name_Direction__And_Type($Port_List{$port_declaration} ) ; 

my $port_type_is_std__logic = 0 ; 
$port_type__is_std_logic = 1 

i f ( $port„type s / -STD_LOGIC $ / STD_LOGIC_VECTOR ( 0 DOWNTO 

0) /i) ; 

my $tmp_signal_list = $Signal_List { $port_declaration} ; 

( $tmp_signal_list 
/'"Xs* (SIGNAL I VARIABLE I SHAREDXs+VARIABIiE) \s* (\w+) /is 
# ($port_direction /^OUT$/i) |1 
# ($port_type_is_std_logic) 

) 

{ 

my $tmp_port_name = $2; 
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#warn "port_name is $port_name ^fe)_port_naine is $1, 

$txnp^ort_name\n"; ^^^^ ^.^^ Process. V^ire, or 

instantiation signal uses it. 

my $port„naine_used =0; t_ • t 

#Orion, maybe could use /g option here if we knew the special 

variable for how many i 
#times /g matched or we could next if we were here for pass i 

while ($Process_Statements 
s/\b$port„name\b/$tmp_port_name/s) {$port„name_used++ ; } 

my $event_Process_Statements; 

#Remember, elk is first in an asynchronous reset statement. 
15 if ($port_name_used) 

{ 

while ($Process_Statements ptrocess 
s/\b(PROCESS\s*\{\s*) - PROCEbb 

20 $tmp_port_name(\s*\,\s*\w+\s*\) ) # $2 =" , 

{.*?\b) # $3 = reset 

$tmp_port„name(\ •EVENT\s+AND\s+) # $4 = 

$tmp_port_name(\s+\=\s+) \" { [01] ) \" # $5 = " = 

" $6 = new elk logic level a ct7 - -r^-c^t 

(\s+.*?\bEND\s+PROCESS) # 5/ - rest 

to end process /$l$port_name$2$3$port_name$4$port_name$5\ ' $6\ ' $7/six) 



\{ 

reset\) " 
statement 
25 'event and 
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$port_name_used = $port_name_used - 2; 
die "Incorrect \ ' event substitutionXn" 
if ( $port_name_used < 0) ; 



while { $Process_Statements 

s/ (\bPROCESS\s+BEGIN\s+WAIT\s+UNTIL\s+) $tmp_^ort_name ( \s+\ = \s + ) \ " ( [01] ) \ "/ 

$l$port„name$2\ • $3\ ' /six) 

40 { $port_name_used = $port_name_used - 1 ; } 

} 
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while ( $Wire__Assignments 

s/\b$port name\b/$tmp_x»ort_name/s) {$port_name_used++; } 

~ while ($instantiation_string 

3/ (\^\>,*?\b) $port_name\b/$l$tmp__port_name/) { $port_name_used++ ; } 



if ( $port_name_used) 
{ 

50 my $tmp_wire_assignment ; 

$tmp_port_name .= "(0)" if ( $port_type_is_std_logic) ; 

if ($port_direction /-OUT$/ ) { $tmp_wire„assignment = 

$port name <= $tmp_port_name ; \n" ; } ^ 

if ($port_direction =- /-IN$/ ) { $tmp„wire_assignment 

55 Stmn Dort name <= $port_name ; \n" ; } „^ ^^t, 

33 5Cmpj)orc_ ($port_naine) IN ARCHITECTURE BLOCK 

( $code_in_architecture_block) \n" 

ttunless {$code_in_architecture_block 
s / ( . * \ ; [ \ ; \ = ] * \b$por t_naine \b['^\;\=]*["\;]* \ ;)(.*)/$!$ tmp_wire_as s ignment $ 2 / s ) ; 

60 $Wire_Assignments .= $tmp_wire_ass ignment; 

} 

else 
{ 



undef ($Signal_Iiist{$port_naine} ) ; 

} 

} 

} 

..O. ,^«s= h.tes stdjc^icvecto. 'even. «d wait 
statements , we i„ .11 other 'event end w.it 

Statements 

my %std_logic_xf orm; 

if (0) #No, I refuse to support FPGA express 

{ 

while ($Process_Statements =- o./-Tree f 

s/\b{PROCESS\s*\(\s*) # V m 
(\w+) {\s*\,\s*\w+\s*\)) 



# $2 = elk, $3 = 



' resetX)" ^ ^^^^^ # $4 = reset 

statement \2 ( \ ' EVENT\s+AND\s + ) # $5 = 'event and 

\2(\s^\=\s+)\"([01])\" # $6 = " = " $7 = new elk 

logie level ( \s. . *?\bEND\s ^PROCESS) # $8 ^ rest to 

end proeess /$i$2$3$4 ($2 (0) ) $5$2 (0) $6\ ' $7\ • $8/six) 

$std_logie_name 

"($2(0))"; #&:Get„Exclusive_VHDL_Name ( std_logic_$2 , \%Port_Width) ; 
#$std_logie_xf orm{$l} = $2; 

#$l$std_logic_name$3$4$std_logie_name$5$std_logie_name$6\ • $7\ ' $8/sixee) 

^^ile ($Process_Statements 
s/ (\bPROCESS\s+BEGIN\s+WAIT\s-fUNTIL\s+) $tmp jort.name ( \s + \ = \s+ ) \ " ( [Oil ) \"/ 

$l$port_name$2\'$3\' /six) 

{;} 

} 

foreactL $signal ( sort (keys (%Signal„List) ) ) 

^ $arehiteeture_block .= " " . $Signal_List { $signal} , " \n" ; 



} 



#if arehitecture is of epu_register_ram, hack in a 
#substitute. this is only for nios 1.1 kits 
if ($module_name =- /cpu_register_ram$/i) 

^ my $new_signal = $Port_Iiist {wraddress } ; 

$new„signal v / • 

s/\bwraddress\b\s*\ : \s*in\s+/last_wraddress \ : /i; 

my @type_array = (sort keys %Type_List) ; 
die "ERROR Expecting only one memory in $module_name" 
if (scalar (@type_array) > 1) ; 

my $memory_signal_name ; 

foreach $sig (sort keys %Signal_List ) 

^ if ($Signal_List{$sig} =- /\ : \s*$type_array [0] \s*\ ; \s*$/ ) 
{ 

$memory_signal_name = $sig; 
last ; 

} 



} 

die "ERROR could not find memory in $module_name\n" 

un less ( $memo ry_s i gna l_name ) ; 
$Process_Statements = &Replace_Cpu_Register_Ram 

($ memo ry_si gna l_name) ; 

$architecture„block = " $new_signal ; \n" ; 
$Wire_Assignments - ""; 

} 

############### 

# there may some initial statements of variables that 

# are written by another process. Solution: suck up 

# initial processes and ensure that values aren't being 

# assigned to in other processes. If they are, put the 

# initial assignments in the other processes 

my @initial_statements = ( ) ; 
while ($Process_Statements =- 
s/'^ ( . * ) process 

\s+begin\s+ 

( .*?) \s* 

\bwait\s*\;\s* 

end\s+process\s*\ ; 

(.*) 
/$l/six) 

{ 

my ( $initial_assignments , 
$rest) = ($2,$3); 

foreach $assignment (split ( /\s*\ ; \s*/s, 

$initial__assignments) ) 

{ 

my ($lhs, 

$assign„operator , 
$rhs) = 

$assignment =^ /'^Xs* ( . *? ) \s* { [ \<\ : ] \ = ) \s* ( . 
next unless {$lhs) ; 

#do not support concatenations for now. 

#also assume that indexes are not split across 

#process statements . 

die "too many Ihs arguments in $lhs of assignment", 
" $assignment\n" 

if ($lhs /\, / ) ; 

# now we have a single Ihs argiiment, search around 

# for the appropriate always statement. The 

# statement could be in the previously modified 

# $Process_Statements or in $rest . So search in 

# each of them. 

if ($lhs /\{/) 
{ 

my @tmp; 

{$lhs,@tmp) = &Count_Parentheses ($lhs) ; 

} 

foreach $string ( \$Process_Statements , \$rest ) 
{ 

if ($$string 



s/ ( . *\bprocess\s+ 
begin\s+ . *?\b) 



(\s*loop\s+ . *? 
(\bthen\s+ | \belse\s+l \; \s*) 
{$lhs\b['^\;]*{ [\<\:]\ = ) .*?\; ) 
) 

/ 

"$1" . 

" $assignnient\ ; " . 

"\n$2" 

/sixe 

) 

C 

die "mismatched assignment operatorsXn" , 
"initial statement was $assignment\n" , 
"always assign was $4\n" 

if ($assign_operator ne $5) ; 
last; 

} 

else #check for no loop: 
{ 

if ($$string 
s/ ( . *\bprocess\s+ 
begin\s+) 
(.*? 

(\bthen\s+ ] \belse\s+| \ ; \s*) 
($lhs\b['^\;]*( [\<\:]\ = ) .*?\;) 
. * ? 

) \s* (\bend\s+process\s*\ ; ) 

/ 

"$1" . 

" \n$assignment\ ; " . 

"\nIjOOP\n". 

"$2" . 

"\nEND L0OP\;\n" . 

"$6" 
/siex 
) 
{ 

die "mismatched assignment operatorsXn", 
"initial statement was $assignment\n" , 
"always loop was $4\n" 

if ($assign_operator ne $5) ; 
last ; 

} 

} 

if ($string == \$rest) 
{ 

push (@initial_statements, " $assignment ; " ) ; 

} 

} 

} 

$Process_Statements .= $rest; 

f (@initial_statements) 

$Process_Statements .= " PROCESS \nBEGIN\n" ; 

foreach $is (@initial_statements) 

{ 

$Process_Statements .= "$is\n"; 

} 

$Process_Statements . = "WAIT; \nEND PROCESS; \n" ; 
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} 

$architecture_block .= "BEGIN\n\n" ; ^, . ^ ^ ^ 

$architecture_block 

$Process_Statements . $Wire_Assigmnents . $instantiation_string . $attribute_string; 
$architecture_block .= "END behavior; \n\n\n° ; 

ttlast thing convert [a:b] to (a downto b) , , 

$architecture_block = &V2VHD_Index ($architecture_block) ; 

$Entity_And_Architecture { $module_name } 
&Get_Library_Declaration($architecture_block).$entity_declaration.$architecture 

_block; 

#$all_architecture„blocks .= $architecture_block; 
#wam "defined $module__naitie\n" ; 

} 1 1 It it 11 iL iiJi. JL it it 41 41- 4t- -U- 44- ^ 




20 #Now we are finished with the contents of the module. 

#Save away valuable information for later regardless of if its a black 



box or not 



$ $Module_Indexed_Port_Width_Pointer { $module_name } = \ %Port_mdth , 
25 SSModule indexed_Port_Names_Pointer{$module_name} = \%Port_List; 

O $iModuleIlndexed_Parameter_List{$module_naitie} = \%Parameter_List ; 



##################################********************!***** 

30 # NOW all is done, except that we need to order the modules 

I VHDL is particular about the order in which things are declared 
^ I Everything must be declared before it is instantiated. Fortunately, I 

9 I hlv7a Sst of what is instantiated called %Module_Instantiation_List ; 

Ol 

35 my $retum_string; 

S foreach $entity (&Order_Entities { \%Module_Instantiation_List . 

@Module_Ar ray ) 

) 

^ $retum_string .= $Entity_And_Architecture{$entity} ; 
} 



ru 



return ( $return_string) ; 

»########### 




45 } 

I Order.Entities is a recursive function that takes a hash and an array of 

fit' returns an array of entities in order of depcndance. The first entity 

rl'ST^not instantiate any other entities. The second entity returned will 

55 r'?hf'fSt"\"ntity if it instantiates any entities. I^ikewise for the 

S^in?ites^^''The last module returned will be the top level in the heirarchy. 

I The value of the hash is a comma separated string of entities that are 
60 instantiated 

# within the hash. 

# i.e. 



# $$pInstantiation_lfh{a} = "first ipodule instantiate-^in a. second module 
instantiated in a, 

# last module instantiated in a" 

# 

sub Order_Entities 

^ ray ($pInstantiation_Hasli, @keys) = @_; 
my @retum_array; 
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T«,r eai -K-f^^iHv declared - "module already declared"; 

^JheJe Ts no wa^ that we can confuse "module already declared- wxth a 

verilog module name ^ t_ ^^^^^ 

#module is a key word and no spaces are allowed xn module names. 



foreach $key (@keys) 
20 { 

if ($$pInstantiation__Hash{$key} eq. $already_declared) 

#warn "$key already declaredXn" ; 
next ; 

25 } 

Q if ($$pInstantiation_Hasl:i{$key} ne "") 

S { 

m my $value = $$pInstantiation_Hash{$key} ; 

m $value =- s/\,\s*$//; 

O 30 push (@retum_array, 

£ &Order_Entities ( $pInstantiation_Hash, 

d split (/\s*\, \s*/s,$value) 

S ) 

s s s 

O #now everything on which $key is dependant has been declared 

yl #so its safe to declare it. 

push (@retum_array, $key) ; 
fy $$pInstantiation_Hash{$key} = $already_declared; 

Q 40 } 

iT' return (@return_array) ; 

} 

sub V2VHD_Index 
45 { 

^?f ^fvatiJile Sis two vector indecies, the second one takes precedence, 
while ($string s/ { \ [ [ -\ 1 1 *\ ] \s* ) ( \ [ • *?\ 3 ) /$2/s ) { ; } 
while ($string =- s 1 ( . * ) \ t ( . *?) \ ] ( • * ) | $1 1 s) 
50 { 

my $rest = $3; 
#warn "found $2\n" ; 
$GLOBAL_DEBUG = 1; 

$string .= &Vec t or _Order {split ( /\s*\ : \s*/s, $2) ) ; 
55 $G1jOBAL_DEBUG = O; 

$string .= $rest; 

} 

return ($string); 



60 



} 



# 

# Declare Entity 



# Takes a module_naine , \%Port_List, \%Paraineter_List and 

I returns a string that contains a vhdl ready entity declaration 

# 

sub Declare_Entity 

^ Toy {$module_naine,$pPort_List,$pParameter_List) = @_; 
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40 



my 



$entity_declaration .= -ENTITY $module_nanie IS\n" ; 

my @Parameter_Array = sort (keys (%$pParameter_List) ) ; 
if (@Parameter_Array) 

^ $entity_declaration GENERIC \(\n"; 

15 foreach $parameter (@Paraitieter_Array) 

^ my $Parameter_String = " $parameter 

■ " $$pParameter_List{$parameter} . " ; \n" ; 

$entity_declaration .= $Parameter_Stri.ng; 

$entity_declaration =- s/\ ; \n$/\n/s; #Get rid of last semi-colon. 

$eiitity_declaration . = " \) ; \n" ; 



} 



my @Port„Array = sort (keys (%$pPort_List) ) ; 
if (@Port_Array) 

^ $entity_declaration .=" PORT \(\n"; 
30 foreach $port (@Port__Array) 

^ $tinp = $Port„List{$port:} . "\n" ; „v n 

#$entity declaration .= $tmp; #$Port_List {$port} \n ; 
$entity_ieclaration .= " v $$pPort.List ( $port } . " \ ; \n" ; 

35 } 

$entity_declaration s/ ( . * ) \ ; /$l/s ; 

$entity_declaration . = " ) ; \n" ; 



$entity_declaration .= "END $inodule_naine; \n\n" ; 



return ($entity_declaration) ; 
} 

45 # 

# Get_Library_Declaration 

# Very simple for now, may get more complicated later 
50 sub Get_Library_Declaration 

my ($architecture_block) = 

my $library_declaration = 
55 "LIBRARY ieee;\n" 

. "use ieee . std_logic_1164 . all ; \n" 
. "use ieee. std_logic_arith. all; \n" 

. "use ieee. std_logic_unsigned. all; \n" ; 

60 $library_declaration .= "\nlibrary std; \nuse std . textio . all ; \n" 

if ($arcliitecture_block =- /\bwrite\ ( / ) ; 

return ( $library_declaration) ; 



sub V2VHD_Files 

^ my ($verilog_String.$Destination_Directory, ©files) = @_; 
my (@Files_To_Synthesize) ; 
my (@DoJTot_Synthesize_These) ; 

#wam "vs = $Verilog_String, dd is $Destination_Directory. files 

@f iles\n" ; 

my $COPYRIGHT_NOTICE= 
"— CoDvriqht (C) 1991-2000 Altera Corporation 

aSv meaSunction design, and related net list (encrypted or decrypted) 
"-iSLorf ilS^^tion. S^vice programming or ^i-J^^-- ^^i^;' SJtnef 
-associated documentation or information provided by ^^^^^^^ '^^'^ 
-^der Altera- s Megafunction Partnership Program may '^^Y^Sa Lv other 
oroaram PLD devices (but not masked PLD devices) from Altera. Any other 
I-Sse ofsucS megafunction design, net list, support ^^1°-^^^°^ .^l^^l^ 
-programming or simulation file, or any other related documentation or 
-information is prohibited for any other purpose, ^-eluding, ^ut not 
-limited to modification, reverse engineering, ^^^^^^J^J^^i^^^^^J^ JJder 
-any other silicon devices, unless such use is explicitly licensed unaer 
-a Jeparate agreement with Altera or a megafunction partner Title to 
thnSClLSual property, including patents, copyrights, trademarks, 
I-S^di sSr^ts? or'^maSkwoJks, embodied in any such -^f,;;-^-^/r,ir ' or 
—net list, support information, device programming or simulation file, or 
-^y oihe; reSted documentation or information provided by Altera or a 
-^LfSnction partner, remains with Altera, the megafunction partner, or 
Sr^esie^t?ve licensors. No other licenses, including any licenses 
Ilnilied^S:? an? third party s intellectual property, are provided herein. 



) 



my %Module_Indexed_Port_Names; 

my %Module_Indexed_Port_Width; 

my %Module_lndexed_Paraineter_Values; 

my %Component_List ; 

ittv %Additional_Files; 

#warn "mipn pointer is - . \%Module_Indexed_Port_Names \n ; 
my $Top_Wrapper_Name = "Top_Level_$Top_Level_Module_Name ; 

$Pestination_Directory =- tr | W | \/ | ; 
$Destination_Directory =- s/-\s* ( . *?) \s*$/$l/ ; 
$Destination_Directory =- s/'^ ( .*) 

foreach $pass (1,2) 

^ warn »VERILOG TO VHDL CONVERSION: - . &date_time . " PASS $pass\n" ; 
foreach $file (©files) 

^ $file =~ trl\\|\/| ; 

rav Svhdl file = $file; , 

$vhdl_file =- s/-.*\/(.*?)$/$l/s; # crush path, so that files m 

#wam "vhdl file is $vhdl_f ile\n" ; 

# different directories end up in the same place. ^ „ ., 

$vhdl_file =- s/M.*?)\. (.*)$/$!/; ttCrush all after first " . " 

my $extension = $2; 

my $vhdl„innards ; 

if ($extension /'"vhd/i) 

^ warn "VERILOG TO VHDL CONVERSION: " . &date_t ime . 
" leaving vhdl file ($file) alone. \n"; 

} 

else 
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^ Svhdl file = " $Destination_Directory\/$vhdl_f ile\ . vhd" ; 

warn "^VERILOG TO VHDL CONVERSION: " . &date_time . " SCANNING $file 
\n" ; # TO $vhdl_f ile . \n" ; 

$vhdl_innards = &V2VHD ( $Verilog_String, 

$f ile, 
$pass , 

\%Module_Indexed_Port_Width , 
\%Module_Indexed_Port_Naines , 
\ %Mo dul e_Indexed_Par ame t er_Va lue s , 
\%Component_List) ; 



15 if ($pass == 2) 

^ # If there is nothing in vhdl_innards copy the verilog file 

directlv. It will get used later in quartus . j= - ^ ^ a ^ 

dxrectly. ^ ^^^^^.^^^ ^^^^ a vhdl file. No need to copy the verxlog fxle xf 

20 the output directory 
# is " . " . 

if ( $vhdl_innards /^\s*$/s) 

^ if (0) #($Destination_Directory ne ".")) 

□ ^ open (SRCFILE, "< $file") H die "FILE ERROR! CAN NOT OPEN 

*:0 $file $!\n"; ^ .^r-^t „ 

ittv $Dest_File = "$Destination_Dxrectory\/$fxle ; 

S open {DESTFILE, "> $Dest„File" ) U die "FILE ERRORl CAN NOT 

% 30 OPEN $Dest_File $I\n"; 

r while (<SRCFILE>) 

U print DESTFILE 

yi } 

s 35 close (SRCFILE) ; 

^ close (DESTFILE) ; 

print "COPIED $file TO $Destination_Directory\n" ; 

} 

} 



40 else 



^ open {DESTFILE, "> $vhdl^file") M die "FILE ERROR! CAN NOT 

OPEN $vhdl_f ile $ ! \n" ; 

print DESTFILE " $C0PYRIGHT_N0TICE" ; 
45 print DESTFILE " $vhdl_innards " ; 

*^'^wam^°"^VESoG' TO VHDL CONVERSION: " . Scdate^time . " CONVERTED 

$file TO \n" . (" "x60) . " $vhdl_f ile\n" ; 

push (@Files_To_Synthesi2e, $vhdl_f ile) ; 

50 } 
} 

} 

} 

return {@Files__To_Syn the size) ; 

55 } 

sub Convert__Simulation_Files 

^ my $f ile = shift or die "no file specified for simulation\n" ; 
60 my $test_bench = &HDL_Remove_Coinments (&HDL_Read_File ( $f ile) ) ; 



my @all_sim_f iles; 



my $verilog_test_equipment ; 

while ($test_bench s/- ( . *?) \^ include\s*\" ( . *?) \" ( . * ) /$l$3/sg) 
{ 

my $include_f ile = $2; 

#test_equipment.v has constructs that this lame converter does 
#not understand. Solution, make and translate from a bogus 
#test_e<5uipment .bbx 

if {$include„f ile =~ /'^test^equipmentX . v/ ) 
{ 

&Make_Verilog_Test_BBX() ; 

$include_f ile = " test_equipment .bbx" ; 

next if {$include_f ile =- / ^models im_def ine\ .v .*/) ; 

push (@all_sim_f iles, $include_f ile) ; 

} 

push (@all_sim_f iles, $f ile) ; 

my @output_files = &V2VHD_Files (" define SIMULATION" @all_sim„files) ; 

&Make_VHDIi_Test_Equipment ; 

print "Here is a list of all 1993 vhdl files generated by this script :\n 
@output_f ilesXn" ; 

#print "vcom -93 -explicit @output„f iles\n" ; 

} 

sub Check_For_Altera_Copyright 
{ 

my $VERIIiOG_COPYRIGHT_NOTICE= 

qq[/ /Copyright (C) 1991-2001 Altera Corporation 

//Any megafunction design, and related net list (encrypted or decrypted) 
//support information, device programming or simulation file, and any other 
//associated documentation or information provided by Altera or a partner 
//under Altera 's Megafunction Partnership Program may be used only to 
//program PLD devices (but not masked PLD devices) from Altera. Any other 
//use of such megafunction design, net list, support information, device 
//programming or simulation file, or any other related documentation or 
//information is prohibited for any other purpose, including, but not 
//limited to modification, reverse engineering, de-compiling, or use with 
//any other silicon devices, unless such use is explicitly licensed under 
//a separate agreement with Altera or a megafunction partner. Title to 
//the intellectual property, including patents, copyrights, trademarks, 
//trade secrets, or maskworks, embodied in any such megafunction design, 
//net list, support information, device programming or simulation file, or 
//any other related documentation or information provided by Altera or a 
//megafunction partner, remains with Altera, the megafunction partner, or 
//their respective licensors. No other licenses, including any licenses 
//needed under any third party's intellectual property, are provided herein. 
//Copying or modifying any file, or portion thereof, to which this notice 
//is attached violates this copyright.]; 



my @Altera_Files; 
foreach $file (@„) 
{ 

my $fs = HDL_Read_File($f ile) ; 
push (@Altera__Files, $file) 
;# if {$fs =- /$VERILOG_COPyRIGHT_NOTICE/) ; 

} 



return (@Altera_Files ) ; 

} 



sub HDL_Read_File 

^ ^ my $file = shift or die "no file specif ied\n" ; itnvn"- 
open (FILE."< $file") or die "cannot open file ($file) (5.)\n , 
my $return_string; 
while (<FII.E>) 

10 { 4 

$return_string .= 

} 

close (FILE) ; 

return ($return_string) ; 

15 } 

sub HDL__Remove_Comments 

^ my $string = shift or die "no string specif ied\n" ; 
20 my $language = shift || "verilog" ; 

if ($language /verilog/i) 

$string s | \/\* - *?\*\/ I I gs ; 
25 $string s j \/\/ . *$ 1 1 gm; 

^ return ($string) ; 

CO if {$ language =- /vhdl/i) 

{ 

□ 30 $string s j \-\ - . * $ M 9^'* 

M= return {$string) ; 
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} 



die "HRC, language (Slanguage) not understood\n" ; 



sub Make_Verilog_Test__BBX 
{ 

my $ string ; 

ry #f irst read in verilog test equipment and save it 

p 40 #away for later. 

open (FILE, "< test_equipment .V" ) or 

die "cannot open test„e<3uipment . v ($!)\n"; 

while (<FILE>) 

{ 

45 $ string .= 

} 

close (FILE) ; 

open (FILE, "> test__equipment .bbx" ) or 
50 die "cannot open test_equipment . v ($!)\n"; 

print FILE «END_OF_TEST_EQUIPMENT_V; 

/i/nffininnnfiniu/nt/niifiii/ifinn/nfin/niifnfiif 

// MODULE: Clk_Gen 
// 

55 // Test Equipment. 

// Generates a 50%-duty-cycle continuous clock. Its one parameter 
// sets the period. 

60 ///////////////////////////////////////////////////////^//////^^ 

module Clk_Gen (elk) ; 

output elk; . . 1 w 

//put something in to keep from being declared a black box 



wire f oo = 1 ; 
endmodule // Clk_Gen 



!in//iif/fi/iiii//ifnit/ii/f//niiinff//fninfii!/nit///in 

// MODULE: Reset_Gen 
// 

// Test Equipment. 

// . , 

// Generates a reset pulse (logic negative) 

// 100 clock-periods long at the beginning of the 

// simulation. 

'/i/fiiii/iUintiit/iii/ii/iniiiini/iiiiiifii/iiiinifii/in/i 

module Reset_Gen (reset_n) ; 
output reset_n; 

//put something in to keep from being declared a black box 
wire f oo = 1 ; 



endmodule // Reset_Gen 
END_OF„TEST_EQUI PMENTJV 
close (FILE) ; 



return ($string) ; 

} 

sub Make_VHDL_Test__Eciuipment 

my $file = " test.equipment . vhd" ; 
) open (FILEOUT,">$file") or die "cannot open file ($file) ( 5 . ) \n , 

print FILEOUT «END__OF_TEST__EQUIPMENT; 



—Copyright (C) 1991-2000 Altera Corporation ^ ^ ^ 

-Any megafunction design, and related net list (encrypted or decrypted) 
—support information, device programming or simulation file, and any other 
—associated documentation or information provided by Altera or a partner 
—under Altera 's Megafunction Partnership Program may be used only to 
—program PLD devices (but not masked PLD devices) from Altera. Any other 
—use of such megafunction design, net list, support information, device 
0 —programming or simulation file, or any other related documentation or 
—information is prohibited for any other purpose, including, but not 
—limited to modification, reverse engineering, de-compiling, or use with 
—any other silicon devices, unless such use is explicitly licensed under 

a separate agreement with Altera or a megafunction partner. Title to 

45 the intellectual property, including patents, copyrights, trademarks, 

—trade secrets, or maskworks , embodied in any such megafunction design, 
--net list, support information, device programming or simulation file, or 

any other related doc\imentation or information provided by Altera or a 

--megafunction partner, remains with Altera, the megafunction partner, or 
50 --their respective licensors. No other licenses, including any licenses 

--needed under any third party's intellectual property, are provided herein. 



LIBRARY ieee; 

use ieee , std_logic_1164 . all ; 
55 use ieee. std_logic_arith. all; 

use ieee . std_logic_unsigned. all ; 



ENTITY Clk_Gen IS 
PORT ( 

60 SIGNAL elk : OUT STD_LOGIC 

) ; 

END Clk_Gen; 



LIBRARY ieee; 

use ieee . std__logic_1164 .all; 
use ieee. std__logic„arith. all; 
use ieee. std„logic_unsigned. all; 

5 

ENTITY Reset_Gen IS 
PORT ( 

SIGNAL reset_n : OXJT STD_IiOGIC 

) ; 

10 END Reset__Gen; 
LIBRARY ieee; 

use ieee . std_logic_1164 .all; 
use ieee. std_logic_arith. all; 
15 use ieee. std_logic_unsigned. all; 

ARCHITECTURE behavior OF Clk_Gen IS 

SIGNAL tmp„clk : STD„LOGIC_VECTOR ( 0 DOWNTO 0); 

BEGIN 

20 

process (tmp_clk) 
begin process 
if tmp_clk = "0" then 

tmp_clk <= "1" after 15 ns, "0" after 3 0 ns; 

25 else 

tmp_clk <= "0" after 15 ns; 
end if; 
end process; 
m elk <= tmp_clk(0) ; 

□ 30 END behavior; 



□ 
to 

m 



01 

L 35 



ARCHITECTURE behavior OF Reset_Gen IS 

SIGNAL tmp_reset_n : STD_LOGIC_VECTOR ( 0 DOWNTO 0); 

BEGIN 



PROCESS 
BEGIN 



nj tmp_reset_n <= "0" ; 

g 40 wait for 3000 ns ; 

1^ tmp_reset_n <= "1" ; 

WAIT; 
END PROCESS; 

reset_n <= tmp„reset_n { 0) ; 
45 END behavior; 

END_OF_TEST_EQUI PMENT 
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close (FILEOUT) ; 

} 



sub Replace_Cpu_Register_Ram 

C . . „ 

my $memory_signal_naine = shift or die "RCRR, no sxg given ; 

return «END_OF_REGISTER_RAM; 

55 PROCESS (elk, rdaddress) 

BEGIN , ^ , J J J X \ V N 

q <= $memory_signal_name\ (CONV_INTEGER(unsigned(rdaddress) ) \) ; 

if rising_edge (elk) then 

last_wraddress <= wraddress; 

60 IF wren /= *0' THEN ^ x v a ^_ 

$memory_signal_name\ (CONV_INTEGER (unsigned ( las t_wr address) ) \ ) <- 

data ; 

IF (last_wraddress = rdaddress) THEN 



q <= 
END IF; 
end if; 
END IF; 
END PROCESS; 
END_OF_REGI STER_RAM 



} 



Crush_naines .pm 

# Crush_Names_That_Are_Bigger_Than_Max_Width_Characters 

5 # . T 

# One of the great benefits of using a higher programmxng language 

# is the ability to assign descriptive variable names, such that a 

# human of modest programming ability may peruse the code and 

# comprehend its workings. 
10 # 

# There seem to be certain programmers in this world who do not 

# believe that description can be expressed beyond a certain number 

# of characters. Some unnamed synthesis tools, for instance, lob off 

# all characters beyond the 32nd, or modify these character- 

15 # heavy names in their own way, or simply implode in a screaming 

# error message of death. 

# unfortunately, we are a long- fingered hunch, who love to hear the 



# 



sounds of our own typing. We have many Verilog/VHDL wires, regs and 



20 # filenames that regularly exceed smaller limitations 

# Furthermore, many names use other objects' names as prefixes and 

# suffixes, pushing the character-count even higher. 
§ 

# This long-named subroutine, ironically, "crushes names that 
25 # are bigger than a maximum width of characters" to accomodate 

□ # such character-width-limited programs. 

M # All-in-all, I do not begrudge the character-truncating programs 

S # for their efforts. After all, they (usually) produce working 

y 30 # synthesized output-files... with one exception. Often, these 
S # programs will rename a module without renaming the filename where 

H= # this module resides . . . which is one of the attributes we rely 

Q # upon for Quartus to find black boxes in the synthesized code, 

m # Thus, we crush not only names in the code, but filenames as well. 

35 # 

^ # This subroutine must then not only modify the contents of fi^^s, 

S # but regenerate the list of files with named-crushed filenames and 

rV # modify the hash that translates the original-name to the crushed-name, 

O sub Crush_Names_That_Are_Bigger_Than_Max_Width_Characters 

my ( $pConver ted_Filenames , 

$ pC onve r s i on_Ha sh , 
45 $max_width, 

@File__List) = @_; 
my $max_width_minus_l = $maLX_width - 1; 
my $max_width_jplus_l = $max_width + 1; 

50 my @new_File_List ; 

my $line; 

#my %Reverse_Hash = reverse %$pConversion_Hash; 
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foreach $filename (@File_List) 
{ 

$filename =^ tr|\\|\/|; 
my $new_f ilename ; 



# test to see if we've already converted this file 
60 $new_f ilename=$$pConverted_Filenames{$f ilename} ; 

if {$new__f ilename ne " " ) { 

push (@new__File_L.ist, $new_f ilename) ; 

next ; 



} 



# A filename bigger than $max_width characters often refers to a module 

# that is bigger than $max_width characters. 

# Rename the filename to a $max_width character filename. 
$new_f ilename = $ filename ; 

if ($new_f ilename =- s/ (\w{$max_width, } ) ( \ . ? ['^X/ 1 * ) $/ 

&Make„Max_Width_Char_Name ($pConversion_Hash, $max_width, $1) . 

$2/sgoex) 

{ 

if ($filencLme ne $new_f ilename) 
{ 

rename $ filename, $new_f ilename or 

die "ERROR Crush„Names_. . . : could not rename file {$f ilename) 
to {$new_f ilename) ($I)\n"; 

if ( ! (-T $new_f ilename) ) 

rename $f ilename .$ suffix, $new_f ilename .$ suffix or 

die "ERROR Crush_Names_. . . : could not rename file 
($f ilename$suff ix) to ( $new__fil ename$ suffix) ($ ! ) \n" ; 

} 

) 

} 

# Whether we rename the file the file or not, we then need to 

# add filename into others; 

push (@new_File_List , $new_f ilename) ; 
$$pConverted_Filenames { $f ilename} =$new_f ilename ; 

$new_f ilename__for_reading = $new_f ilename ; 
$do_AF=0; 

if (i(-T $new_f ilename) ) { 

$new_f ilename_for_reading .= $suffix; 
$do_AF=l; 

} , , 

open (FILE, "< $new_f ilename_f or_reading" ) |1 

die "ERROR Crush_Names_, . . : CANNOT OPEN FILENAME FOR 
READING ( $new__f ilename_f or„reading) ( $ ! ) \n" ; 
my $output_string = " " ; 
while ($line = <FILE>) 

$output_string .= &Crush_Line ( $line, $max_width, $pConversion_Hash) ; 

} 

close (FILE) ; 

if ($do_AF) { 

open (ALTERA_FILEHANDLE, "> $new_f ilename " ) 1| 

die "ERROR Crush_Names_. . . : CANNOT OPEN FILENAME FOR 
WRITING ($new_f ilename) ( $ ! ) \n" ; 

print ALTERA_FILEHANDLE $output_string ; 
close (ALTERA_FILEHANDLE) ; 
} else { 

open (FILE, "> $new_f ilename" ) |1 

die "ERROR Crush_Names_. . . : CANNOT OPEN FILENAME FOR 
WRITING ($new_f ilename) ($ ! ) \n" ; 

print FILE $output„string ; 
close (FILE) ; 

} 

) # end of foreach 
return (@new_File_List) ; 



10 



# 

sub Crush_Ijine 

^ my ($line,$max_width,$pConversion_Hash) = 

my $max_width_minus_l = $max_width - 1; s/ ( [a-zA- 

Z\J\w{$max.width_minusJfm^ak^^^^ 
idth, $1) /sgoe) 

^ #print "Crush.Names,.. : line was ($old_line) now ($line)\n"; 



} 

15 return {$line) ; 

} 




#^ 

sub Make_Max_Width_Char_jNraine 
20 { 

my ($pConversion_Hash,$max_widtli,$word) - 

my %Reverse_Hash = reverse %$pConversxon_Hasti; 

# first, check to see if word has appeared before 
25 my $new_word = $$pConversion_Hash{ $word} ; 

O if ($new_word eq "") 

yj $new_word = $word; 

S 30 # word has not been found before, and we need to make a new hash entry 

my $max_width_minus_l = $inax_width - 1; 

W Tinless ($new_word 

35 Z\ 1 \w{0, $max_width_minus_l}) (\w* )/$!/) ; .^^ , 
O i (also, crushes it down to $max_width charactes) 

U #If word ends with \_ vhdl hates you 

5 #so fool while loop by assigning value to reverse hash 

40 if {$new_word =- /\_$/) 

^ ^ $Reverse_Hash{$new_word} = "vhdl placeholder"; 

} 

45 while ($Reverse_Hash{$new_word} ) 

^ #strip off the number at the end of the 32 char word 
#and increment it. 

if ($new_word / ( \w* ? ) ( \d+) $/ ) 
50 ^ 

my $base = $1; 

my $ index = $2 + 1; . . , -. i w 

while (($base.$index) =- / ( \w{ Smax_widthj>lus_l , } ) /o) 

( 

55 chop ($base) ; 

} 

$new_word = $base .$ index; 

#print " word is niimbered ($new_word) \n" ; 

} 

60 else 

^ $new„word =- s/" ( \w{ $max_width_minus_l} ) . *$/ $l/o ; 
$new__word .= "1"; 




word was unnuinbered ($new_wor( 




} 

} 

# check to make sure we're not outta hashes 

die "ERROR Make_Max„Width_Char_Naine : WORD ($new_word) not understood. 



unless ($new_word =- [a-zA-Z_] {1} \w{0 , $max_width_minus_l } $/ ) ; 
$$pConversion_Hash{$word} - $new_word; 



} 

return ($new_word) ; 

} 

sub Make_MIF_Files_Max_Friendly 
{ 

my ( $pConverted_Filenames , 
$pConversion_Hash, 
$max_width, 
@File_List) = @_; 

my @converted_f ile_list = 

&Crush_Names_That_Are_Bigger_Than__Max_Width_Charac ters ( @_) ; 

foreach $file ( @ convert ed_file_list) 
{ 

open (MIFFILE,"< $file") or 

die "Cannot open mi f file ($file) {$l)\n"; 
my $f ile_content; 

while (<M1FFILE>) {$f ile_content .= $_; } 
close (MIFFILE) ; 

$file_content sl\/\*|\%|g; #max+2 likes % instead of /* */ 
$file_content =- sl\*\/i\%lg; #max+2 likes % instead of /* */ 

$f ile_content s | \-\- . *$ 1 |mg; #single comments mp2 hates them 
$file_content =~ s | \bUNS\b | DEC | g; ttchange type UNS to DEC 

open (MIFOUT,"> $file") or 

die "Cannot open mi f file ($file) ($l)\n"; 
print MIFOUT $f ile_content ; 
close (MIFOUT) ; 

} 

return (@converted_f ile_list ) ; 

} 

1; # Modules must say "1" — mustn't they? 



Out of hashes . \n" 



default_generator_program.pl 

####################################**##************************ 

# default_generator_program.pl 

# Suppose a user has a plain-old Verilog (or VHDL) module— no 

# Vpp, parameterization, or generation about it. 

# suppose they want to include this design into an Avalon system 

# module. They are perfectly willing to fill out a "class .ptf file 

# which describes their ports and sundry System-parameters 

# (e.g. Hold_Time) . But they don't want to write a whole generator 

# program — they just want to use their "thing". 

I If the component's class. ptf file gives "" (or "-default--") as 

# the "generator_program". then the SOPC-Builder calls THIS VERY_ 

# PROGRAM (default_generator_program.pl) -as if- it was the user s 

# aenerator program. This saves the Authors of simple 

; IoPC-componen?s the drudgery of writing their own "generator j>rogram. " 

# And what wonderful things do we do on the author's behalf? 
# 

# 1) Generate a renaming -wrapper . 

# 2) copy implementation-files into project-directory. 

# 3) Arrange for some files to be synthesized (if appropriate or asked) 
# 

# **** Making a Renaming Wrapper 

# The user will have defined a module named, for example, 

# jthingwizard (who knows --they -might- name it thatl). 

# But, in the SOPC-Builder table, they want to add 

# one of those "jthingwizard" things named "nv_inst." 

# So we create a new module named "my_inst" (with 

# exactly the same ports as "jthingwizard") which contains 

# one instance of "jthingwizard" and nothing else. 

# The almost-pointless (but totally required) "my_inst 

# module is the -renaming wrapper-. 

# When we build the renaming-wrapper , we can either instantiate the 

# user's module directly, or we can instantiate it as a black-box 

# This all depends on whether they want us to synthesize it or not. 

; often they Sill, but sometimes they won't. If you don't explicitly 

# say so. this program will try to make an intelligent guess about 

# blLk-boxing based on the types of files found in the class -directory . 

# If you have nothing but a schematic, for example, then clearly you 

# want a black-box. 
# 

# It is only possible to build a renaming wrapper if: 

# a) The users' "class. ptf" file describes -all- ports. 

# b) The top-level module name is known. 

I (a) is entirely up to you. If you don't describe each-and-every 

# port in your "class .ptf " -file, then this function simply will not 

# work. 

# We try to help you with (b) by making an educated guess. If you 

# don't specifically say what your top-level module is, we DUst 

# assume it's the same as the class-name (what else would it be, 

# after all?) . 
) # 

# 

^ **** Copying Implementation Files 
# 
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# Every component must be implemented -somehow-. We st^^off wxth 

# the default asssumption that the top-module of thxs component xs 

# named the same as the component directory ^"^thxngwxzard- .n the 

# above example) and is implemented in an HDL, BDF or EDF-fxle of 

# the same name. Unless told otherwise, ^^ 

# the components' directory, and then copy xt blxndly xnto the 

M T«-r,TPrt directory for the system-xinder-constructxon . in race. 

I S de?au?^! we^py -all- dLgin files from the component -directory xnto 

ft the project-directory, whether you need them or not {xf you dxdn t 

J nied^hem? after ai? what were they doing in the component dxrectory?) . 



# Alternatively, the user can supply a list of files-to-be copxed 

# and, separately, files- to-be-synthesized. 
# 

^ **** Altering default behavxor. 

# Suppose the top-level module -isn't- the same as the 

# component-directory name, or -isn't- implemented xn a fxle 

# of the same name. Or, suppose you -don't- want us to try 

20 # synthesizing your file, but you want it to be a black-box xnstead. 

# wSl then. You'd have to override the behavior or thxs program 

I somehow. (You could, of course, write your own generator program, 

# but we'll see how far we can get you before we ask you to baxl 

# out) . 
_ 25 # 

O # Your "class. ptf file can contain a section named 

# DEFAULT GENERATOR, in which you can supply directxons to thxs 
ffl # program. Here is an example DEFAULT_GENERATOR functxon 

m # demonstrating all the available parameters: 

□ 30 # 

Lf # DEFAUIiT_GENERATOR 

' — 

g # top_module_name = "my.tippie.toppie" ; 

# black_box_files = "summit. edf, blickman.bsf ; 

=^ 35 # synthesis_files = "toppo.v, submodl.v, Ixbx.vhd^; 

O # black_box = ° 0 " »' 

cn # } 



N= # 

ru # 

f=i 40 # 



Seems pretty clear to me what all these things are, so I'll spare 
you the pain of suffering through an English descrxptxon. 



# All the filenames are given relative to the class-directory 

# {or as absolute full pathnames, your choice). 

45 !###########################**#**#****************************** 

use wiz„utils; 

50 # List_Ports_Froin_PTF 

# Given a ptfRef which contains a "MODULE" section 

# we should be able to do a good-old VPP "&List_Ports_For call. 

# 

55 # This function does exactly that. 

sub liist_Ports_Froin__PTF 
( 

60 my ($db_Module) = (@_) ; 

my $module name = Scget.data ( $db_Module) ; „ TT-rT5TivTn.M 

S $db_WirTng = &PTF_Get_Required_Child_By_Path ( $db_Module , " PORT.WIRING ); 
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20 



□ 40 



my @port_description_list = (); 

my $num_children = &get_child_count .^^.,1^ index-HH-) { 

for (my $child_index=0; $child_index < $num_chxldren, $chxld_index+H-) i 

my $db_Port = &get_child ($db_Wiring. $child_index) ; 

next unless £cget_name ( $db_Port) eq "PORT"; 

my $Port = &PTF_Build_Hash_From_Section ($db_Port) ; 

my @attribute_list = ("name=" - &get_data ($db_Port) ) ; 
foreach $attr (keys (%$Port) ) { xn, 
push (@attribute_list, "$attr = $$Port{$attr) ); 

push (@port_description_list. join " | @attribute_list) ; 

} 

&List_Ports_For ( $module_name . @port_description_list) ; 



} 




# Default_Generator 
I implements the default generator as a callable function. 

O !###################################################*##**#****** 

^ sub Default_Generator 

my ($arg. $user_def ined. $db_Module, $db_PTF_File) = 
30 &Process_Wizard_Script_Arg\Jinents ( " " , @_) ; 



&Progress ("Default Generator Program for: $$arg{name} . " ) ; 
# open-up "Class. ptf" and extract DEFAULT.GENERATOR, PORT.WIRING 
-tSlSniSiJeLptf.Fro^File J " ^^arg.class^directory) /cla^ 



"No 



•^class.ptf file found for module $$arg{naine} " ) ; 



my $class name = ScPTF_Get_Reciuired_Data_By_Path ( $db_Mod^^ "class"); 

<aen aras = &PTF Build Hash„From_Section ( $db_Class_File , 
my $gen_args ftcfir^o - - "CLASS/DEFAULT_GENERATOR" , 

"0"); # OK if section missing. 



45 if ($$gen_args {black_box} eq " " ) { - a 

# Try to guess whether they want their design synthesized, or 

# included as a black-box (since they didn't say) . 
# 

50 I ^'^f^'tSerf ire any HDL-files at all, then we'll try to synthesize 

# them. 

# if (scalar (@synth_full_paths) == 0) t w-i v v^^^-m - 
I &Progress( "Default Generator: treating $$arg{name} as a black-box ), 

55 # $$gen_args{black_box} = 1; 

I iprogJess( "Default Generator: ( $$arg(name} ) adding files for synthesis"); 

# $$gen_args{black_box} = 0; 

# } 

60 # GOOD Heuristic: ^ ^-y ^^ v.^^ n 

# Only synthesize if they explicitly set black_box = 0. 

# 

$$gen_args {black_box} = 1; 



############### 

#time to update the system port_wirxng. 

&delete_child($d]D_Module, "PORT_WIRING" ) ; 

rr^r iiHV* rtor-ts = &aet child by_path($db„Class_File, 

my $dt>jorts &gec_cnx _ y_P ..cLASS/MODULE_DEFAULTS/PORT_WIRING" ) ; 

&add_child ( $db__Module , " " , $db j)orts ) ; 
################ 

# First, go through the files in the directory. This wxll ^^ve us 

# a clue about whether to treat the users' design as a black-box 

# or as a synthesizable thing. 

opendir (CLASSDIR, " $$arg{class_directory} " ) ; 

my ©bb_base_files = split (/\s*\,\s*/, $$gen_args {black_box_f iles) ) ; 
if (scalar (@bb_base_f iles) == 0) { 
foreach $file (readdir (CLASSDIR) ) { 

next unless $file / \ . ( tdf 1 edf | bsf | vqmjmif ) $/ ; 

push (@bb„base_files, "$file"); 

} 

} 

my @synth_base_files - split (/\s*\,\s*/, $$gen_args {synthesis.f iles} ) ; 
if ({scalar (@synth__base_f iles) == 0) && 
( I $$gen_args{black_box} ) ) ( 

rewinddir (CLASSDIR) ; 
foreach $file (readdir (CLASSDIR) ) { 
next unless $file / \ . (v | vhd) $/ ; 
push (@synth_base_f iles, "$file"); 

} 

} 

closedir (CLASSDIR) ; 

# Make all files relative to the class.directory (unless, of course, 

# the path is already absolute) . 
# 

my @bb_full_paths = (); 

Z StSi^ojifles : 1! ; #as they appear after copying into project. 

foreach $bb_file (@bb_base_f iles) { 

$bb_file = "$$arg{class_directory}/$bb_file" 

if l&Is_Absolute_Path ($bb_file) ; 
push (@bb„fullj)aths, $bb„f ile) ; 

} 

foreach $synth_file (@synth_base_f iles) { 

$synth_file = " $$argCclass_directory} / $synth„f ile" 

if 1 &Is_Absolute_,Path ( $synth_f ile) ; 
push {@synth„full^aths, $synth_file) ; 



push (@synth_^roj_files, ^t.t^xx. 

"$$arg{system_directory}/" .ScGet_Base_Fname($synth_file) ) , 



} 



if (scalar (@synth_full_paths) + scalar (@bb_full_paths) ~ 0) { 

print STDERR "WARNING: Default Generator Program (run for $$arg{name} ) \r 
print STDERR " No design-files found. Probably not good.Xn ; 

} 



# Copy the files: 



foreach $srcfile ^@bb_f ull^aths , @synth_fulljaths) 
ScPerlcopy ($srcfile, " $$arg{sy stem.di rectory} /") ; 

} 



$$gen_args { top„module_name} = $class_naiae 
if $$gen__args { top_module_naine} eq 

################ 

# Build the renaming wrapper 

my $wrapper_name = &get_data ($db_Module) ; 

my $wrapper„file = " $$arg{ system.directory} /$wrapper„name . v ; 
my $instance„name = " the_$$gen„args {top_module_name} " ; 

# Make Vpp port-lists for both the wrapper and the wrappee 

# (they happen to have exactly the same ports) . 
# 

ScList_Ports_From_PTF ( $db_Module) ; 

my $port descriptions = &Describe_Ports_For ( $wrapper_name) ; 
&LisLpo^ts„For ($$gen_args{top_module_name}, $port_descriptions) 

my $port_defs = &Def ine_Ports_For ( $wrapper_name , 1) ; 
my $port_decs = &Declare„Ports_For ( $wrapper„name , 1) ; 

# A bunch of here-strings containing chunks of the wrapper-file: 
# 

my $top_.comment=«EOMC; 
// 

// Renaming wrapper 

// built by » default_generator_program.pl ' . 
// Wraps 'simple' component class $class_name, 
// implemented by the top-level module 
// $$gen_args{top_module_name} . 

EOMC 

my $black_box_declaration=«EOMl; 
/ / synopsys translate_of f 
^ifdef LEONARDO_SPECTRUM 
// svnopsys translate_on 

// Black-box declaration for simple module $$gen„args { top_module. 
module $$gen_args { top_module_name} { 

$port_decs 
)/* synthesis syn_black_box */; 

$port„def s 
endmodule 

// synopsys translate_of f 
^ endif 

// synopsys translate_on 
EOMl 

my $wrapper_declaration=«E0M2 ; 

module $wrappe rename ( 
$port_decs 

) ; 

$port_def s 
E0M2 

open (ALTERA_FILEHANDLE, $wrapper_f ile " ) or die 

"Default_Generator: couldn't open wrapper file $wrapper_f lie 
my $old„out = select (ALTERA^FILEHANDLE) ; 



print ALTERA.FILEHANDLE $GLOBAI,_COPYRIGHT_NOTICE ; 

print ALTERA_FIIiEHANDLE $wrapper_declaration; 

print ALTERA^FILEHANDLE &Instantiate_And_Connect_Statement 
{ $ $gen_args { top_module_name } , $ instance_name ) ; 

print AI,TERA_FILEHANDLE V/ exemplar attribute $instance_naxne NOOPT TRUE\n" 

if ( $$gen_args (black^box) ) ; 
print ALTERA_FILEHANDIiE " endmoduleXn" ; 

close (ALTERA_FILEHANDLE) ; 
select {$old_out) ; 

push (@synth_j)roj_f iles, $wrapper_£ile) ; 

# Add to synthesis HDL-file list: . ^-i^^x 

Ldd_Synthesis_Files_To_PTF ($db_Module, @SYnth_proj_f xles) , 

&write_:ptf_file ( $db_PTF_File) or die r„^^^ v - 

"Couldn't write PTF File when generating $$arg{name} , 

} 

### 

### Execution starts here. 



&Default_Generator (@ARGV) ; 



ink_bsf .pm 
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flrr.r>vT-i crht (C) 1991-2001 Altera Corporation 

S'^Sfuiction design, and related net list (encrypted or ^ecrypted^^ 
Spor? information, device programming or -^-^1^5^°^,^^^^'^"^ llltnT 
lassociated documentation or information provided by f '^^^^^ 
#under Altera -s Megaf unction Partnership Program may be used only to 
!S?oSa^ PLD devices (but not masked PLD devices) from Altera. Any other 
tSse ofsuS migafunction design, net list, support information device 
JS::grLJ?ng Sr^imulation file, or any other -^-5^^,^°^^-^^^^^°^,°" 
#information is prohibited for any other purpose, including, ^"^^ 
ftlT^i^^ to modification, reverse engineering, de-compilmg, or use with 
I^rother sTitcon Lvic;s, unless such use is explicitly li^-sed under 
irLoarate agreement with Altera or a megaf unction partner. ^^tle to 
She ?ntellec?ual property, including patents, copyrights, trademarks, 
JSlde secrets or maSkwo^ks, embodied in any such megafunction design, 
Inet liJt? Support information, device programming ^^/^--^^^^^^^f 
Ilnv otLr related documentation or information provided by Altera or a 
SaXnction partner,- remains with Altera, the megafunction partner, or 
20 Sir Sesje^t!ve lic;nsors . No other licenses, including any licenses 

JnJ^dL^de? any third party's intellectual property, are provided herein. 
#SSing^r moSSEy?nJ any fiL, or portion thereof, to which this notice 
#is attached violates this copyright. 

25 # Constants for computing dimensions of things. 

# distance between inner and outer rectangles, x and y 
my $outerEdgeMargin = 16; 

Oi # Margin between top or bottom signal and inner rectangle. 

O 30 my $ innerEdgeMargin =16; 

S # X distance between longest left and longest right signal, 

y my $defaultFontSize = 8; 

my $titleFontSize = 10; 

L. 35 $<3uantum = $def aultFontSize ; 

P my $midMargin = 4 * $ciuantum; 

# Vertical space occupied by a signal, 
hi ^ $signalVerticalSize = 16; 

40 

^ my $defaultFont = "Arial"; 

# inter-module separator. When the symbol is rendered, the magic 

# sSng "[]" (unlikely to be a signal name) will become a dashed line. 
45 my $secretDashedL,ineMarker = "[I"; 

my $globalPrintString; 



rfk 



sub myErr or Print 
50 { 

# print STDERR @__; 
warn @_; 

} 

55 sub myPrint 
C 

# print @_; 

$globalPrintString .= join ' 

} 

60 

sub charWidth 
C 

return charDimC "width" , @__) ; 



} 

sub charDimArial 
5 ^ my ($axis, $char, $size) = 

if ($size 1= 8 ScSc $size 1= 10) 

^ myErrorPrint "Unsupported font size $size, using $def aultFontSize . \n" 
10 $size = $def aultFontSize; 

} 

# Size data was taken from Quartus, at zoom level 144%. 
my %size8ToDim = { 
15 'a' => 248/40.0, 

<b' => 248/40.0, 
•c' => 224/40.0, 
'd' => 248/40.0, 
•e' => 248/40.0, 
20 'f => 112/40.0, 

'g' => 248/40.0, 
<h' => 224/40.0, 
•i' => 112/40.0, 
■ j • => 84/40.0, 
25 'k- -> 224/40.0, 

^ => 84/40.0, 

«in' => 360/40.0, 
ra -n' => 224/40.0, 

m *o' => 248/40.0, 

□ 30 'P' => 248/40.0, 

•q' => 248/40.0, 
'r' => 136/40.0, 
's* => 224/40.0, 
'"^^ 't' => 112/40.0, 

35 -u' => 224/40.0, 

y -v' => 184/40.0, 

yl 'w' => 304/40.0, 

H= 'X' => 192/40.0, 

fU -y' => 192/40.0, 

g 40 'z' => 192/40.0, 

^ 'A' => 304/40.0, 

'B' => 304/40.0, 
•C => 336/40.0, 
'D' => 336/40.0, 
45 'E' => 304/40.0, 

«F' => 276/40.0, 
•G' => 336/40.0, 
•H' => 304/40.0,, 
•I' => 84/40.0, 
50 »J' => 224/40.0, 

•K' => 304/40.0, 
•L' => 248/40.0, 
«M' => 360/40.0, 
•N' => 304/40.0, 
55 -O' => 336/40.0, 

•P' => 304/40.0, 
'Q' => 336/40.0, 
'R' => 304/40.0, 
'S' => 304/40.0, 
60 'T' => 248/40.0, 

•U' => 304/40.0, 
•V => 304/40.0, 
'W => 416/40.0, 



Q 




•X' => 304/40.0, 
'Y' => 248/40.0, 
'Z- => 248/40.0, 
'0' => 248/40.0, 
5 => 248/40.0, 

•2' => 248/40.0, 
•3' => 248/40.0, 
•4' => 248/40.0, 
'5' => 248/40.0, 
10 '6' => 248/40.0, 

'7' => 248/40.0, 
'8' => 248/40.0, 
'9' => 248/40.0, 
=> 248/40.0, 
15 • • => 248/40.0, 

' [ ' => 112/40. 0, 
• ] • => 112/40.0, 
• . • => 112/40.0, 



20 



) ; 



return ($size / 8) * $size8ToDim{$char} if (exists { $size8ToDiiti{ $char} )) ; 



myErrorPrint "Unsupported character 1 Font: Arial; char: ■$char-; size: 
$size\n" ; 
25 return 248/40.0; 

} 

tn charDim 

2 30 ^ my ($axis, $char, $font, $size) = 

^ my %sizeToDimCourierNew = { 

8 => 6.7, 

y 9 => 7.06, 

yl 10 => 8.11, 

« 35 11 => 9.09, 

p 12 => 10.2, 

14 => 11.1, 

16 => 13.3, 
18 => 14.3, 

40 ); 

H= # For now, I assume Courier New. 

if {$font eq "Arial") 

return charDimArial ( $axis , $char, $size) ; 

} 

if ($font ne $def aultFont ) 

^ myErrorPrint "Unsupported font •$font', using. $def aultFont . \n" ; 
$font = $def aultFont; 

} 

55 if { 1 exists ($sizeToDimCourierNew{$size} ) ) 

^ myErrorPrint "Unsupported font size $size, using $def aultFontSize , \n" ; 
$size = $def aultFontSize ; 

} 



60 



if ($axis eq "width") 

return $sizeToDimCourierNew{$size} ; 



} 

if (Saxis eq "height") 

5 ^ return $si2eToDimCourierNew{ $size} ; 

} 

myErrorPrint "Unsupported axis ' $axis ' \n" ; 

10 return $ si zeToDimC our i erNew { $default Font Size} 

} 

sub stringWidth 

15 ^ my ($string, $font, $size) = 
my $i; 

my $len = 0; 

for $i (0 length {$string) - 1) 
20 { 

$len += charWidth(substr($string, $i, D , $font, $size) ; 

} 



return $len; 



□ 25 ) 

sub getMaxSignalNsimeWidth 

W { 

K my ©signals = @_; 

D 30 my $signal; 

Lsi, my $max = -1 ; 

S foreach $signal (©signals) 

{ 

35 if ($signal =- / , ^ 

0 (\S+) # signal name, perhaps with a bus size element. 

01 \s*\l\s* # pipe, maybe with whitespace 
M \cL+ # Bus width 

j=lj \s*\l\s* # pipe, maybe with whitespace 

^ 40 \w+ # signal type 
™ /sx) 
{ 

my $signalName = $1; ^ ^. . 

my $len = stringWidth ( $signalName, $def aultFont , $defaultFontSize) ; 

45 if ($max < $len) 

{ 

$mcLX = $len; 

} 

} 



50 } 

return $max; 

} 

55 sub max 
{ 

my ($a, $b) - @_; 

return $a if ($a > $b) ; 
60 return $b; 

} 

sub roundup 



{ 

my ($num, $quantuin) = 



my $diff = $num / $quantum - int:($n\Hn / $ quant urn ) ; 
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if (0 == $diff) 
{ 

return $nuin; 

} 



$num = (int($num / $ciuant\im) + 1) * $<3uantuin; 
return $num; 

} 

15 sub translate 

my ($tX, $tY, $x]yiin, $yMin, $xMax, $yMax) = 

return ($xMin + $tX, $yMin ^ $tY, $xMax + $tX, $yMax + $tY) ; 

20 } 

sub computeDiitiensions 

^ my ($title, $instanceName, $lef tSignalRef , $rightSignalRef ) = @„; 



25 



my @leftSignals = (a$lef tSignalRef ; 
my @rightSignals = @$rightSignalRef ; 



m # 

O 30 # Collect some numbers . 

# 

g # A symbol is some rectangles, lines and strings. Spatial values of and 

t 35 "^W^B rectangles and lines are determined by the number and length of the 
-Z2 *- • 

^ rs?rings- associated value comment 

I tllll titleLen txtle. upper left 

- I InstanceName instanceNameLen ■ inst ■, lower left 

ly # instanceName i of Mviav:Len ail input signals 

B 40 # leftSignals[] leftMaxLen output/ inout 
2 # rightSignals[] rightMaxLen 
' signals 

# I have two concentric rectangles. ^ ^ • v.^. j«„„„^c. ,-,n 
45 I The width depends on the lengths of the signal names; the hexght depends on 

# the number of signals. 

# The inner rectangle's width is determined by the l^^^^^^/^J^^J^^/iJ^^^ 

# signal names. But, if the title or the instance name are absurdly large, 
50 # they can override . 

my $ s ignal ; . n % 

my $leftMaxLen = getMaxSignalNaineWidth{@lef tSignals) ; 
my $rightMaxLen = getMaxSignalNameWidth (OrightSignals) ; 

55 my $innerXMax = $leftMaxLen + $rightMaxLen + ^J^^^^^.^il', , SdefaultFont 

$innerXMax = max ( $ innerXMax , $quantum + stringWidth($title, $def aultFont , 

^%1.4nerXMax = max ($ innerXMax, $quantum + stringWidth ( $instanceName , 
$def aultFont, 10) ) ; 

& The inner rectangle's height depends on the number of signals. 

my $LiS^ar= TS^ @lef tslgnals) * $signalVerticalSize . $innerEdgeMargxn; 
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$innerXMax = roundup ( $innerXMax, $quantum) ; 
$innerYMax = roundUp ( $innerYMax, $quantum) ; 

mv (ainnerRect = (0, 0, $innerXMax, $innerYMax) ; „ 
eln^eSect = transiat;($innerEdgeMargin. $innerEdgeMargin, (ixnnerRect) ; 

nty $outerXMax = $innerXMax + 2 * $outerEdgeMargin; 
my $outerYMax = $innerYMax + 2 * $outerEdgeMargin ; 

return (©innerRect. 0, 0. $outerXMax. $outerYMax) ; 



} 



sub rect2 String 
{ 

15 my ©rect = @_; 

return sprintf("%d %d %d %d" , ©rect) ; 

} 

20 

sub emitPort 

^ # A port spec in a bsf file looks like this: 

# (port 

25 object declaration _ ^he 

# (pt 0 32) 

y=f port ' s attachment point _ 

03 # (input) 

1 30 ''T(t^t "clk" (rect 0 0 12 13) (font "Courier New" (font_size 8))) - the 

i-H. text for the port (this one's invisible) ^ • q\>> Mn^^ 

t # (text "elk" (rect 24 25 36 36) (font "Courier New" (font_size 8))) - the 

S text for the port again, but this one shows up 

# (line (pt 0 32) (pt 16 32) (line_width 1) ) 
L. 35 line between inner and outer rectangles 
O # ) 



n 



- a 



M= my ($x, $y, $side, $signalSpec) = @_; 

40 my ($signalNaine, $busWidth, $signalType) ; 

^ my (SptlString, $pt2String) ; 

s 

if ($side eq "left") 
{ 

45 $ptlString = •^$x $y" ; . <^ x 

$pt2String = sprintf("%d %d" , $x + $outerEdgeMargin, $y) ; 

} 

else 

50 ^ $ptlString = sprintf ( " %d %d" , $x - $outerEdgeMargin, $y) ; 

$pt2String = " $x $y" ; 

} 

if ($signalSpec and $signalSpec ne $secretDashedLineMarker) 
55 { 

^^^XS^)^^^"" ^ # signal name, perhaps with a bus size element, 

\s*\l\s* # pipe, maybe with whitespace 

# t)us width 

go \s*\l\s* # pipe, maybe with whitespace 

(input! inout] output) # signal type 
$/sx; 



$signalNaiae = $T; 
$busWidth = $2; 
$signalType = $3; 

# BSF files call ' inout ' signals 'bidir'. 

if ($signalType eq "inout") 

{ 

$signalType = "bidir"; 

} 



my 



$lineWidth = ($busWidth == 1) ? 1 : 3; 



my ©recti = (0, 0, stringWidth ( $signalNaine, $def aultFont , 

$defaultFontSize) , $signalVerticalSize) ; 
my $rectlString = rect2String (©recti) ; 



my @rect2; 

if ($side eq "left") 

^ @rect2 = translate ($x + $outerEdgeMargin + 0.25 * $ inner EdgeMargin, $y - 
7, ©recti) ; 
} 

else 
C 

@rect2 = ^ ■ V 

translate ( $x - ( $outerEdgeMargin + 0.65 * $innerEdgeMargin) 
StringWidth ($signalName, $def aultFont , $defaultFontSize) , 
$y - 7, ©recti) ; 

} 

my $rect2String = rect2String{©rect2) ; 

# I've added a single space after signal names, to try to discourage 

# Quartus from truncating the last bits. I hope this doesn't break 
anything . 

myPrint «EOT; 
(port 

(pt $x $y) 

(SsignalType) ^ 
(text "$signalName " (rect $rectlString) (font " $def aultFont " (font_size 

$defaultFontSize) ) ) ^ ^ . 

(text "$signalName " (rect $rect2String) (font " $def aultFont " (font_size 

$defaultFontSize) ) ) 

(line (pt $ptlString) (pt $pt2 String )( line_width $lineWidth) ) 
) 

EOT 
} 

} 



sub drawBSF 
{ 

my ($ title, $instanceName, 

$leftSignalRef , $rightSignalRef , 

$innerXMin, $innerYMin, $innerXMax, $innerYMax, 
$outerXMin, $outerYMin, $outerXMax, $outerYMax) = @_; 

my ©leftSignals = @$lef tSignalRef ; 
my ©rightSignals = ©$rightSignalRef ; 

my ©innerRect = ($innerXMin, $innerYMin, $innerXMax, $innerYMax) ; 
my ©outerRect = ($outerXMin, $outerYMin, $outerXMax, $outerYMax) ; 

my ©titleRect = (0, 0, $quantum + stringWidth ($ title, $def aultFont , 
$titleFontSize) , 



$signalVerticalSize) ; 
©titleRect = translate ($quant\im II. 0, ©titleRect) ; 
my $titleRectString = rect2String (©titleRect) ; 

my @instRect = (0, 0, $cjuantum + stringWidth($instanceName. $defaultFont 

$defaultFontSize) , 

$signalVerticalSize) ; 

(iinstRect = translate ( $quant urn / 2, $outerYMax - 2 * $quantuxa, ©instRect) ; 

my $instanceRectString = rect2String ( ©instRect ) ; 

my $innerRectString = rect2String {@innerRect) ; 
my $outerRectString = rect2String (@outerRect) ; 

myPrint «EOT; 
(header "symbol" (version "1.1")) 
(symbol 

ItS '^^ttftre^'^Uect $titleRectString) (font - $def aultFont ■■ (font_si 

!ttxt""$Sst^ciName" (rect $instanceRectString) (font " $defaultFonf ) ) 

EOT 

# Emit all the ports, 
my $signalSpec; 
my $ i ; 

my $y = $outerEdgeMargin + $ inner EdgeMargm; 

my $x = 0; 

my @dashedLineYs ; 

foreach $signalSpec (@lef tSignals) 

^ emitPort($x, $y, "left", $signalSpec) ; 

# Add this y value to the list of dashed lines to be drawn later. 

if ($signalSpec eq $secretDashedIiineMarker) 

{ 

push @dashedliineYs, $y; 

} 

$y += $signalVerticalSize; 

} 

$y = $outerEdgeMargin + $innerEdgeMargin; 
$x = $outerRect [2] ; 

foreach $signalSpec (©right Signals) 

^ emitPort($x, $y, "right", $signalSpec) ; 
$y += $signalVerticalSi2e; 

} 

myPrint «EOT; 
( drawing 
EOT 

foreach $y (@dashedLineYs ) 

my $endX - $innerRect [2 ] - 1; 
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15 



myPrint qqCdl^ (Pt $innerRect [0] $y) <pt $y) (color 0 

0) (dotted) (line_width 1) ) \n} ; 
} 

myPrint «EOT; ^ . 

(rectangle (rect $ inner Rec t S tr ing) (line_width 1))) 

) 

EOT 
} 

sub Generate_BSF 
{ 

my $title = shift; 

my $instanceNctme = "inst"; 



# Clear the global output string. 
$globalPrintString = " " ; 

# split signals into left and right, and sort within modules. 
20 my (@inputStrings) = @_; 

my @listOf Modules ; 
my $moduleSignalIjist ; 
my ©signals; 

25 for $moduleSignalList (@ input Strings) 

# Eliminate loathesome white space. 
$moduleSignalList =- s/\s+//g; 

30 ©signals = split /,/, $moduleSignalIiist ; 

while ($signals[$#signals] I- /\S/) 
{ 

pop (©signals) ; 



35 



} 



push ©listOf Modules, [ ©signals ]; 



# Separate signals into inputs, outputs / inouts . ... 
2 40 # txl_from^the^arto \ 1 1 output ,.rxd^to_the_uar to | 1 1 xnput 

I Each string lists all the ports of a Nios submodule, comma-delimited. 



# 



I separate the ports into (input) and (output, inout) and return as a list of 



45 lists. 

# use delimiters to make things line up nice, 
my ©lef tSignals; 

my ©rights ignal s ; 

50 # elk 1 1 1 input 

# txd_f rom„the_uarto | 1 1 output 

# shared_data_bus_l_data 1 16 | inout 

my $moduleRef ; 
55 my $i; 

for $i (0 . . $#listOf Modules) 

{ 

my $signalSpec; 
my ©tmpLeft = () ; 
60 my ©tmpRight = {); , . ta -. 

my $moduleSignalList = $listOfModules [$il ; 
foreach $signalSpec (©$moduleSignalIiist ) 
C 



if ($signalSpec =~ / (\S+) \s*\ 1 \s* (\d+) \s*\ | \s* (\S+) 
{ 

my $signalNaine = $1; 

if ($signalName =- / [ ''\w\ [\ ] \ . ] / ) 

^ goldfish ("unexpected character(s) in signal name • $signalNaine • " ) ; 

next ; 

} 

my $busWidth = $2; 

if ($busWidth /["\d]/) 

^ goldfish ("unexpected charcter{s) in bus width • $busWidth • " ) ; 
next ; 

} 

if {$busWidth < 1) 

^ goldfish("bus width '$ bus Width' is bogus."); 
next ; 

} 

my $signalType = $3; 

# Fix up bus signals with their size ( [n-1 0]) here, 
if ($busWidth > 1) 

^ if ($signalName !~ / \S+\ [ ( \d+) \ . \ . 0\ ] / ) 

^ $signalName ,= sprintf ( " [%d. . 0] " , $busWidth - 1); 
} 

} 

if {$signalName =- /\S+\ [ ( \d+) \ . \ . 0\ ] / ) 
{ 

if ($1 != $busWidth - 1) 

^ goldfish ("signal $signalName doesn't match its own buswidth 
($busWidth) " ) ; 

} 

} 

my $newSignalSpec = " $signalName 1 $busWidth | $signalType" ; 

if ($signalType eg "input") 

{ 

push ©tmpLeft, $newSignalSpec ; 

elsif ($signalType eq "inout" or $signalType eq "output") 
{ 

push @tmpRight, $newSignalSpec ; 

} 

else 

^ goldfish ("Unexpected signal type • $signalType ' in signal spec 
' $signalSpec ' " ) ; 
} 

} 

} 

# Sort signals within a module. This provides a consistent, though 

# not necessarily optimal ordering. 
^tmpLeft = sort (etmpLef t) ; 



@tmpRight = sor^@tmpRight ) ; 



# Pad out the shorter of the two lists... 
while ((0 + ©tmpLeft) > (0 + ©tmpRight) ) 

{ 

push ( ©tmpRight , " " ) ; 

} 

while ({0 + ©tmpLeft) < (0 + @tmpRight) ) 
{ 

push (@tmpLeft, ""); 

} 

# If this wasn't the last module, put an inter-module spacer, 
if ($i < $#listOfModules) 

push (©tmpRight, $secretDashedLineMarker) ; 
push (@tmpLeft, SsecretDashedLineMarker) ; 

} 

push @lef tSignals, ©tmpLeft; 
push @rightSignals, @tmpRight ; 

} 

# we should have ended up with left and right signal lists of the same size, 
if (@lef tSignals != SrightSignals) 

^ myErrorPrint "Say, left and right don't have the same size.Nn"; 
} 

# Do some arithmetic, . ^ ^rx,- 
my ($innerXMin, $innerYMin, $innerXMax, $innerYMax, $outerXMin, $outerYMin, 

$outerXMax, $outerYMax) = . . v« . 

computeDimensions($title, $instanceName, \@lef tSignals , \ ©right Si gnals ) ; 

# Spew the rendering commands . 
drawBSF ($ title, $instanceName, 

\@lef tSignals , \@rightSignals , 

$innerXMin, $innerYMin, $innerXMax, $innerYMax, 
$outerXMin, $outerYMin, $outerXMax, $outerYMax) ; 

# Donel 

return $globalPrintString; 

} 

1 When I am grown to man's estate 

2 I shall be very proud and great, 

3 And tell the other girls and boys 

4 Not to meddle with my toys. 
}; 



mk„custoin_sdk . pm 

# use strict; # please turn this off before checking in. 

5 

use ptf_parse; 

my $gDebug = 0; 
# 

10 # 2000 August 

# dvb \ Altera Santa Cruz 

# 

# name of the directory within each wizard's dir 
15 # with doc, inc, src, and lib files 

# 

my $CUSTOM_SDK_PIECES_DIR = " custom_sdk_pieces " ; 
20 my $gUseOldSillyJNames = 0; # if 1, convert to old juartwizard style names, 



# 

# bail (string) 

25 # 

sub bail 

ffl my $x = shift; 

□ 30 warn ("ERROR: $x" ) ; 

U exit (-1) ; 

b > 

m 



# 

L 35 # dprint (list) 

y # 

# prints if debugging is on 
sub dprint 

'f^^ 40 if($gDebug) 

^ print " (debug) " ; 

print @_; 
print "\n"; 

45 } 
} 

sub dprint f 
{ 

50 if($gDebug) 
{ 

print " (debug) " ; 

print f @_; 

} 

55 } 

sub date__time 

60 L/ ($sec, $min, $hour, $mday, $mon, $year , $wday, $yday, $isdet) 

localtime(time) ; 
$mon++; 

$year += 19 00; 



my $d = sprintf ("%04d.%02d.%02d",$year,$mon,$mday) ; 
my $t = sprintf ("%02d:%02d:%02d",$hour,$min,$sec) ; 



return "$d $t'' ; 
} 



sub basename 

10 { 

my $fileName = shift; 

my $baseName; 



if($fileName =- / \/ ( t"\ / 1 * ) $/ ) 
{ 

$baseName = $1; 
} 

20 else 

{ 

$baseName = $fileName; 
} 

_ 25 return $baseName; 

S } 



^ 

30 # print„command (string) 
# 

# prints time, and then string 

sub print_coinmand 

35 { , 

my $command = shift; 
my $dt = date_time(); 

print "# $dt (*) $command\n" ; 
40 } 

sub print_waming 
{ 

my $wl = shift; 

45 

print "# mk_custom_sdk: WARNING"; 

print " $wl\n" ; 

} 

I tlbl^begiMrreturn^ to a table to be constructed 

# table_addrow() takes the tableRef, and adds the rest of the 

# args as elements to a single row 

# table.sprintO returns the table in left- justified columns 
55 # as one big string. 

# 

my $table_ROWBREAK = "##rzw##"; # an unlikely character sequence 



60 sub table_begin 
{ 

my stable; 



return \@table? 
} 

sub table_addrow 

5 { 

my $tableRef = shift; 

my $eachArg; 

my $line; 

10 while ($eachArg = shift) 

$line .= $table_ROWBREAK if $line; 

$line .= $eachArg; 

} 
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push @$tableRef , $line; 
} 



sub table_sprint 

20 { 

my $tableRef = shift; 

my $coluinnSpaces - 1; 

my @coluinnMaxWidths ; 

my $line; 
^ 25 my @line; 

Q my $i; 

^ my $len; 

£0 my $result; 

S 30 # first pass: find the maximum width for each line 



foreach $line (@$tableRef) 

@line = split(/${:table_ROWBREAK}/,$line) ; 
35 for($i = 0; $i < scalar (©line) ; $i++) 

{ 

$len = length ( $line [ $i] ) ; ^ r^-i 

$columnMaxWidths[$i] = $len if $columnMaxWxdths [$x3 < $len; 

} 

40 } 

# second pass: spew them out with enough blanks 

foreach $line {@$tableRef) 

45 ( 

@line = split (/$ {table_ROWBREAK} /, $line) ; 

for($i = 0; $i < scalar (©line) ; $i++) 

{ 

my $lineltem = $line[$i]; 
50 my $blanx = $columnMaxWidths [ $i] - length ( $lineltem) + 1; 

$result .= $lineltem . {" " x $blanx) ; 
} 

$result .= "\n"; 

55 } 

return $result; 

} 



60 # 

# aNumber (hex-or-decimal) 

# 

sub aNumber 



{ 

my $x = shift; 



return 1 if($x =- /true/i or $x =-/yes/i) ; 

$x = hex($x) if ($x =- Z'^O+x/) ; 
$x = $x * 1.00; 



return. $x; 
10 1 



n X, \ 

# getAPTFNumber (ptfRef , path) 
15 # convenience: extract child, convert to value 

sub getAPTFNurnber 
{ 

my $ptfRef = shift; 
20 niy $path = shift; 

my $x; 

$x = get_data_by_path($ptfRef ,$path) ; 

$x = aNumber($x); 
^25 return $x; 

d } 



Q 30 sub usage 

U| print «EOP 



P 

35 



EOP 



M # isModule(moduleRef ) 

□ 40 # Given a ptf , is it an enabled MODULE? 
U- * return 1 or 0 . 

sub isModule 

45 my $moduleRef = shift; 



return 0 if (get name ( $moduleRef ) ne "MODULE"); x^i^^nN. 
retu^ geiAPT?Nui;;ber($moduleRef,"SYSTEM_BUILDER_INFO/Is_Enabl^ ); 

} 



50 



# readPTF(sourceFile) 



# read in the PTE, and return a hash reference. 
55 # Uses the module for all the real work. 

# (return only the SYSTEM section) 
# 

60 s\ib readPTF 
{ 

my $sourceFile = shift; 
my $ptfRef; 



$ptfRef = new_ptf„froin_f ile{$sourceFile) ; 

$ptfRef = get_child_by^ath($ptfRef, "SYSTEM"); 

bail ("PTF file broken: no SYSTEM section.") if i$pttRe£. 



return $ptfRef 
} 



10 



sub nb__min 
{ 

my $a = shift; 
15 my $b = shift; 

return $a if $a < $b; 

return $b; 

} 



20 



25 



sub nb_max 
{ 



my $a = shift; 
my $b = shift; 

return $a if $a > $b; 
return $b; 



m > 

S 30 # 

2 * getMasterDataWidth(ptfRef ) 

# 

y # Riffle through the ptf and 

01 # find the moduleRef to first one with 

s 35 # Is_Bus_Master="l" . Return its 

n # data width. 



sub getMasterDataWidth 
{ 

^-40 my $ptfRef = shift; 



i — s 



45 



50 



my $inoduleRef; 
my $childCount; 
my $i; 

$childCount = get_child_count ( $ptf Ref ) ; 
for($i =0; $i < $childCount; $i++) 

$moduleRef = get_child($ptfRef , $i) ; 
# 

# Is it a MODULE? 
# 



55 next if ! isModule ($moduleRef ) ; 

if (getAPTFNumber ( $moduleRef , " SYSTEM_BUXLDER_INFO/Is_Bus_Master " ) ! ■ 

0) 

{ 

60 return 

getAPTFNumber ($moduleRef, " SYSTEM_BUILDER_INFO/Data_Width" ) ; 

} 

} 




print_waming(~bus master found. Pretending 32 l^wide bus."); 

return 32; 
} 

5 # 

# getModuleKinddnoduleRef ) 

# Return the module kind, like "uart" 

# or "ram" . , ^ 

10 # 2001JanlO: this comes from the MODULE/class 

# assignment, which presently reads juartwxzard, &c . 

# This will be obsolete soon 

# 2001Jan31: We get the full name now, "altera aval on„uart , 

# and elsewhere get the short struct name based on 

15 # the name of the t^^^^-^^^i^^^^, ^^^^ * ^^es for in-tree building 

# 2001Feb06: we have a global flag to get old names, ror m 

s\ib getModuleKind 
( 

20 my $moduleRef = shift; 

my $pKind; 

$pKind = get_data_by_path($moduleRef, "class" ) ; 

Q if {$gUse01dSillyJNames) 

S ( 

Co my %xlat = 

S -xci altera_avalon_uart => " juartwizard" , 

H altera_avalon„spi => " j spiwizard" , 

^ altera_avalonj>io => " jpiowizard" , 

U altera_avalon_timer => " j timerwizard" , 

altera_avalon_i2x => " j i2xwizard" , 

altera avalon onchip^memory => "jramwizard , , ^ . ^^^„ 

35 ait.tii:ci_ava.^w _ ^^xr^^oH -;n^f»■r£ace => "iusersocketwizard" , 

altera_avalon„user_def inea_interrace ^ j 

altera nios => "jnioswizard", , 
jitera:avalon_dei_board_flash => " j jam291v800bw^zard" , 
altera_avalon_dev_board_f lash__small 

40 "33am291v800b_smallwiz^^^^ « j2xidt71v016s_smallwizard" , 

altera_avalon_sram32 => " j2xidt71v016swizard" , 
altera_avalon_nios => "jnioswizard", 
altera__avalon_nios => "jnioswizard", 
45 altera_avalon_nios => "jnioswizard" 

) ; 

$pKind = $xlat{$pKind} ; 
) 

return $pKind; 
50 } 



1=1 



^ — — 

# readAddressMap (ptf HashRef , germsAddressOut ) 

# ^ ^ 

55 # Read in the source file, and return 

# an associative array indexed by 

# decimal base address; where each entry 

# is a reference to an array, as follows: 

# [0] - peripheralKind 

I [l\ - ?efe?ence^?rhash of WIZARD_SCRIPT_ARGUMENTS 

# [3] - IRQ number if any 

# [4] - Lowest address 



# [51 - just p^^^Highest Address . ^ . i 

# [63 - misc letter flags. 'E' means show the end address. 'D' decimal. 

# 

5 sub readAddressMap 
{ 

my $ptfRef = shift; 

my $germsAddressOut = shift; 

10 my $lcey; 

my $pAddress; 

my $pIRQ; 

my $pEnd; 

my $pKind; 
15 my ©peripheralList ; 

my $aPeripheralRef ; 

my ©printfUart; # addresses for uart used by printf (and monitor) 

my @gdbUart; # addresses for uart used by gdb 

20 my @mainFlash; # addresses for first flash memory found 

my $miscSysRef; 

my $masterDataWidth; 



^25 # 

# Establish address "na_null", which' 11 be a void * 

_ # 
^ $aPeripheralRef = ["", 

"na„null", 

S 30 

push { ©peripheralliis t , $aPer ipheralRef ) ; 

5 $miscSysRef = getSys temSet tings ( $ptfRef) ; 

01 

H= # list the modules. . . 

lU { 
Q 40 my $moduleRef; 

y, my $childCount; 

my $i; 

$childCount = get_child_count ( $ptf Ref ) ; 
45 for($i =0; $i < $childCount; $i++) 

{ 

$moduleRef = get_child ( $ptf Ref , $i) ; 
# 

# Is it a MODULE? 

50 # 

if (isModule($moduleRef ) ) 

{ 

my $pName; 

my $legalName; 

$pName = get_data ( $moduleRef ) ; 
$legalName = $pName; 
$legalName =- tr/\-/_/; 



55 



60 ( $pAddress , $pEnd) 

ge tModuleAddressRange ( $pt f Ref , $moduleRef ) ; 

# Found the germs? 



if (get_data_by_path($moduleRef , "WIZARD_SCRIPT_ARGUMENTS/Contents ) eq 
" germs " ) 

5 $$germsAddressOut = $pAddress if 

$genasAddressOut ; 

} 



10 if (getAPTFNumber ( $inoduleRef , " SYSTEM_BUILDER_INFO/Has_IRQ" ) ) 

{ 

$PIRQ 

getAPTFNumber { $inoduleRef , « SYSTEM_BUILDER_INFO/IRQ_Nuinber " ) ; 
15 else 

{ 

$pIRQ = 0; 
} 

$pKind = getModuleKind($moduleRef ) ; 



20 



25 



p3| 



35 



# 

# Assign this peripheral ref as a 5 -element array 



reference [ ] 



# 



_ $aPeripheralRef = [$pKind, 

" na_$ { legalName } 



get_child_by^ath { $moduleRef , " WIZARD_SCRIPT„ARGUMENTS" ) , 
^ 30 $plRQ' 
lI $pAddress, 
^ $pEnd] ; 

# Look for some various "special" peripherals... 

# If it's a UART, see if it qualifies as the printf 



uart 



# 

if($pName eq $$miscSysRef {maincomm_module} ) 



\Z 40 ©printf Uart = @$aPeripheralRef ; 



} 

^ if ($pName eq $$miscSysRef {gdbcomm_module} ) 

{ 

©gdbUart = @$aPeripheralRef ; 

45 > 

if ($pKind =~ /dev_board_f lash/) 

{ 

dprint "found a flashi"; 
# 

50 # We have found a flash, but only by noting that 

# its name contains dev_board_f lash . The only two 

# flash memories in the Nios 1.1 kit certainly 

# have that name. But it would be more general 

# to have a peripheral -property somewhere that 
55 # said, "Hey, I am a flash, and this is the name 

# of my write routine, and this is the name 

# of my erase routine. Yeah. dvb2001jan 
# 

@mainFlash = @$aPeripheralRef ; 

60 } 



# 



# Add it to the peripheral list 

push ( ©per ipheralLi s t, $aPeripheralRef) ; 

} 

} 

} 

if ($printfUart[0] ne " " ) # check by kind... 

$aPeripheralRef = [$printfUart [0] , 

"nasys_^rintf _uart" , 

$printfUart [2] , 

$printfUart [3] , 

$printfUart [4] , 

$printfUart [51 1; 
push(@peripheralList, $aPeripheralRef ) ; 

} 

if ($gdbUart[0] ne # check by kind... 

$aPeripheralRef = [$gdbUart [ 0] , 

"nasys_gdb_uart" , 

$gdbUart [2] , 

$gdbUart [3] , 

$gdbUart[4], 

$gdbUart[5] ]; 
push(@peripheralList, $aPeripheralRef ) ; 

} 

if ($mainFlash[0] ne " " ) 

$aPeripheralRef = [$mainFlash[0] , 
"nasys_main_„f lash" , 
$mainFlash[2] , 
$mainFlash[3] , 
$mainFlash[4] , 
$mainFlash[5] , 
"E" ] ; 

push(@peripheralList, $aPeripheralRef ) ; 
> 

{ 

# Decide what range of RAM to use for programs & stack, 

# avoiding the vector table. 
# 

my $vecbase; 

Z l^;«rS4«embase; . Could be ROM or KM for compiled p«3r.ms 

«u,t be ^ .or stac. . variables ,to be 



useful) 



my $datainemtop; 

$vecbase = $$miscSysRef {vecbase) ; „ ,=,^v, /^^^fuof ^ / • 

$vectop = $vecbase + 64 * (getMasterDataWidth($ptfRef ) / 8) , 

$prograinmeinbase = $$iniscSysRef {programmembase} ; 
$prograiranemtop = $$miscSysRef {programmemtop} ; 

$datameinbase = $$miscSysRef {datamembase} ; 
Sdatamemtop = $$miscSysRef {datamemtop} ; 



in either. 



# More^^m above or below the vector table^^ 

# Do this for both program and data memory; vector table could be 



5 if($vecbase - $datamembase > $datamemtop - $vectop) 

$datamemtop = nb„min ( $datamemtop, $vecbase) ; 
} 

else 

$datamembase = nb_max ( $datamembase, $vectop) ; 
} 

if ($vecbase - $prograinmembase > $programmemtop - $vectop) 

$programmemtop = nb__min ( $programmemtop , $vecDase) ; 
} 

else 

{ 

20 $programmembase = nb_max ( $programmembase, $vectop) ; 

} 



25 



J s S 

p 40 



50 



$aPeripheralRef = ["", 

''nasys_prograni_mem" , 



0, 

$progrcLmmembase , 
S $programmemtop, 
m "E" ]; 

0 30 push(@peripheralList,$aPeripheralRef ) ; 

$aPeripheralRef = [ " " , 

"nasys_data__mem" , 

n If 

35 0' 
Q $datamembase, 

01 $datamemtop , 

"E" ] ; 

push(@peripheralList, $aPeripheralRef ) ; 



$aPeripheralRef = [ " " , 

" nasy s_s t ack_t op " , 



0, 

45 $datamemtop] ; 

push((aperipheralliist, $aPeripheralRef ) ; 



$aPeripheralRef = [ " " , 

"nasys„vector_table" , 



0, 

$vecbase, 
$vectop, 
"E"] ; 

55 push(@peripherairiist , $aPeripheralRef ) ; 

$aPeripheralRef = [ " " , 

"nasys_reset_address" , 

n II 

60 0,' 

aNumber ($$miscSysRef {reset_a} ) ] ; 
push(@peripheralLjist , $aPeripheralRef ) ; 



$aPeripTieralRef = [ " " , 

"nasys_clock_f req" , 
ti It 

0, 

5 aNmnber($$miscSysRef {clock_freq}) , 

n II 

f 

push(@peripheralliist, $aPeripheralRef ) ; 

in $aPeripheralRef = [ " " , 

"nasys„clock_freq_1000" , 

n n 

int(aNuinber($$miscSysRef{clock_freq}) / 1000) 

It II 

push(@periplieralList, $aPeriplieralRef ) ; 
} 



15 



20 return ©peripheralList ; 

} 



# 



125 # mkSDKTree {directory for new tree) 



# 

# Build the empty directory structure 

# Any files already there, just leave. 



a 30 sub rmdir^if .possible # return 0 for success, > 0 for missed files 



{ 

my $dir = shift; 
my ©fileList; 



my $file; ^ . t j -u-; i t 

35 my $misses = 0; # how many we failed to kill 



if(-e $dir) 

RJ ( 

O 40 opendir (DIR, $dir) or $misses++; 

Ms ©fileList = readdir (DIR) ; 

closedir (DIR) ; 

foreach $file (©fileList) 

next if ($file eq or $file eq "..«); 

if( -d "${dir}/${file}") 

$misses += rmdir_if_possible("${dir}/${file}") ; 
} 

else 

unlink("${dir)/${file}") or $misses++; 

55 > 

} 

rmdir($dir) or $misses++; 
} 

60 return $misses; 

} 

sub mkdir_if_needed 



50 



{ 

ray $dir = shift; 
my $mode = shift; 

if ( ! -e $dir) 
{ 

mkdir ($dir, $mode) or return; 
} 

return "ok"; 
} 

sub mkSDKTree 
{ 

my $dir = shift; 
my $misses; 

# 

# The "src" directory belongs to the end user, 

# he or she may put any code they like there, 

# and expect it to persist across builds. 
# 

# However, the lib, inc, and doc, are 

# ours, all ours, and we can't have deleted 

# old peripherals malingering in there, 

# so we delete them. 
# 

mkdir_if_needed($dir, 511) or return; 
$misses = rmdir_if_possible ( " $ {dir} /lib" ) ; 

print_waming "Could not delete lib; $misses left" if ($misses) 
$misses = rmdir_if_possible ( " $ {dir} /inc" ) ; 

print^warning "Could not delete inc; $misses left" if ($misses) 
$misses = rmdir_if_possible ( " $ {dir} /doc " ) ; 

print_waming "Could not delete doc; $misses left" if ($misses) 

mkdir„if_needed($dir. "/inc" ,511) or return; 
mkdir_if_needed($dir."/lib",511) or return; 
mkdir„if_needed($dir . " /doc" , 511) or return; 
mkdir„if_needed($dir. "/src" , 511) or return; 

return "ok" ; 
45 } 



# 

50 # f indStructFile (components_directories,dirName, f ileTail) 
# 

# Given a directory path, return the name of a file, 

# if any, which ends with fileTail 
# 

55 # 

sub f indStructFile 
{ 

my $ component s„direct or ies = shift; 
my $dirName = shift; 
60 my $f ileTail = shift; 



my @components_directories ; 
my $components_directory ; 



my @dirList; 
my $fileNaine; 
ray $sl:iortKindNaine; 



10 



@components_directories = split (/ \./ , $components„directories) ; 

foreach $components_directory (@components_directories) 

^^^irM- "f indStructFile: searching $components_directory" ; 
dprxnt f--^^^^^^^^^^ DIR,"${components_directory>/${dxrName}") 



{ 

©dirList = readdir DIR; 
closedir DIR; 



15 foreach $fileName (@dirList) 

dprint "findStructFile: searching ^^^^^^^ents dire^^^ 

if($fileName =- ( . * ) _$ I f ileTai± > > / J 



20 



{ 

$shortKindNaine = $1; 
dprint "findStructFile: found $ shortKindName structure"; 

return 



recuxii 

( " $components_directory/$dirName/$f ileNaiae" . $shortKincaName) ; 



025 > 

03 ^ 
^ return ; 



ptfRef ) 
Q 35 # 



LnerateAddressMap ( components_directories . f ileName , @$peripheralI.istRef , ptf Nan.e , 



L-E. 

I — 



sub generateAddressMap 

^ $components__directories = shift; 
P 40 my $fileName = shift; 

M my $peripheralListRef = shift; 

my $ptfNcLme = shift; 
my $ptfRef = shift; 
my $pAddress; 
45 my $pEnd; 

my $pIRQ; 
my $pName ; 
my $pKind; 
my $pFlags; 
50 my $dt = date„time(); 

my $nios_system_name = get_data ( $ptf Ref ) ; 
my $monitor_string; 



55 # 



60 



# Painfully retrieve just the monitor id string 
# 
{ 

my $miscSysRef ; 

$miscSysRef = getSystemSettings ($ptfRef ) ; 
$monitor_string = $$miscSysRef {germs monitor_id}; 
$monitor string = $nios_system_name if l$monitor_string. 



} 

rny $baseNaine = basename ( $f ileName) ; 

open HFILE, ">$f ileName. h" or return; 
open SFILE, ">$f ileName. s" or return; 

print HFILE «EOP; 

/* 

* File: $baseNcLine . h 

* This file is a macliine generated address map 

* for a Nios hardware design. 

* $ptfName 
* 

* Generated: $dt 
*/ 

#ifndef _$ {baseName}_ 
#define _$ {baseName}_ 

#ifdef cplusplus 

extern "C" { 
#endif 

EOP 

print SFILE «EOP; 
; File: $baseName.s 

; This file is a machine generated address map 
; for a Nios hardware design. 
; $ptfName 

; Generated: $dt 

; Simple macro to equate & globalize at once 
.macro GEQU sym,val 
.global Wsym 
.egu Wsym, \\val 
. endm 



EOP 

my $hTableRef = table__begin ( ) ; 
my $sTableRef = table_begin ( ) ; 

for($i = 0; $i <= $#$peripheralIiistRef ; $i++) 
{ 

my $p = $$peripheralListRef [$i] ; 

my $cType; 

my $isRAMLike; 

my $structFile; 

my $hasStructFile; 

my $shortPKind; 

my $pAddressString; 



$pKind = $$p[0] 
$pName = $$p[ll 
$pIRQ = $$p[3] 



$pAddress = $$p[4]; 
$pEnd = $$p[5 3 ; 

$pFlags = $$pC6] ; 

($structFile, $shortPKind) = f indStructFile { 
$components_directories , 
" $ {pKind} / $ {CUSTOM_SDK_PIECES_DIR} " , 
"struct .h" ) ; 

# arbitrary: "RAM- like" spans are > some minimum 
$isRAMLike = ( $pEnd-$pAddress > 4095); 
$isRAMIiike |= $pFlags =- /E/; 
$hasStructFile = ( -e $structFile) ; 



if($pFlags /D/) 
{ 

$cTYpe - "long" ; 
} 

elsif($pKind eq 
$hasStructFile) 



else 



{ 

$cType 
} 

{ 

$cType 
} 



or $pKind 



'void 



= " np_,$ { shor tPKind} 



/ or 



$pAddressString = ( $pFlags /D/) ? 

sprint f ( "%d" , $pAddress) 

: sprintf ("0x%08x" ,$pAddress) ; 



table_addrow ( $hTableRef , 
"#def ine" , 
" $pName " , . 
" ( (${cType}) " , 
"${pAddressString}) ") ; 



table_addrow ( $sTableRef , 
GEQU" , 
"$pName", 

II n 

$p Addr e s s S t r ing , 
" ; $pKind" ) ; 

if ($isRAMLike) # only report ends of "RAM-like" 
{ 

table_addrow ( $liTableRef , 
"#def ine" , 
"${pName}_end" , 
" ( (${cType}) " , 

(sprintf ( "0x%08x) " , $pEnd) ) ) ; 



table_addrow ( $sTableRef , 
GEQU" , 
"$ {pName}_end" , 

n It 

(sprintf ("0x%08x",$pEnd)) ) ; 



if($pIRQ) 
{ 

table_addrow ( $hTableRef , 



"#def ine" , 
"${pNaine}_irq" , 

n n 

/ 

$PIRQ) ; 

table_addr ow { $ sTableRef , 
GEQU" , 
"${pNaiae}_irq" , 

n ti 
r t 

10 $piRQ) ; 

} 

} 
{ 

15 niy $x; 

$x = table_sprint ($hTableRef ) .; 
print HFILE $x; 

20 $x = table_sprint($ STableRef ) ; 

print SFILE $x; 
} 

# 

# Print a macro for getting the system name 

□ 25 # 

print SFIIiE «EOP; 

^ .macro nm_system_name_string 

^ .asciz "$nios_system_name" 

Q 30 .endm 

= j_ 

0 .macro nm__monitor_string 

01 .asciz "$monitor_string" 
. endm 



35 



45 



50 



EOP 



print HFILE «EOP; 



ry 

O 40 // Parameters for each peripheral. 



EOP 

print SFILE «EOP; 



; Parameters for each peripheral. 



EOP 



for($i = 0; $i < $#$peripheralListRef ; $i++) 
{ 

my $p = $$peripheralListRef [$i] ; 

55 $pKind = $$p[03 ; 

$pName - $$p[l] ; 



60 



if($pKind and $pName =~ /''na_/ and $$p[2]) 
{ 

printf HFILE "\n// Parameters for %s named %s at 0x%08x:\n", 
$pKind, 
$pName , 



$pAddress ; 

printf SFILE "\n; Parameters for %s named %s at 0x%08x:\n", 
$pKind, 

5 $pName, 

$pAddress ; 

printColuinns(*HFILE,$$p[2] ,"// = ",""); 

printColuinns(*SFILE,$$p[2] = ",""); 

10 > 

} 

print HFILE «EOP; 

15 #ifdef cplusplus 

} 

#endif 



20 



325 



#endif // _$ {baseName}„ 

/* end of file */ 
EOF 

print SFILE «EOP; 

; end of file 
EOF 



2 30 

P close HFILE; 

close SFILE; 

B 

Q 35 return "ok"; 

3 

Q 40 # generatePeriph^^ \@peripheralList , 

M= components„directories, systemName) 

# 

sub generatePeripheralsStructs 

45 { 

my $fileNaine = shift; 

my $peripheralListRef = shift; 

my $components_directories ^ shift; 

my $ptfNcLme = shift; 

50 

my $dt = date_time(); 
my $p Address; 
my $pName; 
iny $pKind; 
55 my %lib_f iles_found; 

my $structureContents ; 
my $baseName; 
my $i; 

my %peripheralKinds ; 



60 



$baseName = basename ( $f ileName) ; 
open HFILE, ">$f ileName. h" or return; 



binmode HFILE; 



open SFILE, ">$f ileName.s" or return; 
binmode SFILE; 



10 



15 



I' 



print HFILE «EOP; 

* File: $baseName.h 
* 

* This file is a machine peripherals definition 

* for a Nios hardware design. 

* $ptfName 
★ 

* Generated: $dt 



20 



25 

K 



Bi 



30 



35 



#ifndef _$ {baseName)_ 
#define _$ {baseName}_ 

#ifdef cplusplus 

extern "C" { 
#endif 

EOP 

print SFILE «EOP; 
File: $baseName . s 

This file is a machine peripherals definition 
for a Nios hardware design. 
$ptfName 

Generated: $dt 



EOP 



40 



45 



50 



55 



60 



# Figure out which ones are actually present 
# 

for{$i =0; $i < $#$peripheralListRef ; $i++) 
{ 

my $p = $$peripheralListRef [$i3 ; 

$pKind = $$p[0] ; 
$pName = $$p[l] ; 

$peripheralKinds{$pKind} ++ if ($pName =- /'^na../); # only count 
na_, not nasys ' s 
} 

# 

# Find the <x>_struct.h file for each of them, now. 
# 

f oreach $pKind ( sort ( keys ( %per ipheralKinds ) ) ) 
{ 

my $structFile; 

($structFile) = f indStructFile ( 

$components_directories , 



" $ {pKind} / $ {CUST0M_SDK_PIECES_DIR7^ 
"Struct .h" ) ; 



$structureContents = 
5 readFile($structFile) ; 

print HFILE V/ $pKind: $peripheralKinds { $pKind} present \n" ; 
print HFILE $structureContents , " \n" ; 

10 ($structFile) = f indStructFile ( 

$components_directories , 

" $ {pKind} /$ {CUSTOM_SDK_PIECES_DIR} " , 

"struct .s") ; 
$structureContents = 
15 readFile($structFile) ; 

print SFIDE $pKind: $peripheralKinds { $pKind} present \n" ; 

print SFILE $structureContents , " \n" ; 

} 



20 



m 



in 



print HFILE «EOP; 



#ifdef cplusplus 

} 

S25 #endif 



#endif // _$ {baseNaine}_ 



™ /* end of file */ 

P 30 EOP 



close HFILE; 
print SFILE «EOP; 

35 ; end of file 
EOP 

close SFILE; 



\^ return "ok"; 

^ 40 } 





# generateNiosHeader(headerFileName, ptfName) 

45 # Generate nios.li and nios.s, which just include 

# the other three header files. 
# 

sub generateNiosHeader 
{ 

50 my $fileName = shift; 

my $ptfName = shift; 

my $dt = date„time(); 

55 my $baseName = basename { $f ileName) ; 

open HFILE, ">$f ileName. h" or return; 
binmode HFILE; 

60 open SFILE, ">$f ileName. s" or return; 

binmode SFILE; 



print 



E «EOP; 



10 

15 
20 

D 
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* File: $baseNaine.h 



55 



60 



* This file is a machine generated header 

* for a Nios hardware design. 

* $ptfName 
* 

* Generated: $dt 
*/ 

#ifndef _$ {baseNaine}_ 
#define _$ {baseName}_ 

#include "nios_map .h" 
#include "nios_peripherals .h" 

#endif // _$ {baseName}_ 

/* end of file */ 
EOP 

close HFILE; 
print SPILE «EOP; 
File: $baseNaine.s 

This file is a machine generated header 
for a Nios hardware design. 
$ptfName 

Generated: $dt 

. include "nios_macros . s" 
. include "nios_peripherals . s" 
. inc lude " ni o s_map . s " 

; end of file 
EOP 

close SFILE; 
} 

# 

* f indDirlnDirs (components_directories , pKind) 
# 

* given the +-separated components directories, return 

* a path to <something>/pKind, if one exists. Else 
# 

sub findDirlnDirs 
{ 

my $components_directories = shift; 
niy $pKind = shift; 

my @components_directories ; 
my $ component subdirectory; 
my $p; 

@components_directories = split (/ \ + / , $components_directories ) 
f oreach $ component s_directory {@components_directories ) 



$p = "${components_directory}/${pKind} " ; 



retuim $p if( -e $p) 
} 



return 
} 



I Id^lM^cI^cla^dlsrc^Iies'isdi^Ir: ptf Reference, coinponents_directories) 

10 # From each wizard's "custom_sdk_pieces'; subtree. 

I extract out each and every lib. doc, inc. and src file. 

* if tS f i^e already exists on the other side, don't replace .t. 

sub addIiibDocInc_and_SrcFiles 

15 { 

my $sd3cDir = shift; 

my $ptfRef = shift; 

my $components_directories = shxft; 

20 nvy $moduleRef; 

my $pKind; 

n«y SpiecesDir; # directory within j<x>wizard with files to copy over 

my $s\ibDir; 

□25 my $i; 

^^=j my $childCount; 

K $childCount = get_child_count ( $ptf Ref ) ; 

for($i =0; $i < $childCount; $i++) 

L=J OQ { 

$moduleRef = get_child( $ptf Ref , $i) ; 
O next if ( ! isModule ( $moduleRef ) ) ; 
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SDKind = getModuleKind($moduleRef ) ; ^ r^-^^^ 

$?iecesDir = f indDirlnDirs ($components_directorxes , $pKa.nd) ; 

next if ( !$piecesDir) ; ^^^,„ 
$piecesDir .= V${CUSTOM_SDK_PIECES_DIR} ; 
foreach $subDir ( " lib" , "doc" , " inc" , " src" ) 
{ 

copyDirContents ( " $ (piecesDir } / $ ( subDir } " , " $ ( sdkDir } / $ ( subDir } " ) ; 
} 

} 



45 return "ok"; 

} 



# getModuleAddressRange (ptf Ref , module) 
50 # 

# module can be either moduleRef or moduleName 
# 

sub getModuleAddressRange 
{ 

55 my $ptfRef = shift; 

my $moduleName = shift; 

my $infoRef; 
my $addrExponent ; 
60 my $baseAddr; 

my $addrSpan; 
my $topAddr; 
my $alignment; 



my $wordSizePerAddress; 
my $bytesPerAddress; 
my $ address Alignment; 

# Discern moduleRef from moduleName 
# 

if (ref ($moduleName) eq "HASH") 

$infoRef = get_child_byjath($moduleName,"SYSTEM„BUILDER_INFO"); 

$moduleName = get_data ( $moduleN^e) ; 

} 

else 

f _ get child_by_path($pt£Ref. "MODULE 

$infoRef - ^ — 

$ {moduleName } / SYSTEM_BUILDER_INFO " ) ; 
} 

SbaseAddr = getAPTFNumber { $inf oRef . "Base_Address " ) ; 
SaddrSpan = getAPTFNumber {$infoRef. "Address_Span ); 

$addressAlignment = get_data_by^ath($infoRef , " Address_Alignment " ) ; 
if ($addressAlignment eq "dynamic") 

$wordSizePerAddress = getAPTFNumber ( $infoRef , "Da ta.Width" ) ; 

elsif ($addressAligninent eq "native") 

$wordSizePerAddress = getMasterDataWidth ( $ptf Ref ) ; 

elsif ($addressAligninent eq "word") 

$wordSizePerAddress =32; 

elsif ($addressAlignment eq "halfword") 

$wordSizePerAddress = 16; 

elsif {$addressAlignment eq "byte") 
{ 

$wordSizePerAddress = 8; 
} 

else 

i rlf^fault to width of master (Nios) CPU n ^-kt 

# aerauxT^ to w^u print_warning ( " $moduleName 

# ^ 

Address Alianment=\ " $addressAlignment \ " ; " ) ; , ,^ 4=^ 

''^'^''^^ - ^ordSizePerAddress = getMasterDataWidth ( $ptf Ref ) ; 

} 

$bytesPerAddress = int ( $wordS izePer Address / 8) ; 
$addrExponent = getAPTFNumber ( $infoRef , "Address^Wxdth ); 

$topAddr = $baseAddr ^ (1 « $addrExponent) * $bytesPerAddress ; 
$topAddr = $baseAddr + $addrSpan if $addrSpan; 

return { $baseAddr , $ topAddr ) ; 
} 

# 

# getSystemSettings (ptfRef ) 

# 



# return a reference to the associative 

# array which defines the processor options, 

# including reset address, vecbase, 16/32, and mstep. 
# 

5 # Return reference to array of various 

# useful globalish information about the system module 

# 

# FIXME: this only works if the bus master is a Nios . 
# 

10 sub getSystemSettings 
{ 

my $ptfRef = shift; 
my $moduleRef; 
my $pKind; 
15 my %result; 

my $i; 

my $childCount; 

my SmoduleName; 
20 rtiy $offset; 

my $base; 
my $top; 

# First, find the processor within the ptfRef 
25 $childCount = get__child_count ( $ptf Ref ) ; 

for($i =0; $i < $childCount ; $i++) 

$moduleRef = get_.child ( $ptf Ref , $i) ; 
next if ( i isModule { $moduleRef ) ) ; 
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$pKind = getModuleKind($moduleRef ) ; 

if ($pKind eq " altera_nios " or $pKind eq " jnioswizard ) 



{ 

my $x; 

35 # When found, fill the result 

dprint "found altera_nios" ; 

# Vector Table 
4Q $ mo du 1 eNcime 



SmoauJ-ewame j n n \ 

get„data.by_path($moduleRef , "WIZARD.SCRIPT^ARGUMENTS/vecbase.module ) ; 

$Offset ^ jzx: 

aetAPTFNumber($moduleRef ,"WIZARD_SCRlPT_ARGUMENTS/vecbase_offset ); 
getAPTFNumtoer { ^moa ^ ^^^^^ ^ getModuleAddressRange ( $ptf Ref , $moduleName) 

$result {vecbase} = $base + $offset; 
dprint "module = $moduleName, vecbase = $base, vectop = $top" ; 



# Reset Address 

50 $moduleName 

get.data_by_path($moduleRef , "WIZARD„SCRIPT_ARGUMENTS/reset_module ) ; 

$offset ^ 
getAPTFNumber($moduleRef,"WIZARD„SCRIPT_ARGUMENTS/reset offset ); 

^ ($base,$top) = getModuleAddressRange ( $ptf Ref, $moduleName) 

55 $result{reset_a} = $base + $offset; 

# MSTEP and MUL 

$x 

60 getAPTFNumber { $moduleRef , "WIZARD_SCRIPT_ARGUMENTS/ mstep" ) ; 

$x = $x ? 1 : 0; 

$result {mstep} = $x; # 1 or 0 
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$3? 

getAPTFNuinber($moduleRef , "WIZARD.SCRIPT.ARGUMENTS/multiply" ) ; 

$x = $X ? 1 : 0; 

$result {multiply} = $x; # 1 or 0 

# Nios 16 or 32? 

$x 

getAPTFNuinber($moduleRef , « SYSTEM_BUILDER_INFO/Data_Width" ) ; 

$x = 32 if ($x != 16 && $x != 32); 

$result{bits} = $x; 

} 

} 

$moduleRef =get„child_by^ath ( $pt f Ref , " WIZARD_SCRIPT„ARGUMENTS " ) 



# 

# Program and data memory 
20 # 

SmoduleName = get_data_by_path ( $moduleRef , "mainmem_module" ) ; 
( $base , $ top) = getModuleAddressRange ( $ptf Ref , $moduleName) ; 
$result {programmembase} = $base; 
25 $result {programmemtop} = $top; 

3 $moduleName = ge t_dat a_by_path ( $moduleRef , " da tamem module " ) ; 

ffl ( $base , $top) = getModuleAddressRange ( $ptf Ref , $moduleName) ; 

m $result {datamembase} = $base; 

^ 30 $result{datamemtop} - $top; 

^ # printf and gdb uarts 



O 



i ' ' 



$ re suit {maincomm__module} 

35 aet data by_patti{$moduleRef , "maincomm_module" ) ; ^ „ 

^^^-''^jJ-3^3^^gdbcomm_module} = get_data_by^ath { $moduleRef , "gdbcomm.module ); 

# germs monitor prompt 

40 $result {germs_monitor_id} 

get_data_by_path ( $moduleRef , " germs_moni tor_id" ) ; 

# clock rate 
45 my $clockFreq; 

$clockFreq = get„data_by^ath ( $moduleRef , "clock_f req" ) ; 
$result{clock_freq} = $clockFreq; 

50 return \%result; 

} 



^ 

# generateMakef ileInLib(sdkDir,ptfRef ,ptfName, $germsAddress) 

55 # ^.^^ 

# Generate a makefile that includes every .s or .c file 

# that's in custom_sdk/lib/ . . . 

sub generateMakef ilelnliib 

60 { 

my $sdkDir = shift; 
my $ptfRef = shift; 
my $ptfName = shift; 



my $gei:msAddi^Bs = shift; 



my $libDir = " $ {sdkDir} /lib" ; 
my @libFiles; 
my $libName; 
my $file; 
my $key; 

my $dt - date_time(); 

my $nios_system_name = get_data { $ptf Ref ) ; 

my $nios_data_bits; # 16 or 32 bit processor 

my $nios_mstep_support ; 
my $nios_multiply_support ; 

my %makefileVars; # extra values set in the makefile, and passed down to 
programs . 

# 

# Set germsAddress to a nximber in hex 
# 

$germsAddress = aNumber ( $germs Address ) ; 
$germsAddress = sprintf ( " 0x%08x" , $germsAddress ) ; 

# 

# First, find the processor within the ptfRef 
# 

{ 

my $miscSysRef; 

$miscSysRef = getSystemSettings ( $ptf Ref ) ; 
$nios_data_bits = $$miscSysRef {bits} ; 
$nios„mstep_support = $$miscSysRef {mstep} ; 
$nios_multiply_support = $$miscSysRef {multiply} ; 

} 

$libName = " libnios\$ (M) . a" ; 

$makefileVars{NIOS_USE_MSTEP} = $nios_mstep_support . " # CPU option 

(shift, test, & add)"; „ it r^TT 

$makefileVars{NIOS_USE_MULTIPLY} = $nios_multiply_support . # CPU 

option (16xl6->32) " ; ^ ^ n 

$makefileVars{NIOS_USE_FAST_MUL} = 1 . " # Faster but larger mt 

multiply routine"; . 

$makefileVars{NIOS_USE_SMALL_PRINTF} = 1 . " # Smaller non-ANSI print f, 

with no floating point formats"; 

$makefileVars{NIOS„USE_CWPMGR} = 1 . " # Turn off to disable underflow 

handling (dangerous)"; 

$makefileVars{NIOS_USE_CONSTRUCTORS} = 1 . " # Call C++ static 

constructors; turn off for smaller footprint"; 

$makefileVars{NIOS_SYSTEM_NAME} = $nios_system_name ; 
$makef ileVars{NIOS„MONITOR} = "nios_germs__monitor " ; 

# 

# spew a makefile, most uglywise 
# 

opendir (DIR, $libDir ) or return; 
©libFiles = readdir (DIR) ; 
closedir (DIR) ; 

open (FILE, ">${libDir} /Makefile" ) or bail;; 



print FILE «EOP; 



# 

5 # Nios SDK Generated Makefile 

# $dt 

# $ptfNaine 
# 

EOF 

10 foreach $key (sort (keys (%makefileVars) ) ) 

print FILE "${key} = $makef ileVars { $key} \n" ; 
} 

print FILE «EOP; 

15 

AS - nios-elf-as 
CC = nios-elf-gcc -c -02 -g 
AR = nios-elf-ar 
M = $ {nios_data_bits} 
20 OBJ = ./obj\$(M) 

SRC = . 

E = echo 



EOP 



^ 25 



{ 

^ my $aF; 

my $cF; 



30 $aF = "--defsym ^nios\$(M) =1 -m\$(M) -I ../inc"; 

$cF = " -m\$(M) -I ../inc"; 

foreach $key (sort (keys (%makef ileVars) ) ) 



$aF .= " \\\n\t— defsym . lc($key) . ( $key) " ; 



35 



$cF " \\\n\t-D . lc($key) . "_=\$ ( $key) " ; 
} 

print FILE "ASFlags = ${aF}\n\n"; 

print FILE "CCFlags = ${cF}\n\n"; 



O 40 } 

print FILE «EOP; 
RESULT = $libName 

45 OBJECTS = W 
EOP 

foreach $file (@libFiles) 
{ 

50 rciy $basename; 

if($file =- /-( .*)\. [cs]$/ 

and $file ne "nios_germs_monitor . s " ) 

{ 

55 $basename = $1; 

print FILE "\t\$ (OBJ) /${basename} .o \\\n" ; 

} 

} 

print FILE "\n\n"; 



60 



print FILE «EOP; 
\$(OBJ)/%.o : \$(SRC)/%.s 



\$(E) Assembling \$< 

\$(AS) \$(ASFlags) \$< -o \$@ 

\$(E) Archiving \$@ 

\$(AR) -r \$ (RESULT) \$@ 

5 

\$(0BJ)/%.O : \$(SRC)/%.c 
\$(E) Compiling \$< 
\$(CC) \$(CCFlags) \$< -o \$@ 
\$(E) Archiving \$@ 
10 \$(AR) -r \$ (RESULT) \$@ 

\$(OBJ) : 

\$(E) Making \$@ Directory 

mkdir \$@ 



15 
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1^ 
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clean : \$ (OBJ) 

\$(E) Removing objects 

rm -f ../../ \ $ (NIOS_SYSTEM_NAME) _germs_mona.tor .mif 
rm -f \$ (OBJECTS) \$ (RESULT) 

\$ (RESULT) : \$(OBJ) \$ (OBJECTS) 
\$ (E) Build \$@ 



25 Building Germs monitor \$ (NIOS_MONITOR) \@$ {germsAddress} 

a nios-build -s -b $germsAddress \$ (NIOS.MONITOR) . s 



\$ (OBJ) /\$ (NIOS_M0NIT0R) 

rm -rf \$ (NIOS_MONITOR) . s . o . . 4= 

\$(E) converting to \$ (NIOS_SYSTEM_NAME) _germs monitor .mif 
-^n nios-convert \$ (OBJ) / \$ (NIOS_MONITOR) . srec — oformat=mif --width-\$(M 

^^^^ convert \^»vvj u//x^v \$ (OBJ) /\$ (NI0S_M0NIT0R) .mif 

mv 

/ / \ $ (NI0S__SYSTEM_NAME) _germs_monitor .mif 



all : clean \S (RESULT) GERMSMON 

# end of file 
EOF 

close (FILE) ; 



45 



# printCol^s'(FILERef ,ptfRef , lineBeginString,columnbreakString, lineEndString) 
# 



sub printColumns 
50 { 

my $FILE = shift; 
my $ptfRef = shift; 

my $lineBeginString = shift; 
55 my $col\iinnBreakString = shift; 

my $ lineEndString = shift; 

my $nameWidth = 0; 
my $dataWidth = 0; 
60 my $name; 

my $data; 



my $i; 



my $childCount; 
my $childRef; 

$childCount = get_child_co\int ( $ptf Ref ) ; 
for($i =0; $i < $childCount; $i++) 
{ 

my $w = 0; 

$ctiildRef = get_child($ptfRef , $i) ; 
$name = get_name ( SclnildRef ) ; 
$data = get_data($childRef ) ; 



$w = length ( $naitie) ; 

$nameWidth = $w if $w > $nameWidth; 
$w = length ( $data) ; 

$dataWidth = $w if $w > $dataWidth; 
} 

for($i =0; $i < $childCount; $i++) 
{ 

my $w = 0; 

$childRef = get__child($ptfRef , $i) ; 
$naine = get_naine ( $childRef ) ; 
$data = get_data($childRef ) ; 

print $FILE $lineBeginString; 

print $FILE " " x ($nameWidth - length ($ 

print $FILE $name; 

print $FILE $coluinnBreakString; 

print $FILE $data; 

print $FILE $lineEndString; 

print $FILE "\n"; 

} 

} 



# 

# parseArgs 
# 

# Given a list of arguments, return 

# a hash where the keys and values 

# are taken from those arguments of 

# the form " — key=value" . The hyphens 

# disappear from the key name. 

# A command line switch of " — key" 

# is equivalent to "--key=l". 
# 

# a special key named „argc contains 

# a count of non-dash-dash arguments, 

# and they are in the hash as { 0 } , { 1 > , 

# and so on. 



sub parseArgs 
{ 

my $arg; 



my $argVal; 
my $argc; 
my %hash; 

$argc = 0 ; 



while ($arg = shift) 
{ 

usage if $arg eq "--help"; 

if {$arg — /) 

{ 

if($arg =~ /---(.*) \= (.*)$/ ) 
{ 

$arg = $1; 
$argVal = $2; 
} 

else 

{ 

$argVal = 1; 
} 

$hash{$arg} = $argVal; 
} 

else 

{ 

$hash{$argc++> = $arg; 
} 

} 

$hash{_argc} = $argc; 

return %hash; 
} 



# getSwitch(hashRef , switchName, defaultValue [, mustBeNumbe: 
# 

# Look at a hash as returned by parseArgs, and 

# give the value of the switch, or the defaultValue 

# if it was not specified in the command line. 

sub get Switch 
{ 

my $hashRef = shift; 
my $switchName - shift; 
my $defaultValue = shift; 
my $mustBeNumber = shift; 

my $switchValue; 

$switchValue = $$hashRef {$switchName} ; 

$switchValue = $def aultValue if ( $switchValue eq ""); 
$switchValue *= 1 if ( $mustBeNumber ) ; 

return $ swi tchValue ; 
} 



# 

# 

# Necessary inputs: 



# — sopc_direcj^=dir complete path to directoJ^^Dntaining jnioswizard 
& siblings^^^^^^^^^^^^ system; add .ptf for the file we need 

^ --system__directory=dir path to the ptf file 

5 # 

# Optional inputs: 

# — sdk_directory=dir complete path to custom sdk result directory. All 

enclosing -. ^ - ^ 

# directories above it must already exist. 
jQ ^ default: system_directo3ry/system_name„sdk 

# — sopc_lib_dir=dir [ (+dir) *] 

^ list of directories for components 

# nios_sh=full path what nios_sh to source for paths, &c . 

# default : /usr/altera/excalibur/nios-sdk/nios_sh 
15 # --debug=l (or 0) turn on debug print messages, defaults to off. 

s\ih ink_custom_sdk 
{ 

my $sopc_directory ; 
20 my $system_name; 

ray $system_directory; 

my $sdk_directory; 

my $nios_sh; 

my $altera„dir; 
25 my $ptf_name; 

my $result = 0; 

my $components_directories; 
30 my %switches; 

%switches = parseArgs (@„) ; 

$sopc_directory = getSwitch { \%switches , " sopc_directory" , " . " ) ; 
35 $system_name = get Switch ( \%switches system_name" , "a_nios_.system" ) ; 

$system_directory = getSwitch ( \%switches , " system_directory" ,"."); 
$sdk_directory = getSwitch ( \%switches , 
"sdk_directory" , 

" $ {system_directory} /$ {system_naine}_sdk" ) ; 
40 $components_directories = getSwitch ( \% switches , 

" sopc_lib_path" , 

" $ { sopc_directory } /components " ) ; 
$altera„dir = getSwitch ( \%switches , 
"altera„dir" , 

45 " " ) ; 

$nios_sh = getSwitch(\%switches, 
"nios_sh" , 
" " ) ; 

50 $gUse01dSillyiXNaines = getSwitch { \%switches , "use_old_wizard_names 0 ) ; 

$gDebug = getSwitch ( \%switches debug" , $gDebug) ; 
$ptf_name = "$ {system_di recto ry} /$ {system_name} .ptf "; 
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my $germsAddress ; 

my $ptfRef; # the whole PTF, hashed & such 

my @peripheralList; # indexed by base address, in decimal, 

"type : instanceName" 

if ($sdk„directory eq " " ) 
C 

print_command "not enough arguments."; 



return 0 ; 
} 



# Read project description for memory map and name. 

# Discern which peripheral classes are needed. 

print_command "Reading project $ {ptf_name} . " ; 
$ptfRef = readPTF($ptf__name) ; 

©peripheralList = readAddressMap ( $ptfRef , \$germs Address ) ; 

if (scalar (@peripheralList) <= 0) 
{ 

bail "No peripherals . " ; 
} 

# Generate Customized SDK directory structure 
print command "Generating SDK Tree"; 

mkSDK^ree($sdk_directory) or bail "Could not create SDK tree. ; 

# log beginning ^ . ^ 
open (FILE,"»${sdk_directory}/custom_sdk_log.txt") or return; 

print FILE date_time , " : Started latest custoitL-Sdk\n" ; 

close FILE; 

# Create nios_inap.h 

orint command "Generating address map header file."; , • „^ 

geiSriteAddressMap ( $components_directories , " $ (sdk_directory} /xnc/nios_map 
\@peripheralList, $ptf_name, $ptfRef ) , , ,. 

or bail "Could not generate address map. ; 

# Create nios_peripherals .h 

print_command "Generating peripherals structures file."; 

generatePeripheralsStructs ( " $ {sdk_directory} /xnc/nios^eripherals , 

\@peripheralList,$components_directories.$ptf_name) ^ 
or bail "Could not generate peripherals structures file. ; 

# Generate nios.h and nios.s, which just combines them 
generateNiosHeader ( " $ { sdk_directory} /inc/nios " . $ptf _name) ; 

# Copy files into lib, doc. inc, and src . 

orint command "Adding lib, doc. inc, and src files."; 

SdSJbSocInc_and_Src?iles ($sdk_directory, $ptf Ref . $components_dxrectories) 

# Generate a makefile in the lib directory 

print command "Generating Makefile in lib."; = x . 

SenerlteMakef ilelnLib ( $sdk_directory , $ptf Ref , $ptf _name , $germsAddress ) , 

# log end 

open (FILE, "»$sdk_directory/custom_sdk_log.txt") or return; 
print FILE date_time,": Finished latest custom_sdk\n" ; 
close FILE; 



# 

# Build the darned thing 
# 

my $bin„directory = " $ {sopc_directory} /bin" ; 
ray $sh; 

# We only allow Cygwin to be installed 

# in c:\cygwin or d:\cygwin, so look 

# in those allowed places . 
# 

# After that, try unixy locatxons. 
# 

if($''0 eq "MSWin32") 
{ 

$sh = 'c:\cygwin\bin\sh.exe'; 

$sh = 'd:\cygwin\bin\sh.exe' if (1 -e $sh) ; 

} 

else 

{ 

$sh = ' /bin/sh* ; 
} 

if ( ! -e $sh) 

print_warning "You must install Cygwin & Nios SDK 1,1 to get 

library and Gems monitor."; 

$result = -1; 
} 

else 

irint_command "Making Library & Germs Monitor"; 
my $ sys t em_command ; 

$system_coinmand = "${sh} -c \"cd $sdk_directory/lib" ; 

$system^command .= - ;nios_sh=${nios_sh} " if $nios sh ne " " ; 
$system_coinmand .= " ; altera=$ laltera_dir} " xf $altera_dir ne 

It * 
/ 

$system_coinmand .= $ {bin_di rectory } /mk_custom_sdk . sh\ "" ; 

# Tell modified perl to spawn new process mvxsilDly 
# 

open (ABRAHAM_LINCOLN_STEALTH, ""); 
close ABRAHAM_LINCOIiN_STEALTH; 

dprint " system__command is $system_command" ; 
$result = system ( $system_command) ; 

# 

# Turn off invisible-flag 
# 

open (ABRAHAM_LINCOIiN_NO_STEALTH, ""); 
close ABRAHAM_IiINCOLN_NO_STEALTH; 



if ($result) 



you install it?) " ; 

5 

} 

} 

return $result; 
10 > 



print_warning "Make failed (Nios SDK required... did 

$result = -1; 
} 



# 

# The Body 
# 

15 



return "ok" ; 



20 # end of file 



■snr 

m 

i — 



□ 
ly 

s s 



Mk_Nios . pm 
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use V7iz_utils; 
use wiz__convert ; 

# 

# Mk_Nios 

# Builds a Nios core from named arg\Htients 

# design and support files, plus synthesis script. 

# 



30 



n 35 
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including all 
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LONG NAME 


SHORT NAME 


Dhir AUJ-ii 


*name 


nm 


--none-- 


project_dir 


proj 


32 


bits 


bits 


nuin._regs 


regs 


256 


sliif t_size 


shift 


7 


mstep 


mstep 


YES 


multiply 


multiply 


NO 


wvalid_wr 


wr_wv 


NO 


*higli_a 


ha 


--none-- 


*vecbase 


vb 


--none-- 


*reset_a 


ra 


— none-- 


idle__cycle 


idle_cycle 


YES 


mm_span 


mm_span 


--none-- 


mm base 


mm_base 


--none-- 


leo_settings leo_set 


$DEFAULT_riEO_l 


user instruction_list uil 


— none-- 


part_type 


--none — 


apex20e 



Name 

Project directory for output files. 
* (32 1 16)* Number of ALU bits. 
* (128|256|512) * Reg file size. 
*(ll3l7ll5l31)* Bits/clk shift speed 
*{YESlNO)* include MSTEP unit? 
*(YES|NO)* Include multiply unit? 
*( YES I NO)* Writeable WVALID reg? 
Highest mem address in system. 
Vector table base address. 
Reset execution-start address. 
* (YES I NO)* Insert Rd->wr idle cycle? 
main memoiry address span, 
main memory base address . 
SETTINGS Synthesis-settings script, 
delimited list of user instr. 
part type used for firm flip flops 

END_OF_DOCUMENTATION_STRING 

# This was used for testing: 

# user_instruction_list uil RR-K-OlllOO-FMUL makes FMUL 

I But the first argument to this function (NOT a named argument) 

# tells us whether to build a Nios core, HDL files and all, 

# or to build only a PTF-file. 

# The PTF_ONLY parameter must be "YES" or "NO." 
# 

########^ 
sub Mk_Nios 

my ($PTF__ONLY, @named_arg__list ) - (@_) ; 

my ($named_arg_string, $arg, $user__def ined) = ^ n^ot-x. 

Process_Wizard.Script_Arguments ( $Mk_Nios_Doc , @named_arg_list) , 

my $part_type = $$arg{part_type} ; 

f Sfcri^L^several^^ variants so that we can, for example, 

# assign Fast I/O register attributes to them later. 
# 

# These global variables we're setting get used 

I inside the nios-core Vpp script. David Van Brink would be horrified. 

# These names used to be long and luxurious. Now they're short 

# and spartan. FPGA Express gets angry if your name runs over 32 

# characters, and the old long names "used up" 16 precious characters. 




m 

« Rill- hViw're short. Anospartan. Sorry. 

# Now they onlu use-up three. But tney re snux u . 

UdRESS_OUT.REG.HODUX.E.NAME = $$arg(na.e> . "^.ar^ ; # -^^^^^^^^^ 
^CONTROL OUT REG_MODULE_NAME = $$arg{naine} - _cr , ft "^^t-^ 4 ~ ^a" 
iDAS_INlREGlMODUI.E_.NAME ^ $$arg{name} . "_dr" ; # „data_in_reg 



################ 

# Conditional file list\ 

# If we're building the whole core (HDL files), then 

I 11 ^ Vpp on a whole bunch of files. If, on the other hand 

# we're only making the PTF-file, then we run Vpp on many fewer 

# files. 
# 

my @vpp_f ile_list = (); 

if (uc($PTF_ONIiY) eq "YES") 

^ # Only enough stuff to build the PTF-file: 
push <@vpp_f ile„list , ( 

" -H" , " $VPP_DIR/process_sdf .vpp" , 

" -H" , " $NXOS_CRYPT_DIR/cpu_interf ace . vpp" , 

) 

) ; 

^ S^eate Firm_Flip_Flop_Variant ($ADDRESS_OUT_REG_MODULE_NAME, 
~ $QUARTUS„PRO JECT_DIR , 

$part_type) ; 

&Create_Firm_Flip_Flop_Variant ( $CONTROL_OUT_REG„MODULE_NAME , 

$QUARTUS_PRO JECT„DIR , 
$part_type) ; 

&Creat e_Firm_Flip_Flop_Variant . ( $DATA_IN_REG_MODUI.E„NAME , 

$QUARTUS„PROJECT_DIR , 
$part_type) ; 

push (@vpp_f ile_list , ( 

"-H", «$NIOS_CRYPT_DIR/f irm_flip_flop.vpp , 
" -H" , " $vPP_DIR/generator__f unctions .vpp" , 

" -H " " $VPP_DIR/process_sdf . vpp " , . „ 

"-H" , "$NIOS„CRYPT_DIR/processor_generator_f unctions. vpp , 

" -H" " $NIOS_CRYPT_DIR/cpu_interf ace . vpp" , 

" -H" " $NIOS_CRYPT_DIR/mnemonics .vpp" , 

" -H" [ " $NIOS_CRYPT__DIR/control_bits .vpp" , 

" $NIOS_CRYPT„DIR/major_opcode_table .vpp" , 

"$NIOS_CRYPT_DIR/subtable__w.vpp" , 

" $NIOS_CRYPT_DIR/ ins true tion_decoder .vpp" , 

" $NIOS_CRYPT_DIR/cpu„core . vpp" , 

" $NIOS_CRYPT_DIR/ regis ter_ram. vpp" , 

) 

) ; 

if ($$arg {multiply} =- /YES/i) { 
push (@vpp_f ile__list , ( 

"$NIOS_CRYPT_DIR/mul_unit .vpp" , 

) 

) ; 

} 

} 



# First, run Vpp to create the CPU and all its peripherals: 



&Vpp ( 

split (/\s+/, "-Q -R -X V"), 
" -D" , " $QUARTUS_PROJECT_DIR" , 
"-P", $$arg{naine} . "_" / 
" NIOS_DATA_BITS 

" NIOS_SINGLE_CLOCK_SHIFT_DEPTH 

"NIOS_REGISTER_FILE_SIZE 

" NIOS_WRITEABLE_WVALID_REGISTER 

" NIOS_MSTEP„SUPPORT 

" NIOS_MUIjTIPIiY_SUPPORT 

" NIOS_USER_INSTRUCTION_LIST 

"N10S_VECBASE 

" NlOS_RESET„ADDRESS 

"NIOS_SYSTEM_HIGHEST_ADDRESS 

" NIOS_TURNAROUND_IDLE_CYCLE 

" NIOS_MAIN_MEM_BASE„ADDRESS 

" NIOS„MAIN_MEM_ADDRESS_SPAN 

" NI0S_PTF_0NLY 



$$arg(bits} 

= $$arg{shift_size} " , 

$$arg{num_regs} 

= $$arg{wvalid_wr) 

= $$arg{mstep} 

= $$arg{multiply} 

$$arg{user„instruction_list} " , 

= $$arg{vecbase} 
= $$arg{reset_a} 
= $$arg{high„a} 
= $$arg{idle_cycle} " 
= $$arg{inm_base} 
= $$arg{inm_span} 
= $PTF_ONIiY 

= TRUE" , 

$$arg{naine} .ptf " , 

= $named_arg_string" , 
= WIZARD„SCRIPT„ARGUMENTS* 



"MAKE_PTF 
II p«i»F_FILiENAME 

" PTF_PARAMETER_STRING 

11 pTF_PARAMETER_SECTION_NAME 

@ vpp_f i 1 e_l i s t , 
) ; 

################ 

# If we're in "PTF-only" mode, then we 

# also do the user the courtesy of generating a "nios.v" file 

# which says "Sorry I didn't -really- build you a Nios core— I was 

# just kidding. " 
# 

if {uc($PTF_ONIiY) eq "YES") 

^ # Note: "nios.vpp" isn't actually encrypted (it's important 
# that the user sees the comments ! ) . 
# 

&VPP C-Q", "-X", "V", ... . „ 

" -O" , " SQUARTUS_.PROJECT_DIR/$$arg{name} . v" , 
"NIOS_CPU_NAME = $$arg{name} 

" $NIOS_CRYPT_DIR/nios . vpp " , 

) ; 

warn ("VPP HDL -GENERATION SUCCESSFUL . \n" ) ; 

return; # Don't do any more if we're in PTF-ONLY mode. 

} 



# 

################ 

# Everything after here gets executed only if we're really 

# building a CPU and all its HDL-files, etc. (not just a ptf-fi 
# 

# Get " {quartus, leonardo,modelsim}_def ine.v, and all that stuff 
# 

&Copy„Tool_Control_Files ( $QUARTUS_PROJECT_DIR) ; 

# Run Vpp again to create the Leo synthesis script. 
# 

#NO MORE SYNTHESIS SCRIPTS 

#my $script_name = $$arg{name} . "_synthesis_script . tcl " ; 
#&Vpp ("-Q", 



#" -O" , " $QUARTUS„PROJECT_DIR/$script_naine" , 
#"NIOS_CPU_.NAME = $$arg{naine} 

#"NIOS„SETTINGS„SCRIPT_NAME = $$arg{ leo_settings } 

# " $NIOS_SOURCE_DIR/ cpu_synthes i s_scr ip t . tcl . vpp " , 
#) ; 

# Make the simulation files for the embedded decoder ROMs. 

I NOW we need to convert the mif-file into a .dat-file for simulation 
ly $table name = $$arg{ "name" } - "_ma3or^opcode_table , 

&Convert_Mif_To„Dat ( " $QUARTUS_PROJECT_DIR/$table_name .mif , 

" $MODEIiSIM_DIR/ $ table_name . dat ) ; 



$table name = $$arg{ "name" } • "„subtable„w" ; 

&Convert_Mif_To„Dat ( " $QUARTUS_PROJECT„DIR/$table_name .mif , 

"$MODELSIM_DIR/$ table_name.dat' ) ; 

warn ("VPP HDL-GENERATION SUCCESSFUL . \n" ) ; 



# You need this for Perl to agree that this is a 



pbin„gen . pm 

# pbm_and_systera„modules . vpp 
5 # 

# This file contains a bunch of VPP-code which generates 

# the systems' PBM module and top-level system-module. 

# It builds the system as-specified by the PTF-f ile you 
10 # indicate. You do so indicate 

# 

# Generate_System_IiOgic 

# This one happy Perl function is the top-level call for 
15 # creating synthesizable Verilog which implements the 

# "system" (e.g. Nios system) described by a single 

# PTF-f ile. 

# The one-and-only argument is, of course, the name 
20 # of the PTF-f ile itself. 

# 

# The result is a bunch of Verilog (and other) files 

# deposited in the users' Quartus project directory. 
# 

25 # Naturally, &:Generate_Systein_Logic is a pretty complex 
i # Perl function which relies upon various dedicated Perl subroutines 

# and utilities to do its many jobs. Those sub-functions are 

# also defined in this module. 

30 



B 35 ################ 



use ptf_update; 
use mk_bsf; 



# Things to document: 
# 

# Philosophy, including overview of data-structure 

40 # difference between "active" and "asserted" 
# 

################ 

# Notes for my friends: 

45 # 

# Add to system-level WIZARD_SCRIPT_ARGUMENTS section: 

# " Principal_Tri_State_Data_Bus " 
# 

# Add to module-level SYSTEM_BUILDER_INFO sections: 
50 # "Uses_Registered_Select_Signal" 

# "Uses_Tri_State_Data_Bus " 
# 

# Master's SBI needs: 

# "Data_Width" 

55 # "Address_Width" 
# 
# 

# Narrow accesses from non-dynamic tri-state peripherals are filled 

# with "undefined." Sorry. That's life. 

60 



################ 

# Funny Things to test: 



# 

# System with absolutely zero waxt-states. 

# Systems with -all- tri-state perxpherals. 
# 



################ 
## ERRORS TO CHECK: 



I Funny chip-selects (base not a multiple of span, span not power of two) . 
# 

# Warn about unknown assignments in PTF/SDF file 

15 # Check assignments as much as possible when PTF/SDF is parsed, 

# give line numbers . 

# Check to be sure all "instances" have unique names. 

20 instead 

# numerically, a subroutine that enables us to sort by numeric order instead 

sub numerically {$a <=> $b; } 
O sub Find_Max 

yj { 

W my $max = " " ; 

m foreach $val (@_) 

Q 30 ($max = $val if $val > $max [ | $max eq ;> 

^ return $max; 

U3 




35 # &Debug 
# 

# First arg turns message (s) on/off. 

40 sub Debug 

my ($doit, ^messages) = (@_) ; 

return if !$doit; 
45 my $space = " " ; 

foreach $msg (©messages) 

^ print STDERR "DEBUG: $space$msg\n" ; 
$ space = " " ; 

50 } 

} 

# PBM_Progress 
55 # 

# Our own private progress-printing routine. 

# uses the one in "wiz_utils .pm, " except that it 

# qualifies the output so that it only shows-up if the 

# PBM_VERBOSE flag is on, and if this is pass 2. 



sub PBM„Progress 
{ 




# in the future, I'd like to put a little more informative^ 



my $old_out = select (STDOUT) ; 
ScProgress ; 
select ($old_out) ; 

} 

######### 

# PTF„Err 

10 I H.^l^^^lr^l ™s:a,:s:::iie Si'li™ „^.. and such. 

# This'd be the place to do it. 

sub PTF_Err 
15 { 

my $msg; 
($msg) = (@_) ; 

die ("Error while reading PTF file.Xn 
20 $msg"); 
} 

# Get_Port_By_Role 

O # Simple utility- function for acting on %Mod-hashes . 

^ I ?ou sly what "avalon role" you want, and this returns 

m I a %Port-hash (by reference) for the corresponding module port. 

S 30 I If there's more than one port with the avalon-role V^^^fJ^^^^f 

C I tien you get one of them at-random. This is only reliable xf the 

□ # avlloLroL uniciuely describes one of the module's ports. 

^ # If you set the "Sstricf option, you get an error if the port 

L 35 # doesn't exist. 

S J#t############################tt###############*###**#********** 

M' sub Get_Port_By_Role 

fy { 

□ 40 my ($Mod, $avalon_role, $strict) = (@_) ; 

# DO step-by-step hash-dereferencing using temporary variables- 

# otherwise the syntax gets impenetrable. 

45 Iv $avalon_port_table = $$Mod{avalonj)ort_table} ; 

my $Port = $$avalon_port_table{ $avalon_role} ; 



50 



die "Get_Port_By_Role: No port of type $avalon_role on module $$Mod{name} . " 
if $strict && !$Port; 



return SPort; 
} 

###########################**##******#************************** 
55 # Get_Sys_Signal 

# This is a utility-function that works on one of our „„v,«v 

# deiined-by-convention %Mod-hashes (which, you certaxnly remember 

# is a hash containing various useful information about each module) 

# in particular, each module has a bunch of ports, some of which 
I ll^Tll "avai;n role." Any port with an "avalon role" connects 

# to some ritualistically-named signal at the system level. 



I sometimes, given a module and an avalon role it ^^^^^J^^^^ 

# know what system-level signal "serves" that role. As an example, 

# it is useful to be able to answer the question: 

I — Which system-level signal drives the "address" -type port 



# 



on the module "Uart_3?" 



# This function here answers that very sort of question by 

10 I Sggiirthe appropriate information out of the %Mod-hash you 

# pass-in (by reference, of course) . 

1 If you set the " $strict" -option argument, then we complain if 
I no ^uch port is found on the indicated module. Otherwise, we 
15 # return "" (null) for nonexistent ports. 

sub Get_Sys_Signal 
20 ^ my $Port = &Get_Port_By_Role (@_) ; 

return "" if !$Port; # Explicit null-string return if port doesn't exist, 
return $$Port{system_signal} ; 

^25 } 

S #############################################******************* 

fg # Get__Sys_Module_Ijist 

-^0 # This is a utility- function that works on one of our 
" ; defLid-by-conve?;tion %Sys-hashes (which, you certainly remember, 

# is a hash containing various useful information about the system- 

# under-construction) . 

35 # This returns a list of %Mod-hasti ref s . This list includes 

# -all- modules in the system, including the master. 

I The astute reader will note that a call to this function 

# can be replaced by a single expression: 
40 # 

# values %{$$Sys{module_.table} } 

ft But that's one ugly expression. This function adds a bit 
I of sei?-documentLIon. and a much-needed dose of object-oriented, 
45 # implementation-hiding, pseudo-access-method methodology. 

sub Get_Sys_Module_List 
{ 

50 my ($Sys) = (@_) ; 

my $module_table = $$Sys {module_table} ; # Just for nice syntax, 
return values (%$module_table) ; 

} 

55 

# Get_Sys_Slave_List 

# Just like "Get_Sys_Module_List, " above, except that the list 
60 # you get doesn't include the master. 

I Many times, this is what you really wanted. And this function 

# saves you the trouble of having to put a master-exclusion test 




# in your otherwise- txdy loop. 

sub Get_Sys_Slave_I.ist 
5 ( 

my ($Sys) = (@_) ; 
my ©result = () ; 
10 foreach $Mod (&Get_Sys_Module_L.ist ($Sys) ) 

^ push (©result, $Mod) unless $$Mod{Is_Bus_Master ) ; 
} 

15 return ©result; 

} 

############################»##############*#####*************** 

# Get_Module_Port_Ijist 

# Just like "Get_Sys_Module_List." above- and intended to 

# serve the same dubious code-beautif ication purpose. 

I The difference is: this function gets all the %Port-hashes 
_ 25 ; out of a %Mod-hash. instead of all the %Mod-hashes out of a 

LJ # %Sys-hash. 

H sub Get_Module_Port_List 

n 30 { 

^ my ($Mod) = {©_) ; 

2 my $port_table = $$Mod{port_table} ; # Just for nice syntax, 

y" return values (%$port_table) ; 

L 35 } 

t ##############################################*##*#************* 
40 # Emit_Comment 

^ I Emit the user-supplied string as a verilog comment directly 

# into the output file. As a courtesy, we put //-characters 

I af the beginning of every line, sparing the user the trouble. 

I we call "ScVprint," so the user must previously have "selected" 

# their destination verilog-file as STDOUT. 

!################################******************************* 

50 sub Emit_Comment 

my ($comment, $language) = (@_) ; 
$language = "verilog" if i$language; 

55 my $cstart ="--"; 

$cstart = "// " if $language =- /^verilog/x; 



60 



$comment = $cstart . $comment ; i-inf=> 
$coimnent =^ s | \n | \n$cstart jmg; # Put ' // ' xn front of every Ixne, 

ScVprint { " $comment\n" ) ; 




##w##### 

F ffff W ■ft' # fl- tf tr ft TTTT IT TTTT TT TI U M 11 I. " 

# Emit__Top_Comment 

# writes module-name, date-stamp, and legal notice into the 

# currently-selected output file, trilingually . 




sub Emit„Top_Comment 

10 ^ my ($module_name, $lang) = (@_) ; 

$lang = "verilog" if l$lang; 

my $date = scalar (localtime ( ) ) ; 
15 my $magic_altera_string = ' %Altera Excalibur mos(tm)% ; 

my $top_comment=<<EOM; 
// megaf unction wizard: $magic_altera_string 
//// GENERATION: STANDARD 
//// VERSION: WMl . 0 
20 // Module: $module_ncLme 

// Automatically-generated file: **** DO NOT EDIT **** 

// Generated by Excalibur SOPC-Builder [$date] 

// 

*=-25 $GLOBAIi_COPYRIGHT_NOTICE 

3 // 

EOM 

i $top_coinment =~ s|//| — jmg if $lang =- / M vhdl | ahdl ) / i ; 

M 30 &Vprint ($top_coinment) ; 

£ } 

i ############################*##********************************* 

r # Emit_Module_Header 

9 I YOU give the name of the module ("Foo") . and this function 

P; # Sts the ritualistic top-of -module stuff, which we once would have 

^ # done this way: 

□40 # module Foo ( /* {&Declare_Ports_For { "Foo" ) } */ ) 

Li ^ /*{ &Define_Ports_For ("Foo" ) }*/ 

\ Emits the module- and port-delcarations for the named module into 

# the currently-selected output file. 

\ Naturally, you have to have already done a &List_Ports_For the named 

# module. 

50 sub Emit_Module_Header 

^ my ($module_name, $lang, $do_bb_declaration) = (@_) ; 



55 



$lang = "verilog" if l$lang; 



if (($lang =- Z'^vhdl/i) ) { 

ScVprint ("LIBRARY ieee;\n"); 

&Vprint ("use ieee . std_logic_1164 . all ; \n" ) ; 
60 ScVprint ("ENTITY $module_name IS\n"); 

ScDef ine_Ports__For ( $module_name , 0, $lang) ; 
ficVprint ("END $module_name ; \n" ) ; 

ScVprint ("ARCHITECTURE behavior OF $module_name IS\n ); 



} elsif ($lang /^ahdl/i) { 

&Vprint ( " SUBDESIGN $module„name\n" ) ; 
&Vprint (" (\n") ; 

ficDef ine_Ports_For ( $module_naine , 0, $lang) ; 
ficVprint (")\n"); 

} elsif ($lang /'"verilog/i) { 
# Verilog: 

my $synplify_bb_string = ' /* synthesis syn_black__box */' 
if $ do_bb_dec lara t ion ; 

&Vprint ( "module $module_name ( \n" ) ; 
&Declare_Ports_For ( $module_name) ; 
&Vprint (") $synplify_bb_string ;\n"); 
&Def ine_Ports_For ( $module_name, 0, $lang) ; 
&Vprint ("\n // synopsys translate_of f \n" ) 

if $ do_bb_de c 1 ar a t i on ; 
ScVprint ("\n" ) ; 
} else { 

die "Emit_Module_Header : Foul language {$lang)"; 

} 

} 

################################################################ 

# Emit_VHDL_Component 
# 

# You must declare all your VHDL black-boxes {" COMPONENT " s ) m 

# the "ARCHITECTURE" section of your module, before the first 

# "BEGIN." OK, so be it. 
# 

# You must have previously done a &List_Ports_For -call for this 

# module. 

################################################################ 

sub Emit_VHDIj_Component 

{ 

my ($comp_name) = (@_) ; 

&Vprint ("COMPONENT $comp_name IS\n" ) ; 
&Def ine_Ports_For ( $comp_jname , 0 , "vhdl" ) ; 
&Vprint {"END COMPONENT; \n" ) ; 

} 

################################################################ 

# PBM_Assign 
# 

# Emit a simple assignment into the PBM-file (which we pres\ame 

# to be the currently-selected output file) , 
# 

# We take special measures to avoid redundant assignments (we 

# keep our own private hash of past assignments) , We check to make 

# sure the same signal is never assigned to two different things. 
# 

# The arguments are the target-signal and the value we want 

# assigned to it. 
# 

# Also, note that we -explicitly- do nothing if the assignment -target 

# is NULL ("") . This deals gracefully with, for exconple, broadcast- 

# assignments to modules that don't have a recipient port. For example, 

# you can go ahead and &PBM_Assign the write-data bus to a module that 

# doesn't actually have a "writedata" -type port, and it still works 

# out OK (nothing happens) . 



10 



J############################################################### 

% Pr iva t e_PBM_As s ign_Hash ; 

sub P3M_Assign 

my ($target_signal, $assignment_value) = ; 

return if $ targe t_signal eq # Deal with null-assignment , per comment, 

my $previous_assignment = $_Private_PBM_Assign_Hash_{ $ targe t.signal } ; 
# Ignore truly- rediindant assignments: 

return if $previous_assignment eq $assignment„value ; 



20 



15 $previous_assignment eq " " or die " 

Inconsistent assignments to signal $ targe t„s ignal : 

($previous_assignment) and ( $assignment_value) " ; 

ScVprint ("assign $target_signal = $assignment_value ; \n" ) ; 

$ Private_PBM_Assign_Hash {$ targe t_signal} = $assignment_value ; 

} 

#^############################################################## 
25 # PBM_Wire 

# Emit a Verilog "wire" declaration into the currently- selected 

# output file. You give the name and width of the wire you 

# want to decalre. Deals gracefully with the null wirename ("") and 
30 # with zero-width wires: No declaration is emitted. 

# Also allows you to pass-in an optional " $assignment " Verilog-expression, 

# so you can declare a wire and assign a value to it in one stroke. 

sub PBM_Wire 

my ($wirename, $width, $assignment) = (@_) ; 
40 $ width = 1 if $width eq " " ; 

return if $width == 0; 
return if l$wirename; 

45 my $range = &:W($width) ; 

StVprint ("wire $range $wi rename ; \n" ) if $wirename && $width; 

&PBM_Assign ($wirename, $assignment) if $assignment; 

50 } 

# Validate_And_Reserve_Address_Range 
# 

55 # Given a reference to a %Mod-hash, we compute the 

# address-range allocated to that module and make sure that 

# somebody else doesn't already live there. If so, we 

# print an error. 

60 # Also, while we're thinking about the address, we do some sanity-checks. 

# That's why the %Sys-hash (ref) is also passed- in, so we can 

# check to be sure the module is in-bounds . 



10 



15 



20 



# we also declare the silly "Scwi thin" -function for code-SgTuty . 

sub within { my ($test, $lo. $hi) ; return ($test >- $lo) S=& (5test 
% pr ivate_Address_Range_Hash — ; 

sub Val idate_And_Reserve_Addres s_Range 
my {$Mod, $Sys) = (@_) ; 

SSModfBase Address} ne "" or die i« 
»lZroT: bad Base_Address setting for module $$Mod{name} " ; 

SSModfaddress span} = 2** ($$Mod{highest_address_bit used} +1); 
$$Mod{end_add^eL} = $$Mod{Base_Address} . $$Mod(address_span} - 1; 

$$Mod{end address} <= {$$Sys {address_span} - 1) or die " ^^^^em 
End-address of module $$Mod{name} is greater than max3.mum system 
address ($$Sysladdress_span} - D"; 

foreach $inst (keys (%address_range_list) ) 

($min, $max) = split ( /\ , / . $_Private_Address_Range_Hash_{$inst} ) ; 



35 



45 



{ 



my 



25 die -Address-range conflict between $inst and $$Mod{name} . 
^ <;in<3t occupies: [$min . . . $max] 

« $$Sod{name} occupies: [$$Mod{Base_Address} $Mod(end_address} ] 

^ if Scwithin ($$Mod{Base_Address}, $min. $max) M 

CO fcwithin ($$Mod{end_address} , $min. $max) ; 



S 30 } 

n 
01 



$ private_Address_Range_Hash — { $ $Mod{name } } - 

" $$Mod{Base_Address} , $$Mod{end_address} ° ; 



} 

###############################*#»##**************************** 
w= # Resolve_Address_Alignments 

5 I in the PTF-file, the user can specify "dynamic" and -native" 

ri 40 # addreL-alignments. In these cases, the system-generator (that d be 

P I merleeds tr^do something smart" to reconcile peripherals with 

# normative data- widths . 

I we can only do that after all modules have been read-in ( including , 
I s;g^^?ican^ly, the master) , and some system-level xnfo has been 

# set-up. 

# Consequently, this function is called at the end of 
I aG2t!Sstem!lData_From_PTF, after all the modules have been read. 

sub Resolve_Address_Alignments 
{ 

my ($Sys) = (@_) ; 



55 



60 



foreach $Mod {&Get_Sys_Slave_List ($Sys) ) 

^ ft Fioure out what kind of address will ultimately be presented to this 
I moSile. Jhls is slightly tricky because of the special -dynamic- case, 
# in which case we have to look at the data width. 
# 

if ($$Mod{Address_Alignment} eq "dynamic") 
{ 



10 



15 



20 



25 



# Dynamic alignment: address-type depends on th^^ta size: 
$ $Mod { addr es s_type_used } = 

$$Mod{Data_Width} > 16 ? "word" : 

$$Mod{Data_Width) > 8 ? "halfword" : 

"byte" ; 

} elsif ($$Mod{Address_Alignment} eq "native") { 
$ $Mod ( addres s_type_used} = 

$$Sys {master data_width} == 16 ? "halfword" : 

"word" ; 

} else { 

# "Normal" old-style alignment: 

^ Old-style Address_Alignment ( $$Mod{Address_Alignment } ) 
found for module $$Mod{name} . \n" ) if $$Sys {verbose} ; 
$$Mod{address„type_used} = $$Mod{Address_Alignment} ; 

} 

# When is a "dynamic" module -not- "dynamic"? When it happens 

# to be the same width as the master. Check width here, and set 

# a per-module flag which tells us whether to really, truly use 

# dynamic bus-sizing for this module. 



if ( {$$Mod{Address_Alignment} eq "dynamic" ) 
($$Mod{Data_Width} < $$Sys {master„data_width} ) 



) 



{ 

$$Mod{is_dynamically_sized} = 1; 
^ } else { 

CO $$Mod{is_dynamically_sized} = 0; 

O 30 } 



^ # If s nice to know if the system has any dynamic bus-sizing: 

~ $$Sys{has_dynamic_bus_sizing) = 1 if $$Mcd{is_dynamically_sized} ; 

35 # This is a handy thing to know about a module: 

0 $$Mod{highest__address_bit_used} = ...^^x,. i\ 

01 $$Mo?{address_type_used} eq "byte" ? ( $$Mod{Address_Width - 1 

U $$Mod{address_type.used} eq "halfword" ? ^ $$^^^^,^^^^^^^-^,^5^?^ , . 

($$Mod{Address_Width} + 1) 

O 40 } 



####################################################**##**^***** 

# Get_System_Data_From_PTF 

# Given a reference to a mostly-empty %Sys-hash, we read the 

50 # PTF file, build a %Mod-hash for every module and a %Port-hash 

# for every port, and stuff the results back into the %Sys 

# data structure. 

# We do as much "peephole" error-checking as we can while 

55 # reading-in ports — confirming allowed values for PTF fields, 

# screening out "impossible" port types, etc. 

# But there is a certain amount of checking that we -can't- do 

# until we've read-in the entire system— checing to be sure no 

60 # module's data bus is wider than the master, for example, has to 

# wait until all modules are read-in. Those kinds of checks 

# -do not- get executed here . 
# 



# Plus, we don't actually "do anything" with the data, ^^do 

# only pre-processing on the %Sys-hash, so that it will be 

# easier, later on, to do what we need. 

!############################################################### 

my %PBM_HDL_EXTENSION; 

$PBM_HDIi_EXTENSION {verilog} = " v" ; 

$PBM_HDIi_EXTENSION {vhdl} = "vhd" ; 

$PBM_HDL_EXTENSION {ahdl} =. "tdf"; 

sub Get_System_Data_From_PTF 
{ 

my ($Sys, $db_Sys) = (@_) ; 

# A hash of listrefs. The hash-keys are shared-port names: 
my %shared__port_table; 

#keys: shared port -name s . Values: bus-group names, 
my %bus__membership_table; 
iny @tri_state_bus_list = () ; 

# For Perl syntax-niceness , build these hashes up in the 

# module loop, then add them to the %Sys datastructure when 

# we're all done: 
# 

my %module_table; undef %module__table ; 

################ 
) # Module loop 

# Accumulate a hash of direct and derived information about each 

# module. 

# When we're all done, we'll add a reference to this hash to 
5 # %Sys. 

# 

my $num_children = &get_child_count ($db_Sys) ; 

for ($child_index = 0; $child_index < $num_children; $child_index++) 

0 ^ my $db_Module = &get_child ($db_Sys, $child_index) ; 

next if &get_name ($db_Module) ne "MODULE"; # ignore non-modules. 

################ 

# Read SYSTEM_BUIIiDER_INFO section 

45 # , ^ ^ 

# This will form the basis for our own private cache of 

# useful info about this module. Also, now would be a good 

# time to pre-digest and validate all the settings we read 

# from the PTF file. By this I mean: Converting "TRUE/FALSE" 
50 # strings into testable bits, evaluating numerical expressions, 

# and checking for illegal values. 

mv $db SBI = &PTF_Get_Required__Child_By_Path ($db_Module, 

"SYSTEM_BUILDER_INFO" ) 

55 my $sbi = &:PTF__Build_Hash_From_Section ($db_SBI) ; 

my %Mod = %$sbi; 

$Mod{name} = &:get_data ($db_Module) ; 

$Mod{class} = &PTF_Get__Reciuired_Data_By_Path ($db_Module, '^class"); 

60 &PBM_Progress (" Processing module $Mod{name} . " ) if $$Sys {verbose} ; 

&PTF_Check_Bool (\%Mod, " Is_Enabled" , 1> 
next unless $Mod{ Is_Enabled) ; # Quit early for disabled modules. 



&PTF_ 
&PTF„ 
ScPTF, 
&PTF_ 

&:PTF_ 

&PTF_ 
ScPTF. 
ScPTF. 
&PTF. 
&PTF, 
&PTF 
&PTF 
&PTF 



.Check__Bool 
Check_Bool 
.Check_Bool 
_Check_Bool 
.Check_Bool 
_Eval 
^Eval 
_Eval 
_Eval 
_Eval 
_Eval 
_Eval 
_Eval 
'__Allow 



(\%Mod, "Instantiate_In_System_Module" , 
(\%Mod, "Uses_Registered„Select_Signal" 
(\%Mod, "Uses_Tri_State_Data_Bus" , 
(\%Mod, "Has_IRQ" , 
(\%Mod, "ls„Bus_Master" , 
( \%Mod, " Base_Address " 
{ \ %Mod , " IRQ_Nuinber " , 
( \ %Mod , " Addres s_Width " 
( \%Mod, "Data_Width" 
(\%Mod, "Read_Wai testates" , 
(\%Mod, "Write_Wait_States" 
( \ %Mod , " S e t up_T iitie " 
(\%Mod, "Hold_Time" , 
( \ %Mod , " Addre s s_Al ignment ' 



1) 
0) 
0) 
0) 
0) 
) 

"N/A" ) 
) 
) 

peripheral_controlled" ) 
periplieral_controlled" ) 

) 



"dynamic 
"byte" , 



"half_clock" ) 
, "native", 
word" , "lialfword' 



# Name module, if so far iinnamed: 
$Mod{Instance_.Name} = " the_$ Mod {name} 
if ( ($Mod{Instance__Name} eq 



) II 



($Mod{Instance_Naine} eq "--unknown--") ); 
$module_table{$Mod(name}} = \%Mod; # Put reference into system hash. 

################ 

# If this is the master-module, 

# set a system- level variable, and check to see 

# that this is the only one. 
if ($Mod{Is_Bus„Master} ) 

$$Sys{master_naitve} = $Mod{name} ; 
$$Sys {master} = \%Mod; 

} 

$$Sys {has_registered_select_signals} = 1 
if $Mod{Uses_Registered_Select_Signal} ; 

$$Sys {has_tri_state_data_busses} = 1 
if $Mod{Uses_Tri_State_Data_Bus} ; 

#########################*###*####************************** 

# Port Loop 

# Look at each port on this module. Build-up a hash 

# of useful information. For most "normal" ports, we 

I can add a corresponding port on the PBM and/or the system. 

# Shared ports get recorded in a hash so we can 

# add them to the system/PBM later, after all the port data 

# has been gathered for all modules. 



if (&get child_by_path($db_Module, ••PORT_WIRING/TYPE")) t 

warS (^pbm_gen: old-style PORT.WIRING section for $Mod{name} . ) 

if $$Sys{verbose}-; ^ , > 

&:PTF_Update_Port_Wiring_Section ($db_Module) ; 

} 

my $db_Port_Wiring = &get_child_by_path($db_Module. "PORT_WIRING" ) ; 



# Hashes which are included, by reference, in the ^^ule 

# data structure. We build them up as temporary variables 

# and stick them into the %Mod-hash at the end- -otherwise, 

# the Perl dereferencing syntax becomes impenetrable: 
# 

my %avalon_port_table = ( ) ; 
my %port_table = (); 

my $num_^orts = &get_child_count ($db_Port_Wiring) ; 

for ($port_index = 0; $port_index < $num^orts; $port_index4-+ ) 

^ my $db_Port = &get_child { $db_Port_Wiring, $port„index) ; 
next unless &get_name ( $db„Port ) eq "PORT"; 

# Whatever the PTF says about this port, we want to know, 
my $Port = &PTF_Build_Hash_From_Section ($db_Port); 
$$Port{naine} = &get_data ($db_Port) ; , ^ ^ 

my $who_died = " $$Port {name} on module $Mod{name} " ; # for errors. 

# Test some basic stuff: 

$$Port {direction} / ( input | output | inout )$ / or 

die "$who_died: Bad direction • $$Port {direction} ; 

# Port-record has pointer to module parent, and module 

# record has table of all Port-records: 
$$ Port {parent} = \%Mod; 
$port_table{$$Port{name}} = $Port; 

5cPBM_Progress (" Processing port $$Port {name} ." ) if $$Sys {verbose} ; 

# Ports -used to- have scopes. Now we can infer their scope 

# from the module's (and port's) other attributes. 

if ($$Port {scope}) { .v v nv 

warn (" obsolete port ' $$Port {name} ' (has ' scope '). \n ) 
if $$Sys {verbose} ; 

$$Port {scope} =- / ( internal j external | master )$ / or 

die "$who_died: Bad scope ' $$Port { scope} ; 

$$Port{is_extemal} = $$Port {scope} eg "external"; # Testable bool 

} 

# Decide whether this port is esxternal or internal. We used 

# to require that the user tell us, but now we can figure it 

# out for ourselves : 
# 

if ( ($Mod{Instantiate_In_System_Module} ) ) { 

# For modules -inside- the system-module, all their 

# avalon-ports are internal. All their non-avalon ports 

# are external 

$$Port{is_extemal} = 1 if 1 $$Port {avalon_role} ; 

} else { . 

# For modules -outside- the system-module, all their 

# avalon-ports are external. All their non-avalon ports 

# are none of our business 

$$Port{is„external} = 1 if $$Port {avalon_role} ; 

} 



# Some consistency-checking: 

# * Only external signals can be "shared": 

# * All internal (or master) signals must have an avalon- 
die "$who_died: only external ports may be shared." 



if ( $$Port{is_shared} i $$Port { is_extema 



################ 

# What does this port connect to? 

# For a "typical" system- internal module with nothing "shared," 

# each port gets connected to a unique, dedicated wire m the 

# system module. That wire will go to one of two places: 

# a like-named port on the PBM (for avalon signals) or be 

# promoted to a system-level port. Easy enough. 

# There are two wrinkles to consider: modules which are -not- 

# instantiated in the system, and modules which have shared 

# ports. 
# 

# *** External Modules 
# 

# If the module is riot instantiated inside the system, then 

# we do twp special things: 

# 1) Ignore any signals which don't have an avalon_role, 

# because they're not our responsibility, anyhow. 

# 2) Promote its PBM-ports to system-level I/Os with the 

# same direction and name, 
# 

# Shared Ports 

# Ports are only "shared" if they're part of a tri-state 

# bus structure. All tri-state busses are named. Here 

# are some examples of system-level signals which are part 

# of a shared tri-state bus: 
# 

# memo ry_bu s_addr e s s 

# inemory_bus„byteenablen 

# 

# ide^data 

# ide_writen 

# 

# In this case, the signal names are a concatenation of the 

# tri-state bus group name and the avalon role. We don t 

# add these ports to the PBM/system -yet-, because we don't 

# really know their widths until all the modules have been 

# processed. Instead, we just record our %Port as a "client" 

# of this shared port in a hash. Later, we'll work out 

# exactly how the shared ports show up on the system module. 
# 

if ($$Port{is_shared} ) 



die 



Shared port $$Port{name} on module $$Mod{name} has no 
'Avalon role' " 

if ( ! $$Port {avalon_role} ) ; 

Shared port $$Port{name} found on module $Mod{name} , but 
module does not use tri-state data bus" 

if ( ( I $Mod{Uses_Tri_State_Data_Bus} ) \\ 
( $Mod{Tri_State_Data_Bus} eq " " ) ); 

my $shared _^ort = " $Mod{Tri_State_Data_Bus}_$$Port {avalon_role 
$$Port{system„signal} = $shared_port ; 



# Recor^^e fact that this %Port is a cliei^^f 

# this shared port. Push a reference to this %Port-hash 

# onto this shared-port client list: 

# . . 
push (@{$shared_jport_tableC$shared^ort}}, $Port) ; 

# also record which tri-state bus group this shared port 

# belongs to. (true, you could figure it out by looking 

# at it's name, but that just sounds risky to me: 

$bus_membership_table{$shared_port} = $Mod{Tri_State_Data„Bus } ; 
) else { 

# This is -not- a shared port, so we make one of those 

# much-beloved machine-generated port names 

# (e.g. bidir_^ort_to„and_from_the_lcdj>io) . 
f 

my $transfer_str = ( $$Port {direction} eq "input") .? "to" 

($$Port {direct ion} eq "output") ? "from" 

" to_and_from" 



$ $ Port { sy s t em_s ignal } = 

"$$Port{name}_$transfer„str\__$Mod{Instance_Name} " ; 



} 



# Construct an inverse hash so we can look-up ports 

# -by avalon role- for this module: 
# 

$avalon_:port_table {$$Port {avalon_role} } = $Port 
if $$Port {avalon_role} ; 

################ 

# Record some useful system-level and 

# module-level information as the ports 

# go by: 

$$Sys{master_address_width} = $$Port {width} 
if ($Mod{Is_Bus_Master} ) 
($$Port{avalon_role} eq "address" ) 

$$Sys{master_data_width} = $$Port {width} 
if ($Mod{Is„Bus_Master} ) 

($$Port{avalon_role} eq "writedata" ) ; 

} #end: %Port-loop 

# Attach the hashes we built-up in the %Port-loop into the 

# %Mod data structure: 
# 

$Mod{port_table} = \%port_table ; 

$Mod{avalon_^ort_table} = \%avalon_port_table ; 

################ 

# Derived Module Info 
# 

# Pre-digest some useful facts about this module: 

# It's nice to have a list of all tri-state busses in the system: 
push (@tri_state_bus_list , $Mod{Tri_State_Data_Bus} ) 

if $Mod{Uses_Tri_State_Data_Bus} ; 

# Predigest hold-time values: handle "half -clock" case. 
$Mod{hold_time_full_clocks} = $Mod{Hold_Time} ; 



$Mod{hold_time_full_clocks) = 0 if $Mod{Hold_Time} =- /half / ; 
} # End: %Mod-loop 

# Add the hashes and lists we just built into the system "database" : 

$$Sys{module_table} = \%module_table; 

$$Sys(sharedj)ort_table} = \ % shared jport table; 

$$Sys{bus_meinbership_table} = \%bus_menibership table; 

$$Sys{tri_state_bus_list} = \@tri_state_bus_list ; 

################ 

# Derived system- info 

# Pre-digest some useful facts about the system: 
$$Sys{address_span} = 2**$$Sys{master_address_width} ; 

$$Sys{pbm_name} = $$Sys{name} - "_pbm" ; 

$$Sys{core_name} = $$Sys{name) . "_core" ; 

$SSvs(pbm file} = ■■$$Sys{system_directory}/$$Sys{pbm_name}.v"; 

HKt^o^elfile) = "$$Sys{system_directory}/$$Sys(core_name) .v" ; 

# wrapper-file needs correct extension for target language. 

$$Sys {hdl.language} = Ic ( $$Sys {hdl.language} ) ; 

^ ^Pxtension = $PBM HDL EXTENSION {$$Sys {hdl.language} } ; 

^ ISSSioS or die'-Un^ecognized -hdl.language': $$Sys{hdl_language " ; 
$$Sys^w;apperJile} = "$$Sys{system.directory} /$$Sys{name} . $extens.on" ; 

# Only used if AHDL: 
&Resolve.Address.Alignments ($Sys) ; 

# . . . might want to put code here to figure out 

# "principal" tri-state bus... ^ ^ ^ 

# This will probably be a call to some function that has 

# a bunch of heuristics. 

} 

##############################************************************* 

# Get.Avalon.Recjuirement.Table 

# Returns a handy table that we use as a verification 

# template. Then check each avalon-role port to be sure 

# it Agrees with what we expect. The table should be evalled m 

# a function that has $Sys and $Mod set accordingly 

# (Isn't error checking a big pain?... Code was so much 

# simpler in the Wild West) : 
# 

# It's easier to check errors if you set defaults. 

# That way you don't punish the user for supplying 

I S?a yo?: Low already. I've added Width Default to the table. 

# sorry Tim, you'll have to maximize your screen to see all the 

# data Not like the good old days with your acoustic coupler eh? 
# 

sub Get_Avalon_Requirement_Table 
{ 

my $requirement_table = , . , ^ „ . *. 

# Avalon Role 1 Slave 1 Master | Width Requirement 

Width Default 

# + + + 





"elk 1 


input 1 


input 1 


\$W == 1 ' 




\$W = 1, 

resetn 1 


input 1 


input 1 


\$W == 1 1 


5 


\$W = 1, 

alwaysO I 


input 1 


input 1 


\"Any width 0K\" 1 




\$W = \"\", 

always 1 1 


input 1 


input 1 


\"Any width 0K\" 1 




\$W = \"\" , 

writen 1 


input 1 


output 1 


\$W == 1 1 


10 


\$W = 1, 

readn 1 


input 


output 1 


\$W == 1 ' 




\$W = 1, 

byteenablen 1 


input 1 


output 1 


\$W <= 4 1 


15 


\$W = 4, 

waitrequest | 


output 


input 1 


\$W == 1 ' 




\$W = 1, 
irq 


output 


1 input 


1 \$W == 1 1 




\$W = 1, 

irqnumber 


N/A 


1 input 


1 \$W <= 6 1 


20 


\$W = 6, 

chipselect 


input 


1 N/A 


1 \$W == 1 1 




\$W = 1, 

regis teredselectn 


input 


1 N/A 


1 \$W == 1 1 


-_25 


\$W = 1, 

if etch 


1 N/A 


1 output 


1 \$W == 1 1 


O 


\$W = 1. 

memis32bits 


1 N/A 


1 input 


1 \$W == 1 1 




\$W = 1, 
data 


1 inout 


1 N/A 


1 \$W <= \$\$Sys{master_data_width} | 


Q30 


\$W = \$\$Sys{master_data_width} , 






readdata 


1 output 


1 input 


1 \$w == \$\$Mod{Data_Width} && 

\$W <= \$\$Sys{master_data_width} 




\$W = \$\$Mod{Data_Width} , 






Li a 


writedata 


1 input 


1 output 


1 \$w == \$\$Mod{Data_Width} && 

\$W <= \$\$Sys{itiaster__data__width} 


* ; 


\$W = \$\$Mod{Data_Width} , 






1 y 

R 40 


address 


1 input 


1 output 


1 \$W > 0 && 
\$W <= \$\$ Sy s { mas t er_addr e s s_wi dth } 




\$W = \$\$Mod{Address. 


_Width} , 







45 



50 



55 



I'Tum our pretty text-table into a bunch of code-useful hashes; 
# 

#now some hashes ; 
my %required_slave_dir; 
my %re<iuired_master_dir ; 
my %width_requirement ; 
my %width_def ault; 



$width_condition, 



60 



$requirement_table =- s/\s+/ /sg; ^ ^ v ^ 

foreach $req (split ( /\s*\ , \s*/s , $reguirement_table) ) 

^ nvy ($role, $slave_dir, $master_dir, 

$width_default_string) = 

split {/\s*\|\s*/s, $req) ; 

$required_slave_dir {$role} = $slave_dir unless J^l^ve <iir eq "N/A"^ ; 

$required_master_dir {$role} = $master_d3.r unless $master_dir eq N/A , 

$width_requirement {$role} = $width_condition; 

$width_default {$role} = $width_def ault_strxng; 

) 



mv %return_hash; . ^ -, j- 

$return_hash{required_slave_dir} = \%re<iu3.red slave_dxr; 
$retum_hash{required_master_dir} = \%required_master_dxr ; 
$return_hash{width_requirement} = \%width_requirement ; 
$retum_hash^width_def ault} = \ %width_de fault; 

return (\%return_hash) ; 

} 

###########################*####****#*************************** 

# Check_Avalon_Rules 

# Given a (the?) system-hash, this function loops over the 

# data structure module -by -module and port-by-port and checks 

# that no system-level Avalon rules have been violated. 

I These are rules like: All "chipselect" -type ports on a module must 

# be 1 bit wide, all "address" -ports must be inputs, and all 

# data ports must be narrower than the masters' . 

I This function replaces the section of inline-code formerly known 

# as "The Parade of the Port Types." 

sub Check_Avalon_Rules 
{ 

my ($Sys) = (@_) ; 

my $reciuirement_hash_table = &Get_Avalon_Reciuirement_Table; 

Tn.. ft^^miired slave dir = % {$requirement„hash_table-> {required_slave_dir} } ; 

Z %reS^i^^^^ = % |re2uirement_hash_table->(reccuired_master„dir}} 

Z %wIS?i re^ Jrement = % ( $requirement_hash_table-> t-^f J-^^^^^^^^^^ ^ ^ 

Z %width:deSult = %($requirement_hash_table->(wxdth_default} } ; 

# Now consider each avalon-port on each module 

# and see if it lives up to our expectations. 

# If port is not defined, set it to default value. 

foreach $Mod (5cGet_Sys_Module_Iiist ( $Sys) ) 

^ my $avalon_port_table = $$Mod{avalon_port_table} ; 
foreach $role {keys (%$avalon_port_table) ) 

^ my $Port = $$avalon_port„table { $role} ; 
my $W = $$Port {width} ; 

my $reciuired_dir - $$Mod{Is_Bus_Master} ? \%rec[uired_master dir : 

my :?i SL - \%required_slave_dir 

#set default width 
eval ($width_default{$role} ) 
if ($W eq "") ; 

#set default direction 

$$Port{direction} = $$rectuired_dir {$role} 
if ($$Port {direction} eq ""); 

die " 

Illegal avalon-role : $role 

for port $$Port{name} on module $$Mod{name} . " 
if { ! $$required_dir{$role} ) ; 



die " 

Illegal direction: $$Port {direction} . 
Expected: $$required_dir { $role} 
for port $$Port{name} on module $$ Mod { name } . 
if ($$Port {direction} ne $$re<iuired_dir { $role} ) ; 

my $width_ok = eval ($width_requirement {$role} ) ; 

die "Bad ctieck-expression: $width„reqairement { $role} ($@) if 

die " 

Illegal width: $W i 
for port $$Port{name} on module $$Mod{name} . 

if ( ! $width__ok) ; 

################ 

# Per-port Consistency-checks 

# Does this port agree with things that were said in the 

# module's SBI section? 
# 

if {$role /data$/) { ^. „ 

S^ModfData Width} == $$Port {width} or die . ^ ^ 

^^SdtS oMta port $$Port(name} ( $$Port {width} ) is inconsistent 
with •Data_Width' setting for module $$Mod{name} . ; 

} 

if ($role eq "address") { ^. „ 

$$Mod{Address_Width} == $$Port {width} or die 

Width of address port $$Port{name} {$$Port{wxdth} ) is 
inconsistent with • Address_Width' setting for 
module $$Mod{naine} . " 

} 

} 

# Half -clock hold-time only allowed with zero setup-time: 
if ( ($$Mod{Hold_Time} =~ /half/)) { 

allowed only if ' Setup_Time ' is 0 (zero)."; 

} 

next if $$Mod{Is_Bus_Master}; # The following checks are for mere slaves, 

################ 

# Funny Setup/Hold Rule 

# 

# Here ' s the rule : 

# — If you have a nonzero hold-time, then you get a nonzero 

# setup- time, whether you asked for one or not. 
# 

# Here's the explanation: 

# YOU may recall that the masters' readn- and writen- signals come 



# directly from the Q-output of registers. Timing-wise, this is 

# a good and happy thing. Peripherals which don't explicitly reque 

# setup/hold times get the masters' registered strobe signals, and 

# life is good. 

I But now consider the plight of the poor module who requests 

# setup/hold time. Necessarily, he now gets his own customized 



# (narrower) version of the read- and wrxte-strobes would be 

# oh-so-nice if his custom strobes also came directly from Q-outputs 

# of registers. (And. I note, it would also "jake the 

i strobe-customization logic easier for your humble implementor, ^ 

# so now we have the custom readn- and writen-strobes comxng from 

# regJsLr outputs. But, obviously, this happy register introduces 
I a oie-clock Selay between the time we decide to assert the custom 

# strobe and the time it gets asserted. ^hat • s. f xne--we have 

# (at least) one clock-cycle of slack before we need to assert the 

# strobe-as long as there's a (nonzero) setup-txme. That gxves 

# us the clock we need to "customize" and still have a register. 

# So. Phrased concisely: 
# 

# Custom strobes want registers 

# registers imply delay 

# nonzero setup-time accomodates delay 

# 
# 
# 
# 
# 

if ( {$$Mod{Setup_Time} == 0) && 

($$Mod{hold_time_„full_clocks} > 0) 

) 



— > custom strobes need a nonzero setup-time. 
We print a warning when we encounter such a case. 



$$Mod{Setup_Time} = 1; 

''^'^etup-time (1 clock) automatically added for module $$Mod{name} . 
Modules with nonzero hold-time automatically get at least 
one clock of setup-time . \n 

") ; 

} 

# Some extra module-level consistency-checking between 

# "System Builder Info" and port-types. 
# 

&Validate_And_Reserve_Address_Range ($Mod, $Sys) ; 

die "Module $$Mod{name} 'Has_IRQ', but no pin is of type 'irq'.« 
if $$Mod{Has_IRQ} && ! $$avalon_port__table{irq} ; 

die "Module $$Mod{name} has an irq-pin, but 'Has_IRQ' is FALSE." 
if !$$Mod{Has_IRQ} && $$avalon__port_table{irq} ; 

die "Module $$Mod{naine} has word-alignment , but master is not 32 bits, 
if ($$Mod{address_type_used} eq "word" && 
$$Sys{master_.data_width} < 32 ) ; 

die "Module $$Mod{name}: Data is too wide for dynamic alignment." 
if ($$Mod[is_dynamically_sized} && 

$$Mod{Data_Width} > ( $$Sys {master_data„width} / 2) ); 

die "Module $$Mod{name}: must set SBI/Uses_Registered_Select_Signal . " 
if ( !$$Mod{Uses_Registered_Select__Signal} && 
$$avalon_jport_table{registeredselectn} ) ; 

die "Module $$Mod{name} : peripheral controlled wait \n" . 
"not supported for registered chip selectsNn" 

if ($$Mod{Uses_Registered_Select_Signal} && ^ ^ , • x it 

( {$$Mod{Read_Wait_States} /peripheral_controlled/ i ) 
($$Mod{Write_Wait__States} =- /peripheral_controlled/i) ) 

) ; 



#hold time means theres a setup time, 

die "Module $$Mod{name}: peripheral controlled wait not\n . ..... 

"supported for peripherals with non-zero setup and/or hold txm.es\n 
if { ($$Mod{Setup_Time} ) && , ^ n m 

( ($$Mod{Read_Wait_States} =- /peripheral_controlled/i) 1 
($$Mod{Write_Wait_States} =- /peripheral_controlled/i) ) 

) ; 

die "Module $$Mod{name}: can't find • registeredselectn • -type port . " 
if ($$Mod{Uses_Registered_Select_Signal} && 

1 $$avalon_port_table{registeredselectn} ) ; 

my $Port writen = $$avalon_port_table{writen} ; ^ n ■■ 

die "Module $$Mod{naine} : shared writen port .illegal if setup/hold > 0. 
if ($$Port_writen{is_shared} && , , , n\ \ 

($$Mod{Setup_Time} + $$Mod{hold_time_full_clocks} > 0) ) ; 

my $Port_readn = $$avalon_port_table{readn} ; „/v„,ih ^ n " 

die "Module $$Mod{name}: shared readn port illegal xf setup/hold > 0. 
if ($$Port_readn{is_shared} && ,,,,,, ^ n^ ^. 

($$Mod{Setup_Time} + $$Mod{hold_time_full_clocks} > 0) ), 

# ... Add more, please. . . 

I "'SseslRegistered.Select.Signal vs. actual "registeredselectn" ports. 

# uses Tri State Data_Bus vs. actual shared/data ports. 

# if principal bus declared, system -should- have tri-state busses. 

# principal tri-state bus must be as wide as CPU. 

# if we have principal bus, at least one module must be on it. 

# YOU may -not- have shared readn/writen signals with nonzero 

# setup/hold times. t c -,9 

# system data width should be only -exactly- 16 or 32 . 

} # End: $Mod-loop 

} 

##################################################**#*********** 

# Create_System_Port_Lists 

# Given a reference to a (the?) system-hash, this function 

# builds a "List_Ports_For-" definition of the system-module 

# and the PBM. 

I For the most part, this is easy: We look through the ^^^^^ ^J.^^i 

# on all modules- If any have an avalon-role, then their complement 

# shows up on the PBM. If any are "external", then they show up on 

# the system module. 

I The one nasty little wrinkle is shared-ports. We have kept a separate 

# record of all shared ports, and now we use it to compute the appropriate 

# w!Sth--then we can add the shared ports to both the PBM and system modules 

I And then shared ports have one more trick: The width ^^^J. f Jj^J^^^ 

# ports. For most shared ports, the width is 3ust the width of the largest 

# client. For address ports, we need to take -alignment- into account. 

sub Create_System_Port_Dists 
{ 

my ($Sys) = (@_) ; 



# The elk and reset_n ports are magic. They -always- appear 



# on both the system and the PBM. 

$$Sys{pbm_list_ports_for_string} = "elk | 1 1 ^^P^^, 

reset„n | 1 | input:, , 
$$Sys(system_list:_:ports_for_string} = $$Sys (pbm^list jorts_f or„string} ; 

foreach $Mod (&Get_Sys_Module_Iiist { $Sys) ) { 

foreacli $Port (&Get_Module_Port_List ($Mod) ) 

^ next if $$Port{is_shared}; # Do shared ports later, 
if ($$Port {avalon_role} ) 

^ my $pbmj)ort_dir = $Complementary_Direction { $$Port {direction} } ; 
my $pbm__port_description = , ^ , ^ ^ • .. 

"$$Port{system_signal} 1 $$Port {width} 1 $pbra_jport_dir , ; 

$$Sys{pbm_list_ports_for_string} . = $pbm j>ort_de scrip t ion; 
$$Sys{system_list_ports_for_string} .= $pbm_port_descrxption 
if ( ! $$Mod{Instantiate_In_System_Module} ) ; 

} else { 

# OK, this port doesn't have an avalon role. For 

# externally-instantiated modules, we just ignore it. 

# for internally- instantiated modules, we promote it 

# to a top-level system port with the -same- direction 

# as the port on the module. 

# All non-avalon-type ports must be external 

$$Sys{system_list_ports_for_string} .= ^. . „ 

"$$Port{system_signal} 1 $$Port {width} \ $$Port {direction} , " 
if {$$Mod{Instantiate_In_System_Module}) ; 

} 

} # End: $Port-loop 
} #. End: $Mod-loop 

################ 

# Now do the shared ports . 

# 

my $shared_port_table = $$Sys{shared_port_table} ; 

foreach $shared_port_name (keys (%$shared_port_table) ) 

^ my $client_list = $ $shared_port_t able {$ shared j)ort_name} ; 

# Look at all the clients. Build-up enough information 

# to calculate the port-width (below) . Also, check that 

# all the clients have a consistent direction, avalon-role, etc. 
# 

my $client__dir = 

my $shared_port_role = " " ; 

my $shared_port_width = 0; 

foreach $client_port (@$client_list ) 

^ $shared_port_role = $$client_port {avalon.role} if ' $shared_jport_role ; 
$client_dir - $$client^ort {direction} if 1 $client_dir ; 

$client„dir eq $$client^ort {direction} or die " 

Shared port $shared_port_name has client $ $c lien t_^ort {name } 
(direction is $$client^ort {direction} ; expected $client_dir) . 

Sshared _port_role eq $$client^ort {avalon_role} or die " 

Shared port $shared_port_name (role: $shared_^ort_role) has 
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client $$client_port{name} (role: $$client jort {avalon.role} ) 
################ 

# Computing the width is tricky, but only for address ports. 

# For everybody else, it's just the width of the wxdest client 

# For address ports, we have to take into account the fact that 

# -all- shared address ports present the full byte-address, 

# all the way down to A[0] (even if none of the clients use 

# A[0]) Thus, the width of the shared port might be greater 

# than the width of any (all) of the client address ports. 
# 

if ($shared_^ort„role eq "address") 

# Address port.. Now we must inquire about its ancestry: 
ray $parent_module = $$client_j)ort {parent } ; 

my $net_width = $$parent_module{highest_address„bit_used} + 1; 



$ shared jort_width = $net__width 

if $net_width > $shared_port_width; 

20 } else { . j= n • ^ 

# Normal, non-address port: Width is just the max of client 

$shared_port_width = $$clientjort {width} 

if $$client^ort {width} > $ shared j)ort_width; 

25 . } 

} # End: Client -port loop. 



################ 

# Shared data-bus ports. 



# There's one weird circumstance where a shared-port is actually 
"f.-^. # wider than the max of its clients: When it's the main 

^ # tri-state data bus to the CPU. In this one case, the bus 

# must be at least as wide as the CPU 
L- 35 # 

5 if ( ($$Sys{Principal_Tri_State_Data_Bus}) && 

Ul ($shared_jport_role eq "data" ) „ wvx r 

H= ($shared_port_name /-$$Sys {Principal_Tri_State_Data„Bus } / ) ) { 

$shared_port_width = $$Sys {master„data_width} ; 



ri 40 } 



# Shared ports always have an avalon-role, so they always show up 

# on the PBM as the -complimentary- match for the client-port. 

# also, shared ports are always external, so they are always promoted 

# to like-named system-level ports. 

my $shared _port_dir = $Complementary_Direction{ $client_dir} ; 

my $shared_jport_description = , ^ , ^ ^ ^. n 

"$shared_port„name | $ share d_port_width | $shared__port_dir , ; 

$$Sys{pbm_list_ports_for„string} .= $shared_port_de script ion; 
$$Sys{system_list_ports„for_string} .= $shared_^ort_description; 



} 



# We've built those nice list-ports-f or string, so let's use 'em: 



# 



&List„Ports_For ($$Sys{name} , $$Sys {system_list_ports_f or_string} 

&List_Ports_For ( $$Sys {core_name} , $$Sys {system_list_ports_f or_string} 
&List_Ports„For ($$Sys {pbm_name} , $$Sys {pbm_list_^orts_f or_string} ) 



# core_Emit_Wire_Declarations 

I The system- s "core" module is just a bunch of instances -^^^jf 

# SgetLr. Some "wires" in the core-moduie are actually exter..al 
ft norts so they're already declared in the cores' module 

I ^^^?a;ation Other "wires" are actual Verilog wires which we 

I n^ei to declare ^hey are the internal (module-to-module) sxgnals 

# which are never seen from the outside. 

10 # This function emits wire-delcarations for all the internal signals. 

I Tfs easv to identify all the internal signals: there's one for 
I eve^ modu^e-Jort scoped "internal" or "master" - in other words, 
I JheS's a corS-level wire for every non-external port on every 
15 # module in the system. That makes it pretty easy: 

!#########################*###*#******************************** 

sub Core_Emit_Wire_Declarata.ons 
{ 

20 my ($Sys) = (@_) ; 

foreach $Mod (&Get_Sys_Module_List {$Sys) ) { 

foreach $Port (&Get_Module_Port_List ($Mod) ) 

= 25 ^ next if $$Port{is_extemal} ; 

i my $range = &W ($$Port {width} ) ; v „ v 

&Vprint ("Wire $range $$Port {system_signal} ; \n ); 

} 



S 30 } 



#############################**##******************************* 

# Core_Emit_lnstances 

' I The system' s core-module is a bunch of instances all wired-up 

S I toge?^er ?his function emits the instantiation-statements 

y- # for all system-modules, including the PBM. 

Z I in general, any given port on a module does not necessarily 

n 40 I connlSrto a cLJ-level signal (wire) of that J^^^, 
Z I ?he correspondence of what-signal-goes-to-what-port though, 

# is built-in to the %Sys-database hash. We extract this 

# information and use it to instantiate each module xn the 

# system. 

###############################***#***************************** 

sub Core_Emit_Instances 
{ 

my ($Sys) = (&_) ; 

50 

################ 

# Start with an instantiation of the PBM. 

# Note that the PBM doesn't appear on the system's {module table} . 
55 # Toll a^S thit all the ports on the PBM -do- connect to Ixke-named 

# sigSals at the core-level. This makes instantiation a snap: 

ScInstantiate_And_Connect ( $$Sys {pbm_name} , " the_$$Sys {pbm_name} " ) ; 

60 ################ ^ , . v^^fore we do 

# NOW instantiate all the "regular" modules. But, before we 

I go through their ports and build up a correspondence ("exception ) 

# table: 



foreach $Mod (&Get_Sys_Module„Iiist ( $Sys) ) 

# Skip external modules, of course. 

next unless $$Mod{ Instant iate_In_Syst em_Module} ; 

my $list_ports_for„string = 

l^defS^pt; # superstition. I have no idea if this is called-for. 

foreach $Port (ScGet_Module_Port_List ($Mod) ) 
^ $except{$$Port{name}} = $$Port { system_signal} ; 



$list_ports_f or_string .= " . , „ 

$$PortCname} | $$Port {width} 1 $$Port {direction} , ; 



} 




&List Ports For ( $$Mod{name} , $list^orts_for_string) ; 

tznsl^^^^^ ($$Mod{name}, " the_$$Mod{name} " , \%except) 

} 

} 

#####^ 

# pBM_Emit_Dynamic__Bus_Sizer 

# The dynamic bus-sizer makes any narrow peripheral "look like" 

# it's full-width memory. For example, if you connect an 8-bxt 
I memory device to a 32-bit master using DBS, the CPU wxll "bbb 

# a full 32-bit value every time it does a LD- from the devxce. 

I This is accomplished, of course, through a bunch of sequential 

# logic (the DBS), which (in this example) fetches four successive 

# bytes from the memory, assembles them into a full-wxdth word, 

# and presents it to the CPU (all the while the CPU has been held 

# in a wait-state, of course) . 

# A similar thing happens during write-operations . When 

# writing a 32-bit value to 8-bit memory (for example) , the CPU will 

# wait while we execute four successive write-operations to the 

# memory. The DBS-logic is sensitive to the fact '^^^'t^^^^^^^'^j^^^^ 

# the CPU will execute a narrow-write (e.g. a byte-write) . In these 

# cases, the DBS-logic is smart enough to execute only one 

# write-cycle. 

# Note that all of our "successive read operations" or "successive 

# write operations" are subject to the bus-timing (wait states, 

# setup/hold- times, etc.) for the target peripheral. In other words, 

# eacS sub-operation of the DBS-unit is a full-fledged bus transaction 

# controlled by the wait-state generator. You could, then, think 

# of the DBS-operation being "laid on top of" the regular wait-state 

# logic. 

# FYI, dynamic bus sizing is very handy for memory- type devices. 

# but doesn't make much sense for register-controlled peripherals 

# (e.g. UARTs) . 
# 

# This function here creates the dynamic bus-sizing logic. 

# Note that there are, really, two independent DBS-units— one 

# of which handles byte-wide peripherals, the other handles 

# halfword-wide peripherals. 
# 

# KNOWN LIMITATION: 
# 



# If you have an 8-bit memory and you do a 16-bit write to it 

# (any ST16 instruction) — you lose. 

# 3 out of 3 engineers agree that DBS should handle this case. 

# I'll do it when everything else works 

# 
# 




sub PBM„Emit_Dynamic„Bus_Sizer 
{ 

10 my {$Sys) = (@_) ; 

&Emit_Comment ( " \n Dynamic Bus Sizing \n«); 
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################ . ^^HmI^c 

# First, gather-up a list of all dynamically-sized modules. 

# segregate by 8- and 16-bits wide: 
# 

my @dbs_8_modules = ( ) ; 
my @dbs_16_modules = (); 

foreach $Mod (&Get_Sys_Slave_List ( $Sys) ) 
^ next if !$$Mod{is_dynamically_sized}; # Dynamic-only, please. 

,^.25 if ($$Mod{Data__Width} <= 8) { 

5 push (@dbs_8_modules, $Mod) ; 

} elsif ($$Mod{Data_Width} <= 16) { 
W push (@dbs_16„modules, $Mod) ; 

030 } 



################ . . , . 

L 35 # Or-together relevant peripherals' active signals. This 

y # tells us "when to go." 

pi ^ 

M # The result is a signal called "dbs_active, " which 

ry # is true whenever the currently-selected (active) peripheral 

G 40 # uses dynamic bus-sizing. 

i - # 

^ # Note that this is -not- a state- or sequencing-bit . It 

# doesn't '^say" where in the DBS-process we are. We have other 

# bits, later, which do that. 

I we start the active-list off with "I'bO" as a trick to make everything 

# work out, even when the lists are empty. 
# 

my @dbs_8__active_signals = ( " 1 ' bO " ) ; 
50 my @dbs_16_active_signals = ( " 1 ' bO " ) ; 

foreach $Mod (@dbs_8_modules) , 

{push (@dbs_8_active_signals, $$Mod{intemal_active_signal} ) } 
foreach $Mod (@dbs„16_modules) , 
55 {push (@dbs„16_active_signals, $$Mod{intemal„active_signal} ) } 

&PBM Assign ( " dbs_8_active" , join (" M @dbs_8_active_signals) ) ; 

&PBMlAssign ("dbs_16_active", join (" 11 @dbs„16 actiye_signals) ; 

&PBM_Wire ("dbs_active", 1, " dbs„8_active |1 dbs_16_active ); 
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################ 

# Sequencing. 
# 



# We need to answer two questions: 
# 

# 1) When do we start a DBS -operation? 

# 2) When do we "advance" to the next sub-operation (chunk)? 
# 

# Well, we start a new operation (1) when: 
# 

# la) The active peripheral needs dynamic bus-sizing. 

# lb) It's the start of a new bus -transact ion 

# (indicated by the "bus_transaction„start " signal, 

# which is computed by the wait-state generator. 

# ic) There's not some other special, weird cicrumstance— like 

# narrow writes or "if etch" going on which preclude the 

# need for a dynamic operation. 

# And we advance to the next chunk (2) at the end of each 

# bus cycle. Happily, the wait-state generator also indicates 

# this by computing the signal "bus_cycle_end" . 
# 

Lbm Wire ("bus_cycle„end"); # Declared here, computed later. 

ScPBMlwire ("bus_transaction_start"); # Declared here, computed later . 

my $be_bus = &Get_Sys_Signal ( $$Sys {master} , "byteenablen" ) ; 
&PBM_Wire ( " write_is_narrow" , 1 , 
" 1 " . $be_bus) ; 

if ($$Sys{master_data„width} ==32) { 

&PBM_Wire ("write_is_narrow_16" , 1, , , v.^^^ov^^ j:,^; 

"write_is_narrow && ( ( $be_bus\ [3\ ] == $be_bus \ [ 2 \ 1 ) && 

($be_„bus\ [1\] == $be_bus\[0\] ) )" 



&PBM__Wire ( " dbs_8__half _s tart " , 1 , " 

dbs_8_active 

bus_transaction_start && 
( wr i t e_i s_nar r ow_l 6 ) " ) ; 

} 

ficPBMJWire ( "dbs_8_f ull_start" , 1, " 

dbs_8_active 

bus_transaction_start && 
(-write_is_narrow) " ) ; 

my $ifetch_signal = &Get_Sys_Signal ($$Sys {master } , if etch) ; 
&PBM_Wire ( "dbs_16_start" , 1, " 

dbs_16_active 
bus_transaction_start && 
( - $ i f e t ch_s ignal ) && 
(~write_is_narrow) " ) ; 



################ ■ 

# Sequencing registers 
# 

# Here are the signals we must come up with: 
# 

# dbs_8_byte_{ 0,1,2,3} 

# dbs_16_halfword_{0, 1} 
# 

# — and — 

# dbs_8„write_byte„{0,l,2,3} ("0" not actually produced) 



ft 



dbs 16_.write_halfword_{0,l} ("0" not actually proaTIced) 

Tl think, in the absence of narrow writes, these are 3ust 
equivalent to the non-write versions) . 



dbs_wait_asserted 
y @dbs_wait_asserted_tenns = ("I'bO"); 
f ( scalar ( @dbs_8_modules ) ) 



# "I'bO" fixes empty list. 



# HOW many additional bus cycles? 3 or 1, for 32- and 16-bit masters. 

# These cases are similar-enough that it's tempting to make 

I oSrjiece of code that builds both, but I'm just going to break 

# them into separate cases for clarxty: 

if {$$Sys{master_data_widthl == 32) 



£cPBM_Wire ( " dbs_8_byte„3 " ) ; 
&PBM__Wire ( " dbs_8_byte_l " ) ; 



dbs__8__state_byte_3 , 
dbs_8_f ull_start , 
bus_cyc legend , 



dbs„8_byte_2 , 
dbs„8_state_byte_3 , 
bus__cyc 1 e_end , 



&Delay ("out 

sync__set 
sync_reset 
reset 
") ; 

ScDelay {"out 
in 

enable 
reset = / 

") ; 

# TWO versions of byte-1 signal, because it can be set from 

# two different sources: The continuation of a 4-byte 

# operation, or the start of a two-byte operation. 

- dbs_8_continue_byte_l, 
= dbs_8_byte_2 , 
= bus_cycle_end, 



ScDelay {"out 
in 

enable 
reset 
") ; 



&Delay ( " out 

sync_set 
sync_reset 
reset 
") ; 

&:Delay ( "out 
in 

enable 
reset 
") ; 



dbs_8_state_byte_l , 
dbs„8_hal f _s tar t , 
bus_cyc le__end , 



dbs_8_byte_0 , 

dbs_8_continue_byte_l 1 1 dbs„8_state_byte_ 
bu s_cy c 1 e_„end , 



ScPBM Assign ("dbs_8_byte_3","dbs_8_full_start 

~* dbs_8_state_byte_3 
&PBM Assign ("dbs_8_byte„l","dbs_8_half_start 

dbs_8_state_byte_l | 1 
dbs_8_continue_byte_l " ) ; 



") ; 
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&PBM_Wire ( " dbs_8_wait_asserted" , 1 , 

"dbs_8_byte_3 j | dbs_8_byte_2 



dbs_8_byte_l" ) ; 



} else { 

# 16-bit master 

&PBM_Wire ( " dbs_8_byte_l " ) ; 

&Delay ("out = dbs_8_state_byte_l , 

sync__set = dbs_8_full_start , 
sync_reset = bus_cycle_end, 
reset = / 

") ; 

&Delay ("out = dbs_8„byte_0 , 

in = dbs_8_state_byte_l, 

enable = bus_cycle_end, 

reset = / 

") ; 

&PBM_Assign ("dbs_8_byte„l", "dbs_8_full„start |1 dbs„8_state_byte_l" ) ; 
# Pedantic renaming for documentary purposes. I hope you •re happy. 
&PBM_Wire ("dbs_8_wait_asserted", 1 , "dbs_8_byte_l " ) ; 

} 

push (@dbs_wait_asserted_terms, "dbs_8„wait„asserted" ) ; 

# End: registers for dbs_8_modules 

f (scalar (@dbs_16_modules) ) 

&PBM__Wire ( "dbs_16_half word_l " ) ; 

ScDelay ("out = dbs_16_state_halfword__l , 

sync_set = dbs_16_start , 
sync_reset = bus_cyc legend, 
reset = , 

") ; 

&:Delay ("out = dbs_16_halfword_0 , 

in = dbs_16_state_halfword_l, 

enable = bus_cycle_end, 

reset = , 

") ; 

&PBM_Assign ( "dbs„16_halfword„l" , 

"dbs__16„start 1| dbs_16_state_halfword_l" ) ; 

# Pedantic renaming for documentary purposes. 1 hope you're happy. 

&PBM„Wire ( " dbs_16_wait_asserted" , 1, " dbs_16_half word_l " ) ; 

push (@dbs_wait_asserted_terms, "dbs_16_wait_asserted" ) ; 

} 

&PBM_Wire ("dbs_wait_asserted" , 1, join(" 1| ", @dbs_wait_asserted_terms ) ) 

################ 

# Address -output 
# 

# The DBS-unit, of course, has to compute "altered" addresses 

# for presentation to the client peripherals. We compute 

# separate altered addresses for the DBS-8/16 units. 
# 

# We also compute a "mixed" version of the address, whxch we 
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15 



# make available to shared busses which contain -both- dynamically- si zed 

# 8- and 16-bit peripherals (I expect most systems will have no such 

# bus, but we compute the address for it here, anyhow) . 
# 

# Of course, these addresses only differ in the low bit(s) 

# from the original address. 
# 

# Since the rules which apply to byte-enable distribution are 

# similar (though simpler), we do "adjusted" be_n -computation 

# at the same time . 

my $sys_addr_signal = ScGet„Sys_Signal ( $$Sys {master} , "address"); 
my $sys_be_signal = £cGet_Sys_Signal ( $$Sys {master) , "byteenablen ); 

if (scalar (@dbs_8_modules) ) 

^ # We alter the low 1 or 2 address bits, depending on whether this 

# is a 16- or 32-bit system: 

20 # 

if ($$Sys{master_data_width} ==16) 

{ 

$address_lsbs_width = 1; 

&MUX ( "dbs_8_address__lsbs, type=unary, declare=l, w-1, 
25 dbs_8_byte_l — > I'bl, 

D dbs_8_byte_0 --> I'bO, 

— > $sys_addr_signal\ [0] , 

") ; 

} else { # 32-bit system 
p 30 $address_lsbs„width = 2; 

&Mux ("dbs_8_aO, type=\inary, declare=l, w=l, 

™ dbs_8_byte_3 — > I'bl, 

^ dbs_8_byte_2 — > I'bO, 

l_ 35 dbs_8_byte_l — > I'bl, 

U dbs_8_byte_0 — > I'bO, 

— > $sys_addr_.signal\ [0] , 

" ) ; 



f u 

Pi 40 # For 32 -bit systems, we want to leave bit 1 of the address 

^ # alone whenever this is a "narrow_16" access. 

&MUX ( "dbs„8_al_raw, type=unary, declare=l, w=l, 

dbs_8_byte_3 — > I'bl, 
dbs_8_byte_2 — > I'bl, 
45 dbs__8_byte„l — > I'bO, 

dbs_8_byte_0 — > I'bO, 

— > $sys_addr_signal\ [1] , 

") ; 

50 ficMux ("dbs_8_al, type=unary, declare=l, w=l, -.vr^i 

write_is_narrow_16 — > $sys„addr__signal\ [ 1 J , 

— > dbs_8_al_raw" ) ; 



55 } 



&PBM_Wire ( " dbs_8_address_lsbs " , 2 , " {dbs_8__al , dbs_8_a0 } " ) ; 



60 } 



my $high_range = " $$Sys {master_address_width} - 1 : $address_lsbs„width" ; 
my $high_segment= " $sys_addr„signal \ [$high_range] " ; 

&PBM_Assign ( "dbs„8_address" , " { $high_segment , dbs__8_address_lsbs} " ) ; 



if (scalar (@dbs_16__modules) ) 
{ 



# This must be a 32-bit system, and we alter address-bit 1. 

# Note that, by definition, this is a half word-aligned 

# address, so A[0] is niether computed nor distributed 

# with this address, 
# 

ScMux ( "dbs_16„address_lsb, type=unary, w=l, declare=l, 
dbs_16_halfword„l — > I'bl, 
dbs_16_halfword_0 — > I'bO, 

--> $sys_addr_signal\ [1] , 

") ; 

&PBM_Assign ( "dbs_16„address" , "{ 

$sys_addr_signal \ [ $$Sys {master_address_width} -1 : 2], 
dbs_16_address_lsb} " ) ; 

# If we are accessing halfword-0, then present be [1:0] to the 

# peripheral. If we are accessing halfword-1, then we present 

# be [3: 2] instead. 
# 

ScMux ( "dbs_16_be_n_lsbs, type=unary, w=2 , declare=l, 

dbs_16_halfword_l — > $sys„be_signal\ [3 : 2] , 

— > $sys_be_signal\ [1:0] , 

") ; 

&PBM_Assign ( "dbs_16_be_n" , " { 

$ sys_be_s ignal \ [ 3 : 2 ] , 
dbs_16_be_n_lsbs } " ) ; 



# Create a verison of "adjusted" address suitable for any occasion, 

# no matter what dynamic operation is (or is not) in process. This 

# address value gets distributed on shared address ports. Also 

# create an "adjusted" version of the byte-enable signals. 
# 

# Note that, at least, this mux does collapse to something simpler 

# (trivial) if we don't have any dynamic peripherals, or if one class 

# (8/16) is entirely missing. That's thanlcs to the "I'bO" triclc, above. 
# 

ficMux ( " dbs_adjusted_address , 
type = unary, 

w = $$Sys{master_address_width} , 
dbs_8_active --> dbs_8_address , 
dbs_16„active — > ( {dbs_16_address , 1 ' bO } ) , 
--> $sys_addr_signal, 

") ; 

&Mux ( ''dbs_adjusted__be_n, 
type = unary, 
w =4 

dbs_16_active --> dbs_16_be_n, 

— > $ sys_be_s ignal , 

") ; 

################ 

# Read-data registers . and assembled-output . 

# 

&PBM_Wire ( "bus_cycle_data_ready" ) ; # declared here, computed later. 

if ( scalar (@dbs_16_modules ) ) 
{ 

ScDelay ("out = held_halfword_l , 

in = dbs_16_muxed_input , 

w = 16, 



enable = {d]DS_16_halfword_l && bus„cycle„data_ready) , 
reset = , 

&PBM__Assign ( "dbs_16_output " , " {held_.halfword„l , dbs_16„muxed_iiiput ] " ) ; 

f (scalar {©dbs_8_inodules) ) 

ficDelay ("out = held_byte_3 , 

in = dbs__8_muxed_input , 

w =8, 

enable ^ (dbs_8_byte„3 && bus__cycle_dat already) , 
reset = , 
") 

if ($$Sys{master„data_width} == 32); 

&:Delay ("out = held_byte_2 , 

in = dbs_8_muxed_input, 

w =8, 

enable = (dbs_8_byte_2 && bus„cycle_data_ready) , 
reset = , 
") 

if ($$Sys{inaster_data_width} == 32); 

ficDelay ("out = held_byte_l, 

in = dbs_8_muxed_input , 

w =8, 

enable = (dbs_8_byte__l && bus_cycle_data_ready) , 
reset = , 
" ) ; 

if ($$Sys{inaster__data„width} == 32) 
{ 

&PBM_Assign ( " dbs_8_output " , 

" {held_byte_3, held_byte_2 , held_byte„l, dbs_8_muxed_input } 

} else { 

&:PBM_Assign ( " dbs„8_output " , ^ 

t, ^ held_byte„l, dbs_8„muxed_input } 

} 

} # End: if (scalar (@dbs_8_modules) ) 

################ 

# Write-data 

# 

# Selection-mux to pick the correct segment to send. 

# This is all pretty easy, once you've got the write-control 

# signals {dbs_8_byte_3 , etc) all figured-out. 
# 

# For now, the read- and write- phase control signals (e.g. 

# dbs_8_byte_3 and friends) are the same. In the future, it might 

# be beneficial to remove the "narrow-write" exclusion-term from the 

# read-phase-control signals, but leave it in the 

# write-phase-control signals. For today, narrow writing is a 

# term in both phase-control signals— BECAUSE THEY'RE THE SAME: 
# 

my $sys_write_data = &Get_Sys_Signal ( $$Sys {master} , "writedata" ) ; 

if (scalar (@dbs_16_modules) ) 

&:PBM_Wire ( "dbs_16_write_halfword_l" , 1, "dbs_16_halfword_l" ) ; 

ScMux ( "dbs_16_write_data, type = unary, w = 16, 

dbs_16_write_halfword_l — > ( $sys_write_data\ [31: 16] ) , 



— > ($sys_write_data\ [15 : 0] ) , 

") ; 

} 

if (scalar (@dbs_8_modules) ) 

if ( ($$Sys{master__data_width} == 32)) { 

ScPBM_Wire ( " dbs„8_wr i te_byte_3 " , 1 , " dbs_8_byte_3 " ) ; 

&PBM_Wire ( " dbs_8_wr i te_by te_2 " , 1 , " dbs_8_by te„2 " ) ; 

ipBM.Wire ( " dbs_8_wr i te„byte_l " , 1 , " dbs_8__byte_l " ) ; 

my $mux_string = ""; .^.r-^-tn/i-iA 
$mux_string .= "dbs_8_write_byte_3 — > ( $sys_write_data\ [ 31 : 24] ) , 
dbs_8„write_byte_2 --> ( $sys_write_data\ [23 : 16] ) , " 
if $$Sys{master_dat:a_widt]:i} == 32; 
Smux string .= " dbs_8_write_byte_l — > { $sys_write_data\ [ 15 : 8]), 

($sys_write_data\[ 7: 0] ) , " 

ScMux ( "dbs_8„write_data, type = \inary, w = 8, $mux_string" ) ; 

} 

# Create a verison of "adjusted" write-data suitable for any occasion, 

# no matter what dynamic operation is (or is not) in process. Tliis 

# write-data value gets distributed on shared data busses. 

# Note that, at least, this mux does collapse to something simpler 

# (trivial) if we don't have any dynamic peripherals, or if one class 

# (8/16) is entirely missing. That's thanlcs to the "I'bO" triclc, above. 
# 

ScMux ( "dbs_adjusted_write_data, 
type = unary, 

w = $$Sys{master_data__width} , 

dbs_8_active --> dbs_8_write_data , 
dbs_16_active — > dbs_16_write_data, 
--> $ sys_wr i t e_data , 

") ; 

} 

^^############################################################## 

# PBM_Emit_IRQ_Prioritizer 
# 

# Well, compared to the dynamic bus-sizer, this is sure a piece 

# of calce. 

# Given a %Sys-hash (reference) , we have to emit the recjuisite 

# IRQ prioritization logic into the currently-open file (which, we 

# presTjme, is the PBM verilog file) . 
# 

# We are responsible for driving two signals: 
# 

# 1) The masters' "irq"-type input. 

# 2) The msters' " irqniomber " -type input. 
# 

# (1) is just a straight logical-or of all the periphs ■ IRQ- output s . 

# (2) is just an ordered priority -mux . 

################################################################ 

sub PBM_Emit_IRQ_Prioritizer 

{ 

my ($Sys) = (@_) ; 

&Emit_Comment ( " \n IRQ Prioritizer \n" ) ; 



my @ir<i_signals = ("I'bO"); # Trick makes it work when list is empty. 
Z %irS:haSi; # Keeps track of irq signals by number, so we can sort. 

foreach $Mod (&Get_Sys_Slave_I.ist ($Sys) ) 
^ ^ next if !$$Mod{Has_IRQ}; # that was a short trip. 

my $irq_signal = &Get_Sys_Signal($Mod. "irq"); 

$irq_hash{$$Mod(IRQ_Number} } = $irq_sxgnal ; 
10 push (@ir<i_signals, $ir(3_signal) ; 

&PBM_Assign (&Get_Sys_Signal {$$Sys (master) , "irq") , 
join (" II @irq_signals) ); 

# NOTE: we do not use the generator- library &Mux- function 

# because it doesn't retain the order of the terms. That's Dust 

# the way it works. That's OK: It's easy enough to aust build 

# our own question-mark-colon expression: 
20 # 

my $miix_expression_string = " " ; . . > » ' 

foreach $irq_num (sort numerically keys (%xrq_hash) ) 

^ $mux_expression_string .= " $irq_hash{$irq_num} ? 6'd$irq_num : " ; 

Q 25 } 

i $mux_expression_string .= " 6'd63"; # Default: lowest priority. 

M ScPBM_Assign (ScGet_Sys_Signal ( $$Sys {master} , " irqnumber" ) . 

Q 30 $mux_expression_string) ; 

0 # Mien Got, that was easy. 

01 } 

U 35 ###########################################*##****************** 

# pBM_Emit_Simple_Assignments 

^ # At the top of the PBM module, there are a bunch of "simple" 

hJ # assignments. These are, for the most part, statements whxch 

O 40 I "broSSasf master-outputs to various slave modules . For example. 

S # the master control signals are "simply" assigned to many of the 

# slave modules. 

# This fixnction handles this issue role-by-role. 

# Note that no special care is needed for shared busses, because 

# we've defined the utility function &PBM_Assign so that you can 

# call it multiple times to assign the same thing to the same 

# signal, and it does something smart (ignores redundant assignments) . _ 
50 # Thus, a shared byteenablen signal, for example, will get ^he masters 

# byteenablen-output assigned to it multiple times, but it won t hurt 

# anything. 

I we -don't- connect writedata- or address-type ports for dynamically-sized 
55 # peripherals. Those are generated in the DBS-unit For the same reason, 

# Se also don't assign address- or writedata- signals to shared busses, 

# because one of the clients might require dynamic sizing. 

*############################################################### 
60 sub PBM_Emit_Simple_Assignments 
{ 

my ($Sys) = (@_) ; 



# Lots Of things connect to the master, so let's keep a ref to the 

# master's data, and its avalon-ports , handy: 
my $Master_Mod = $ $Sys {master} ; 

my $master_avalon_table = $$Master_Mod{avalonj>ort_table} ; 

&:Emit_Comment ( " \nSimple assignments. 

Connect-up signals which pass unmolested from one PBM-port to another. ); 

ficPBM.Wire ("reset", 1, " --reset__n" ) ; # Handy: Logic-true reset. 
################ 

# Start with the very-easiest avalon roles: 

# alwaysO, alwaysl, elk, and resetn 

# Even these are a little abnormal, because we have to deal with the 

# fact that there could be more than one of each type. 
# 

foreach $Mod (ScGet_Sys_Module„List ( $Sys) ) { 

foreach $Port {&Get_Module_Port_List ($Mod) ) 

^ if ($$Port{avalon_role} eq "alwaysO") { 

&PBM_Assign ( $$Port {system_signal} , "{ $$Port {width} ' bO }" ) ; 
} elsif ($$Port{avalon_role} eq "alwaysl") { 

&PBM_Assign ($$Port{system_signal}, "{ $$Port {width} ' bl} " ) ; 
} elsif ($$Port {avalon_role} eq "elk") { 

StPBM_Assign ( $$Port { system_signal} , "elk") ; 
} elsif ($$Port{avalon_role} eq "resetn") { 

ScPBM_Assign ( $$Port { system_signal} , "reset_n"); 

} 

} 

} 

################ 

# Address-broadcast . 

# Each peripheral with an address-port gets the appropriate 

# flavor of address — except, of course, dynamically- sized peripherals, 

# which get a special address generated by the DBS-unit. 
# 

# The byte-enable control signals could, I suppose, be considered "part 

# of" the address, so they get assigned in this same loop. Once 

# again, byte-enables for dynamic devices are handled elsewhere. 
# 

# 1 ! ! SUBOPTIMALITY NOTE ! • ! 

# Shared-busses are complicated, because it ' s a bit of an ordeal to 

# figure-out exactly -which- flavor of dynamic address they get— it 

# depends upon what's connected to them. If we were to do this m 

# some clever, optimal way, it would be a big hassle (trust me: a 

# great big hassle) . 
# 

# This same rule applies to the byte-enable signals. 
# 

# Instead, we always assign a dbs-adjusted 

# version of the address (which comes from logic) to shared address 

# ports. Even shared address ports that don't have any dynamically-sized 

# clients on them. Thus, we sometimes introduce more logic-delay than 

# strictly necessary. Sue me. I'll fix it if it ever becomes a 

# problem. 

# 

my $byte_range_select = " $$Sys {master_address_width} -1 : 0"; 

my $halfword_range_select = " $$Sys {master_address_width} -1 : 1"; 



my $word_range_select = " $$Sys {master_address_width} -1 :.2"; 

&Emit_.Comment ( " \n Address -assignment s\n" ) ; 

# Emit wire-declarations for DBS-generated addresses, .^l^^ther we 

# need them or not. These get assigned-to when we build the 

# dynamic bus-sizers, but we (might) use them here: 

Lbm Wire ("dbs_16_address", $$Sys {master„address_width} -1) 

&PBM"wire ( " dbs_8 .address « , $$Sys {master_address_wxdth} 

&PBMlwire ("dbs„adjusted_address", $$Sys {master_address_width} ) 

&PBM„Wir e ( " dbs__l 6_be_n " , 4 ) ; 

&PBM„Wire ( "dbs_adjusted_be_n" , 4) ; 

foreach $Mod (&Get„Sys_Slave_List ( $Sys) ) 

^ next if $$Mod{Is_Bus_Master}; # Slaves only, please 

# Go ahead and hook-up the byte-enables. That's straightforward. 

I Note: I may need to change this later to work with narrow writes 

# through the DBS -unit. 

my $BE_Port = 6cGet_Port__By_Role {$Mod, "byteenablen"); 
if ($BE_Port) { 

if ($$BE_Port{is_shared} 1 | 

$$Mod{is_dynamically_sized} ) 

^ # All shared byte-enables are dbs-muxed. How suboptimal. 
&PBM_Assign (&Get_Sys_Signal ($Mod, "byteenablen") , 

"dbs_adjusted_be_n" ' ' 

} else { # Non-dynamic byte-enables 

&PBM_Assign (&Get_Sys_Signal {$Mod, "byteenablen 

&:Get_Sys_Signal ( $Master_Mod, "byteenablen*)); 

} 

} # if ($BE_Port) 

my $source_signal = " " ; 

my $A_Port = ficGet_Port_By_Role ($Mod, "address"); 
if ($A__Port) { 

if ($$A_Port{is_shared} ) 

^ # All shared addresses are dbs-muxed. How suboptimal. 
$source_signal = "dbs_adjusted_address" ; 

elsif ($$Mod{is„dynamically_sized} ) 
{ 

$source_signal = „ « 

„«ed(aaa.e=,_.ypa_used, e, -byte- , .-^^Jt^^Vsl- ] 

} else { # Non-dynamic address 

mn/ $range_select = ^ t 

$$Mod{address„type_used} eq "byte" ? $byte„range_s elect 

$$Mod{address_type_used} eq "halfword" ? $ ha lfword_range_s elect 

$word_range_select 

$source_signal = r t 

&Get„Sys_Signal ( $Master_Mod, "address") . " [$range_select] ; 

ipBM_Assign {ScGet_Sys_Signal ($Mod, "address"), $source_signal) ; 
} # if ($A_Port) 
} # foreach $Mod . . . 



################ 



# Data-broadcast 

I pretty simple: Each peripheral gets a copy of the. master's write-data, 
; Sisi ifS dynamic-then it gets a special "tweaked" version of the 

# data, 

I Shared data-ports could, in theory, have ^^yjcind of peripheral attached 

# to them, so they need to drive-out a fully "dynamxcally-ad.usted 

# version of the data suitable for the current occasion. Happily, the 

# DBS-\init computes this very thing for us. 

# See the ' > < SUBOPTIMALITY NOTE!!! above for addresses. 

I same thing goes here. We're penalizing the write-data path on 

# busses that may not have any dynamic clients at all. For now: 

# tough beans. For later, maybe we'll get more clever. 

I Another slight suboptimality : The way this works Jrive data 

# on -all- tri-state busses whenever the master does a write. This 

# might involve a slight waste of power, because we'll be wiggling I/O 

# pins more than strictly necessary. Again, tough beans. 

# V us 

&Emit_Comment ( " \n Data-assignments\n ) ; 

# Emit wire-declarations for DBS-generated write-data. whether we 

# need them or not. These get assigned-to when we build the 

# dynamic bus-sizers, but we (might) use them here: 

&PBM_Wire { "dbs_16_write_data" . 16); 
&PBM Wire (''dbs_8_write_data" , 8); 

&PBMlwire ( " dbs_adjusted_write_data" . $$Sys {master_data_width} ) ; 

foreach $Mod (&Get_Sys_Slave_Iiist ($Sys) ) 
{ 

my $source_signal = ""; ^,„.^j.-n\ 
my $target_signal = &Get_Sys_Signal ($Mod. "writedata ); 

if ($$Mod{Uses_Tri_State_Data_Bus} ) 

^ # The "principal" tri-state bus is managed as part of the 

# read-data path (elsewhere) . 

next if $$Mod {Tri_State_Data_Bus} eq 

$ $Sys { Principal_Tri_State_Data_Bus } 

# For tri-state busses, we need to use the "data"-type port 

# instead of the "writedata" -type port as the assignment 

# target : 

$target_signal = &Get_Sys_Signal ($Mod, "data"); 

# To this bus we will assign a value which, as it 

# happens, incorporates its whole tri-state logic. Perversely, 

# we may "PBM_Assign" this same expression to this bus several 

# times, but it doesn't hurt anything. 

my $sys_writen = &Get_Sys_Signal ($$Sys {master} , "writen"); 
$source_signal = - (-$sys_writen) ? dbs_adjusted_write_data : 

$$Sys{master_data_width} 'bZ ,- 

elsif ($$Mod{is_dynamically_sized} ) 
{ 

$source_signal = „ ■ ^ ^ ^ „ 

$$Mod{address_type_used} eq "byte" ? "dbs_8_write_data : 

"dbs_16_write_data'' ; 



} else ( # Non-dynamic address ^ *.^»\. 

Ssource^signal = &Get_Sys_Signal ( $Master_Mod, "wrxtedata ), 

} 

&PBM_Assign ($ targe t_signal, $source_signal) ; 

} 

################ 

# Readn/Writen -broadcast. 

I Every module gets a copy of the master's "readn- and "writen" signals 
; !! S;iess the? have a nonzero setup- or hold-time, whxch case 

# they get their very-own custom-made, tweaked copy of these signals. 

# That all happens later when the wait-state unit gets created. 

&Emit_Comment ( " \n control-assignments\n" ) ; 
foreach $Mod (&Get_Sys_Slave_Iiist ($Sys) ) 

^ next if $$Mod{Setup_Time} ! = 0 ; 

next if $$Mod{hold_time_full_clocks} != 0; 

ScPBM Assign (ScGet_Sys_Signal ($Mod, "readn"), 
&Get_Sys_Signal ( $Master_Mod, "readn")); 

&PBM_Assign (&Get_Sys_Signal ($Mod, "writen"), 

&Get Sys_Signal ($Master_Mod, "writen )) • . ^ v,,. 

unless $$Mod{HoId_Time}; # half -cycle hold needs custom write strobe. 

} 

} 

################################**#***************************** 

# PBM_Emit_Address_Decoder 

# Given a ref to the %Sys-hash. we can generate all the logic 

# to build the address decoder. 

# This function emits all the Verilog statements which 

# implement the address -decoder directly into the currently- selected 

ft output file. These statements include: 

I * wire-declarations for modules that don't have chip-select ports. 

# * Logic-assignments to all "active-" signals, 

# * instantiate fast I/O registers for " registeredselectn" s , xf any. 
ft 




sub PBM_Emit_Address_Decoder 
{ 

my {$Sys) = (@_) ; 

&Emit_Comment ( " \n Address decoder \n" ) ; 

ft Extract the name of the masters' address signal: 
my $Master_Mod = $$Sys {master} ; 

my $master_address = &Get_Sys„Signal ( $Master_Mod, "address ); 

ft external chip selects may get gated with slave^phase below. 
&Vprint ( "reg slave_phase; \n" ) ; 

foreach $Mod {&Get_Sys_Slave_List { $Sys) ) 

^ $$Mod{extemal_active_signal} = &Get_Sys„Signal {$Mod, "chipselect " ) ; 



# All modules get a pbm_internal select signal regardless of if they 

# need an external chip select signal. This is because 

# we use address -decode signals to operate the 

# read-data mux and wait state timer. PBM_external signals have 

# gotten a tad more tricky. We now gate them with slave_phase. 

# This may 

# All modules, including ones requiring the evil 

# "registeredselectn"-type signals also fall into this category. 
$$Mod{internal_active_signal} = - $$Mod{name}„active" ; 

# How quaint that we still call this old warhorse of a function: 

Lake_Nios_Chip_Select ("out = $$Mod(intemal_active_signal} , 

device_base = $$Mod{Base_Address} , 
device_span = $$Mod{address_span} , 
outer_span = $$Sys {address„span} , 
address_name = $master_address , 
") ; 

if ($$Mod{external_active_signal} ) 
{ 

($$Mod{Read_Wait„States} eq "peripheral_controlled" ) 1| 
($$Mod{Write_Wait_States} eq "peripheral^controlled" ) 
) 

&PBM_Wire ( $$Mod{extemal_active„signal} ,1, 

"$$Mod{intemal_active„signal} & slave_phase" ) ; 

} 

else 

^ &PBM_Wire { $$Mod{external_active_signal} , 1 , 
$$Mod{internal_active_signal} ) ; 

} 

} 



} 



################ 

# Registered chip-selects. 
# 

# The whole dirty little business of registered chip-select signals 
■• is, I suppose, part of the address -decoding job. Note 

that modules can have more than one registered chip-select sxgnal, 



« 



# each of which is derived (of course) from that modules' active-signal , 

# There's also a wait-state aspect to this task (wait-states 

# occur as a consequence of the chip-select delays). That's not 

# handled here— it's handled later, when we build the wait-state 

# unit. 
# 

my $Fast_IO_Setting = "OFF"; 

irr^ $chipselect_reg_module = $$Sys(name} . "_rg" ; 

if ($$Sys{has_registered_select_signals} ) 
{ 

$Fast__IO„Setting = "ON" ; 

# First, we create a special flip-flop module just for the 

# purpose. It needs to be "firm" so that synthesis tools don't 

# optimize-away duplicates, and so that we can make a 



# FAST_OUTPUT_REGISTER entity-assignment to it without "losing" its 

# neune . 

&Create_Finn_Flip_Flop_Variant ( $$Sys {syst em_di rectory} , 

$$Sys{sopc_directory} , 
$$Sys{device_faniily} , 
$chipselect_.reg_inodule , 

) ; 

# Push this register onto the list of files to be synthesized, 
my $synth_list_ref = $$Sys {synth„f ile_lxst} ; 

push {(a$synth_list_ref , 

"$$Sys{systein_directory}/$chipselect_reg_iaodule.v ) ; 

# ScEmi t _C oimtien t 

(q[ 

Registered chip-select signals 

A module may optionally request one (or more) -^^9^^'^^^?^- J^^J"^^^^^'' 
signals (by declaring a port of type "regxsteredselectn , and by 
siSing the "Uses.Registered.Select.Signal" assignment TRUE xn the 
SYSTEM_BUIIjDER_INFO section) . 

Modules do this when they have stringent setup -time requirements 
on their select-signals. Such stringent setup requirements are 
greatly assisted by having the select-signal be produced from 
an Apex Fast-l/0 register, right in the pad structure itself. 

Delaying (registering) the select-signal to a module is tricky 
SuSness, bu? the PBM "absorbs" all the trickiness and Joes the right 
thing. Wait-states get generated (in subsequent code) when the 
(delaved) select-signal being fed to the device disagrees with its 
ioJr^^t cuJient va^ue. The\ogic is clever enough to allow successive 
accesses to this same device with no wait-penalties . This 
S5rangement is emminently suitable for external asynchronous RAM 
used as main-memory. 

Registered chip-selets are always logic -negative, because that's the 
way chip-level select signals have been since the dawn of time. 
BeLuse these come directly from fast I/O -^^^^^^^^^ ' ^^^^^^^ J "° ^i^^ 
subsequent opportunity to negate them, or even copy them to other pins. 

we accomplish all this using deep voodo magic: We use a special 
"Firm Flip-Flop" module, since this is the only way to convince 
the synthesis tool to -not- optimize-out •• redundant •; chip-select 
registers. It also provides a handy method for assigning the 
'FAST_OUTPUT_REGISTER' attribute — using an ESF-file. 
1) ; 

foreach $Mod (&Get_Sys_Slave_Iiist ($Sys) ) { 

foreach $Port (&Get_Module_Port_List ($Mod) ) 

^ next if $$Port{avalon_role} ne "registeredselectn" ; 

# If we got to here, then we know %$Port is 

# of type "registeredselectn". Blurt-out an instance 

# of a properly-connected firm flip-flop with no further ado: 

ty $instance_name = " $$Mod{ name} _$$ Port {name} _delay_register " ; 

ScVprint ( " 

$chipselect_reg_module $ instance_name 

( 

.elk (elk). 



.ena (I'bl), 

.clrn (reset__n) , 

.prn (I'bl), . ^ 

.d («$$Mod{internal_active_sxgnal} ) , 

.q ($$Port {system_signal} ) 

// exemplar attribute $instance_name NOOT TRUE 
') ; 



} 

10 } 



} # End: if {$$Sys{has_registered_select_signals}) 

# We -always- create an ESF file because: 

# 1) don't cost nuthin' , 

15 # 2) Un-sets FAST-I/0 req'mnt if it had been prevxously set. 

# 

^^^'("fiSji^fliplflop : FAST„OUTPUT__REGISTER = $Fast_IO_Setting; " , 

$$Sys{system_directory} , 
20 $chipselect_reg_module) ; 




> 

f^, 25 ## 

# PBM_Eini t_Read_Dat a„Mux 

2 # Given a ref to the %Sys-hash, we can generate all the logic 

^ # to build the read-data mux path. 

C # This function emits all the Verilog statements which 

O # implement the read-data mux structure directly xnto the 

# currently-selected output file. 

l^. 35 # ***★ Mux structure 



We build-up a "fast mux" and a "slow mux." The "fast mux"^ 
gathers-up all the readdata-type signals for zero-wait-state 



m # modules (if any). The slow-mux gathers-up all the others 

Q 40 # 

1^ ^ **** The "principal" bus. 

I The road to the CPU takes another twist if you have a "principal" 
I trl-state data bus. The principal data bus gets routed -dxrectly- 
45 I to tie CPU'S read-data port-the rest of the (muxed-together) sxgnals 

# a route "around the horn": Driven-out onto the prxncxpal 

# databus in order to be read back in. 

# If the CPU doesn't have any such "principal" tri-state busses, then 
50 # things are simpler--the muxes just collect the data. 

# **** widths 

# in this age of dynamic bus-sizing, all narrow data busses are just 
55 # Sro-^addJd. This happens "almost invisibly" in Verilog syntax when 

we assign a narrow value to a wide target. 



If a peripheral is "dynamic," then we use the ouptut . 
from the appropriate DBS-unit in place of its data. The DBS-unxt 



60 # itself is generated later. And, to help-out the DBS-unit, we 



also generate its input-muxes right here, because we are already 
engaged in the process of building mux-like things. 




:##¥##### 



sub PBM_Emit„Read_Data„Mux 
{ 

my ($Sys) = (@_) ; , 
&Emit_.Coinment ("\n Read-Data Multiplexer \n ), 

################ 

# Loop to build-up slow- and fast-mux strxngs. 

# Also, build-up mux strings for the dynamic bus-sizers' inputs. 
# 

my $f ast_mux„string = " " ; 
my $slow_mux_string = " " ; 
my $dbs_8_mux_string = " " ; 
my $dbs_16__mux_string = 

foreach $Mod (&:Get_Sys_Slave_List ( $Sys) ) 

^ my $data_signal = ScGet_Sys„Signal ($Mod, "readdata"); 
$data_signal = &Get_Sys_Signal ($Mod, "data") 
if $$Mod{Uses_Tri„State_Data_Bus} ; 

next if $data_signal eq # Some peripherals are write-only (!) 

if {$$Mod{:is_dynamically_sized} ) 

^ # Yikes. A dynamically-sized peripheral. Its data comes from 

# the appropriately-sized DBS-unit . Note that dynamical ly-sx zed 

# peripherals are automatically assumed to be "slow." 
# 

if ($$Mod{Data_Width} <= 8) 

^ $slow_mux_string • = " $$Mod{ intemal_active_signal} 

dbs_8_output ^;;^^_3_^^^_^^^,^^ , = 55Mod( internal.ac tive.signal } 

$data_signal , " ; 

^ ^$sloi_mux_string •= $$Mod{ intemal_active_signal } 

*^^-^'-°"^''"$^Ll6_mux_string .= $$Mod(internal_active_signal} 

$data_signal, " ; 
} 

} else { 

# Not dynamic— it's ether a slow-thing or a fast-thing. 

# Principal data-bus is not (directly) part of this mux. 

# but we are accutely interested in the active -signals 

# for peripherals which sit on the principal bus. We'll 

# use these signals later to control the bus-direction. 

next if $$Mod{Uses_Tri_State_Data_Bus} && ^ ^ „ 

($$Mod{Tri_State_Data_Bus} eq $$Sys {Principal_Tri_State„Data_Bus 

if ($$Mod{Read_Wait_States} == 0) { . . 

$f ast_mux_string . = " $$Mod{ interna l_active_signal } 

$data_signal, " ; 

^ ^$sloi_mux_string .= " $$Mod{internal_active_signal} 

$data_signal, " ; 
) > 
} 

} # End: $Mod-loop. 



# There may or may not be input -muxes to the DBS-units: 

# if so, we declare the DBS-unit's output wire here . ^^^^ 
I (becuase we have to). But the DBS-units themselves are made later. 

# 

if {$dbs_8_mux__string) 

^ &Modified_Mux("dbs_8_muxed„input, type=unary, w=8 $dbs_8^ux_string" ) 
&PBM_Wire ( " dbs„8_output " , $$Sys {master_.data_width) ) ; 

} 

i f { $ dbs_l 6_mux_s t r ing ) 

^ &Modified_Mux("dbs_16_muxed„input, type=unary, w=16, 
$dbs_16„mux_string" ) ; 
ficPBM_Wire ( " dbs_16_output " , $$Sys {master_data_width} ) ; 

} 

# There may or may not be a slow mux: 
# 

if ( $ s 1 ow_mux_s t r ing ) 

^ ficModified Mux ("slow_read„data_mux_output, type=unary, 

w = $$Sys{master_data_width}, $slow_mux_strxng 

") ; 

# The "default" input to the fast-mux is, of course, the output 

# of the slow-mux: 



$fast„mux_string .= " — > slow_read_data_mux_output , " ; 



} 



# There is always a fast -mux: 

ficModif ied_Mux ( " read_data_mux_output , type=unary , 
w = $$Sys{master_data_width} , 
$ f a s t _mux_s t r ing 

") ; 

################ 

# Data-in to CPU. 

# well, gee. There are two cases here. Let's start with the 

# easiest: 
# 

^ **★★ -NO- principal tri-state bus. 

# In this case, the fast-mux ouptut goes right to the 

# CPU's data- input, and that's that. 
# 

^ Principal tri-state bus. 

# 

# The principal tri-state bus actually drives the CPU's 

# read-data input directly. The fast-mux output gets reg3_stered. 

# The output of this register gets driven-out onto the principal 

# bus (and, therefore, to the CPU). Thus, perversely, we -drive- 

# data out onto this bus at the end of any bus read- transaction 

# which did not get data from the principal bus (and, even then, 

# we do it if there's dynamic bus-sizing). 

ipBM.Wire ("data.driveback.active") ; # These Declare here, compute 
&PBM_Wire ( " data_driveback_asserted" ) ; 
ScPBMJWire ( "dbs_8_active" ) ; 
&PBM_Wire ( " dbs_16_active " ) ; 



( 1 $$Sys(Principal_Tri_State_Data_Bus} ) 

# The easy case: M\ix feeds CPU, period. 

ScPBM_Assign (&Get_Sys_Signal ( $$Sys {master } , "readdata"), 
" read_data_mux__output " ) ; 

else { 

# ugh. 

# TO start with, hook-up principal bus directly to CPU's data-in: 

Lbm Assign {&Get_Sys_Signal ( $$Sys {master} , "readdataM , 
"$$Sys{Principal_Tri_State_Data_Bus}_data ) ; 

# Next, run the result of the read-data mux into a holding 

# register: 

&Delay("in = read_data__mux_output , 

w = $$Sys{master_data_width} , 

reset = r 

") ; 

################ 

# What to drive? 

# We can drive one of two things out on the principal data 

# bus: 

# 1) Outbound write-data from the CPU. 



# 
# 
# 
# 
# 



For this purpose, we use the same "c3bs_adDusted_wrxte_data 
that every other tri-state bus gets. This is suboptimal 
in the same way that it is for every other trx-state bus. 

3) Data from the read-mux being sent "back out" to the CPU. 

I Those are the only two possibilities, and we can tell which 
# to use just by looking at the masters' writen-signal : 

my $master_write_n = tGet_Sys_Signal ( $$Sys {master} , "writen"); 

&MUX ("principal_data_drive_value, type=unary. declare=l, 
w = $$Sys{master_data_width> . 

(-$master_write_n) — > dbs_ad3usted_write_data, 

> dl_read_data_mux_output , 

") ; 



################ 

# When to drive? 

I Like every other tri-state bus, we drive data during actual 

# bona-fide write-operations . We also drive data during the 

# "driveback" phase, as-determined by a signal named: 
# 

# data_driveback_asserted 

# which (we presume) gets comupted by the wait-state generator. 
^ **** Interaction: Dynamic Bus Sizing 

# And, of course, there's a bit of strangeness when a device 

# on the principal databus is dynamically-sized. The easiest 

# way to think about this: Set aside dynamic -si zing for a 

# moment, and think only about narrow peripherals on the 

# principal databus (be they dynamically sized or no) . 



# 

# Narrow peripherals, by definition, only drive low 

# bits (e.g. LS-byte or LS-halfword) of the databus . So, 

# when reading from (say) an 8-bit device on a trx -state databus, 

# the high-order bits [31.. 8] aren't driven by anyone. There s 

# no harm in -us-driving these bits, now, is there? If we 

# don't, then they'll just read as <undefined> ('Z', m 

# simulation), and that's not really any help to anyone. 

# So let's suppose we decide to be good citizens and "nail-down" 

# the high-order address bits when a narrow peripheral is 

# accessed on the principal tri-state bus. This gives us a warm 

# feeling inside, and, as an added bonus, makes dynamic bus 

# sizing work for devices on the principal bus (the high-bits 

# get driven from the appropriate dbs-holding registers. Yay. 
# 

# So, despite the heft of this comment, the actual solution is 

# both simple and tidy: 

&PBM„Wire ( " do_drive_principal_data_bus_byte_0 " , 1 , 

" (^$master_write_n) | 1 data_driveback_active" ) ; 

&PBM Wire ( ''do_drive_principal_data_bus_byte_l " ' 1 ' 

"do_drive_principal_data_bus__byte_0 |1 dbs_8„active ); 

ScPBM„Wire ( " do^drive j)rincipal_data__bus_bytes_2 and_3 " , 1 , 
"do_drive_principal_data_bus_byte_0 \ \ 
dbs_16__active |1 dbs_8_active" ) ; 

# Assign principal databus in bytewise-chunks . 

&PBM_Assign ( " $$Sys {Principal_Tri_State„Data_Bus}_data [7 : 0] " , 
« (do„drive_principal_data_bus__byte_0 ? 
principal__data_drive_value [7:0] : 
8 ' bZ ' 

") ; 

&PBM_Assign(''$$SysCPrincipal„Tri_State_Data_Bus}_data[15:8] " , 
" (do_drive_principal_data_bus__byte_l ? 
principal_data„drive_value [15 : 8] : 

8'bZ ^ 

") ; 

if ($$Sys{master_data_width} == 32) { , ^ ^ ro-i -icm 

&PBM_Assign( "$$Sys{Principal_Tri_State„Data_Bus}_data [31 : 16] , 

" (do_drive_principal_data_bus_bytes_2„and_3 ? 

principal_data_drive_value [31 : 16 ] : 

16 'bZ ^ 

") ; 

} 

} 

################ 

# "memis32bits" 

# 

# Somebondy needs to tell the master when it's fetching 

# 32-bit data--that's just one of the inputs that an Avalon master 

# might require. 

# I couldn't say for sure that this really belongs in the "Read Data Mux^ 

# generator, but I can't think of where else to put it, so here 

# it is. 
# 



# Note that 16-bit dynamically-sized devices appear as 32 l^^ts 

# -unless- "if etch" is asserted, in which case they don t. 8-1dic 

# dynamically-sized devices always just appear as 32-bi.ts wide. 

# It might be more efficient to say when something -doesn ' t- return 

# a 32-bit value. But For now, I do the logic-true computation: 

my $ifetch_signal = &Get_Sys_Signal ( $$Sys {master } , "ifetch"); 

my @memis32bits_.terms = ("I'bO"); 
foreach $Mod {&Get_Sys__Slave„List ($Sys)) 

^ if ($$Mod{Data_Width} > 16) { . n.v 

push {@memis32bits_terms, $$Mod{ interna l__active_s ignal} ) ; 

} else { 

if ($$Mod{is_dynamically_sized} ) { 

if ($$Mod{Data_Width} <= 8) { . i.x 

push {@memis32bits_terms, $$Mod{ internal_active_signal} ) ; 

} else { 

push (@memis32bits_terms, . t x x x 

" {$$Mod{internal_active_signal} && (^$ifetch_signal) ) ) 

} 

} 

} 

} 

&PBM_Assign (&Get_Sys_Signal ( $$Sys {master} , "memis32bits" ) , 
join (" II @memis32bits_terms) ) ; 

} 

##################################################*##*****#**^** 

# PBM„Emit_Wait_State_Generator 

# 

# Given a ref to the %Sys-hash, we generate all the logic 

# to build the read-data mux path. The logic gets 

# dumped-into the currently-selected output file. 

sub PBM:_Emit_Wait_State_Generator 
{ 

my ($Sys) = (@_) ; . x „v 

&Emit_Comment ( " \n Wait-State Generator \n ); 

# This function seems pretematurally-concerned with the read- 

# and write-strobes . Assign their signal-names to some 

# handy local variables: 

my $sys_readn = &Get_Sys__Signal ( $$Sys {master} , "readn"); 
my $sys„writen = ficGet„Sys_Signal ( $$Sys {master} , "writen" ) ; 



################ 

# Peripheral-Controlled Wait 

# If the currently-selected peripheral has a wait-request 

# signal, and it's asserting it, then we definitely want to 

# wait. This is pretty easy to compute: 

ty @periph_controlled_wait_terms = ("I'bO"); # I'bO fixes empty Id 

foreach $Mod (&Get_Sys_Slave_List ($Sys) ) 
{ 



$request_signal = &Get_Sys_Signal ($Mod, "waitrequest " ) ; 



############### 

# @periph_controlled_wait_terms is one of the very few things 

# (only one at the moment) that gets an 

# external_active_signal. We cut off the external select 

# after the peripheral lowers its wait pin. It doesn't get to 

# change its mind later on in the same bus cycle. 

push (@periph_controlled_wait_terms, 

" $$Mod{extemal_active_signal} && $request_signal && 

-$sys_writen) " _ ^ ^ n ^„ 

) if $$Mod{Write_Wait_States} eq "perxpheral_controlled ; 

push (@periph_controlled_wait_terms, ^ 
"$$Mod{external_active_signal} && Srequest.signal && (-$sys_readn) 
) if $$Mod{Read_Wait_States} eq "peripheral_controlled" ; 

} 

&:PBM_Wire ( "periph_wait__asserted" , 1 , 

join (" II @periph_controlled_wait_terms) ) ; 



################ 

# Calculate minimum wait states, 
# 

# Each module has a certain minimum number read/write wait-states, 

# perhaps even including zero. This is the sum of the 

# user-supplied wait-states and, IN ADDITION, 

# any setup- and hold-times the module may require. 

# . , 

# It may seem a bit strange, but even modules with 

# "peripheral_controlled" wait-states can also have a 

# minimum number of fixed wait-states— that * s because they may 

# also require setup/hold time. 

# The minimum number of wait -states we calculate here (and save 

# as part of each %Mod-hash) DOES NOT INCLUDE delays due to 

# dynamic bus sizing or principal -databus driveback. 
# 

# Here we just compute the minimum number of clocks -In A Single 

# Bus Cycle-. If the peripheral requires multiple bus cycles 

# (via dynamic bus sizing) or requires an extra clock for databus 

# drive-back, that's not our problem here. 

# The values we compute here (minus 1) get loaded into the 

# wait-state co\inter when any of these peripherals are selected. 

# while we're looping through the values, take note of the 

# largest number we'll see--this nxnnber (less 1) will be the biggest 

# value we ever load into the wait-state counter. 
# 

# **** Hold-time policy: 
# 

# Giving a peripheral extra hold-time doesn't make much sense 

# following a read-cycle — though one can contrive a case where 

# you need it. We could define it either way — hold-times apply 

# only to write-cycles, or they apply to both read- and write-cycles . 

# I've defined it so that hold-times only apply to write-cycles. It 

# makes computation of the "bus_cycle_data_ready" signal simpler. 
# 



# Deal with nasty case of no wait-states whatsoever whch will 
I Result in a zeJo-bit mux/counter. To deal with that case, we 

# just always assume at least one wait-state: 
# 

my $max_counter„value = 1; 

foreach $Mod (ScGet_Sys_Slave_List ( $Sys) ) 

^ my $min_read = $$Mod (Read_Wait„States} ; 
my $min_write = $$Mod{Write_Wait_States } ; 

$min read = 0 if $min_read eq "peripheral.controlled" ; 
$minlwrite = 0 if $min„write eq «peripheral_controlled ; 

$min read $$Mod{ Setup_Time} ; 

$mLlwrite $$Mod{Setup_Time} $$Mod{hold„time„full„clocks } ; 

$$Mod {read_min_wait_states} = $min_read; 
$$Mod{write_min„wait„states} = $min_write; 

$max_counter_value = ^ ^ • • \ 

&Find_Max ( $max_.counter_value , $min_read, $min_write) ; 

} 

my $wait_counter_bits = &Bits_To_Encode ( $max_counter_value) ; 

################ 

# Counter-load mux 

# Select what value goes into the wait-state counter 

# based on the peripherals' active-signals (and, of course, 

# whether we're reading or writing) . 

# Notice that we load the counter with the modules ' number of 

# wait-states MINUS ONE. 

I Trick: All these muxes are very similar, so we use the same 

# description-string with a different word at the front, 

# which gives each a different output - s ignal : 

my Scounter mux_string = "counter_load_value, 

^ V? = $wait_counter_bits, 

type = unary, 

--> 0, 



my $write counter_mux„string = "write." . $counter_mux_string; 
my $readIcounter_mux„string = "read." . $counter_mux_string; 

foreach $Mod (&Get_Sys_Slave_List ( $Sys) ) 

^ my $read„load_val = $$Mod {read_min_wait_states} - 1; 
my $write_load_val = $$Mod{write_min_wait_states} - 1; 

$read_counter_mux_string . = " $$Mod( intemal„active_s ignal } 
$read_load_val, " 

if ($read_load_val >= 0) ; . ^. • i\ 

$write_counter_mux_string .= " $$Mod{ interna l_actxve_signal } 

$write_load_val, " 

if ($write_load_val >= 0) ; 

} 



&Modif ied_Mux { $read_counter_mux_string) ; 



ficModif ied_Mux ($ writ e_counter_m\ax_st ring) ; 



&MUX ( "$counter_Taux_string, declare=l, 

(-$sys_writen) — > write„counter_loaa__vaiue , 
( -$sys_readn) --> read_counter_load_value , 



") ; 



################ 

# Wait-state counter. 

# There are two interesting questions about this counter: 
# 

# when should it load? 

# — When should it count? 
# 

# When to load: 

# This counter gets loaded at the beginning of every bus-cycle 

# for which a fixed wait is required. We already have a signal 

# which tells us when it's the beginning of a bus-cycle, so we 

I need some additional logic to tell us if a fixed-wait is required. 

# we build that logic herein below, before the counter proper. 
# 

# **** When to count: 

# This counter "sticks" at zero. This makes the whole scheme 

# much easier to manage/understand. Consequently, the counter 

# is only enabled when its current value is nonzero. 

# The only other thing that can stop this counter from a-countin* 

# is a wait-request from the active peripheral, Thxs 

# has the effect of extending the current Bus Cycle— setup-time, 

# hold-time, and all. 

# Note that there is a question of interpretation here: Do 

# we want to allow a peripheral to extend a ^^^-^^^^^^ 

# own setup-time? Or should we not listen to it unxtl we actually 

# issue it an active read/write strobe? This is largely a question 

# of definition. I chose to -always- listen to peripheral-controlled 

# waits, even during setup/hold periods. Because it makes the logic 

# easier. So there. 
# 

my @fixed__wait_active_terms = ("I'bO"); # 1 ' bO fixes empty- strings . 

foreach $Mod (&:Get„Sys_Slave_riist ( $Sys) ) 

if {$$Mod{read_min_wait_states} > 0) { 

push ( @f ixed_wait_active_terms , . n . x „ x 

" { (-$sys_readn) && $$Mod{ internal_active_signal} ) ) ; 

if ($$Mod{write_min_wait„states} > 0) { 

push (@f ixed_wait__active_terms , . . x „ v 

" ( (-$sys_writen) && $$Mod{ internal_active_signal} ) ) ; 

} 

} 

# This signal stays true during the entire bus-cycle 

# for which a fixed (counter) wait-state applies. 

LfiM.Wire ("fixed^wait.active", 1, join (" M @f ixed_wait_active_terms) ) 



# The counter itself, per-se. 

# I use one call to "&Delay" to build a whole counter. Nobody else 

# seems to appreciate the mighty "&Delay" function— the fools. 

5 # 

&:PBM_Wire { " counter_ne_zero " ) ; 

&PBM_Wire ("wait„count_enable", 1, M -periph_wait„asserted) 

(counter„ne_zero) ") ; 

10 &PBM_Wire ( "bus_cycle_start " ) ; # declared here, computed later . 

&PBM_Wire ("wait_load„enable" , 1, "bus_cycle_start && 

f ixed_,wait_active ") ; 

# Optimization: Avoid emitting the counter-register if the maximum 
15 # counter load-value happens to be zero. This often happens 

# when we have a bunch of one-wait-state peripherals m the 

# system. In this case, the single wait-state is controlled 

# by the "wait_load_enable" signal, and we can do away with the 

# counter per-se in its entirety. A clever synthesis tool mxght 
20 # figure this out on its own, but... why risk it? 

if ( $max_counter_value <= 1) C 

5cPBM_Wire ( " wait_counter " , 1 , " 1 ' bO " ) ; 
} else { 

ScDelay ("out = wait_counter , 

£==^.25 in = (wait_counter - 1) , 

^ enable = (wait„load_enable | ] wait_count_enable) , 

^ sync_set = wait_load__enable, 

zz set_value = counter_load__value, 

S width = $wait_counter_bits, 

Q 30 reset = , 

H ") ; 

m &PBM_Assign ("counter_ne_zero", "wait_counter != $wait_counter_bits\ ' bO " ) ; 

Q 35 &PBM_Wire ("fixed_wait_asserted", 1, "counter_ne_zero |1 wait_load_enable" ) ; 

################ 
iT. # Registered chip-selects. 

^ # 

Q 40 # This is a nuissance, but at least it's easy. 

# While we're listing all the reasons to extend a bus cycle, 

# let us not forget registered chip-selects. They blow! 

45 # Whenever the registered (delayed) version of a chip-select 

# differs from the current (un-delayed) version, we view 

# this as a bad thing. We extend the current bus cycle until 

# the signals agree (i.e. we wait 1 clock). 

50 my @reg_select_wait_terms = ("I'bO"); # Ah, the old "I'bO" trick, 

foreach $Mod (£cGet_Sys_Slave_L,ist ( $Sys) ) 

next unless $$Mod{Uses_Registered_Select_Signal} ; 
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# Modules -might- have more than one registered select signal, 

# but we don't really care. They all have the same time-behavior , 



my $reg_signal = &:Get_Sys_Signal ($Mod, "registeredselectn" ) ; 
60 push (@reg_select_wait_terms, " ( (^$reg„signal) 

$$Mod{internal_active_signal} ) " ) ; 
} 



&PBM_Wire ( "reg_select_wait_asserted" , 1, 

join (" II " , @reg_select_wait_terms) ) ; 

################ 

# Bus -Cycle Status. 

# One of the major responsibility of the wait-state generator 

# is to tell the rest of the world (not the least, the CPU) 

# where we are in the bus cycle: Beginning, middle, or end. 

# so How do we know when a bus cycle begins? The only thing 

# we know for sure is that one bus cycle begins when another one 

# ends — it's like a Zen koan, isn't it? 

# But seriously. A bus-cycle always ends when there is no longer 

# any reason to extend it. Said more prosaically, the signal 

# "extend_bus_cycle" will always be zero during the last clock 

# of any bus-cycle. 

# So, our only means for deciding that this is the -beginning- of 

# a cycle is to notice that " extend_bus_cycle" was false (0) . 
# 

# — Bonus reason. . ^v, • 

# Well, there's another way, too, that we can tell if this is 

# the start of a bus-cycle: If the CPU (master) is -idle- 

# (both read-strobe -and- write strobe inactive) . Masters 

# sometimes do this. If so, we consider that whole long 

# time the "start" of the bus -cycle, 
# 

^ **★* Reasons To Extend. 

# There are three "ordinary" reasons to extend a bus -cycle, and 

# one "sjecial" one. Let's start with the ordinary ( slave_drxven) reasons 

# 1) The peripheral, itself, can request wait-states. 

# 2) We can have a fixed (counted) number of wait-states, 

# due to both traditional wait-states and setup/hold times. 

# 3) That whole sorry business about registered chip-selects. 
# 

# Psxid here's the "special" reason 

# *4) Data has to percolate through the principal databus drive-back 

# register. 
# 

# But the only way we know when it's time to do (*4) is when 

# the bus-cycle is no longer extended for any of the other reasons (1..3) 

# But (*4) still counts as extension of the current bus-cycle. 

# Therefore, we have to account for (1..3) and (4) separately. 

# That's OK--I'm an amateur accountant. 
# 

# As long as the master is just sittin' there, we take that to 

# mean a cycle "is in the process of starting". 

&PBM„Wire ( "master__is_idle" , 1, ^ v v r . 

" ( " .&Get_Sys„Signal ($$Sys {master} , "readn" ).")&& . 
" ( " .&Get_Sys_Signal ($$Sys {master} , "writen" ) . " ) " ) ; 

&PBM_Wire ("slave_wait_asserted" , 1, 

reg__select_wait_asserted | | 

f ixed_wait_asserted j j 

periph_wait_asserted " ) ; 



# The slave gets its chance to wait, or talk, or whatever. 



) 



# it's over — for good. . ^ +- 

# Orion hates ScDelay because he never knows which of sync_.set or 

# sync_reset or any of the other options gets priority. 

# reg slave_phase is defined above because the outgoing chip 

# selects need to be gated by it. 

&:Vprint ( " 

always @ (posedge elk) 
begin 

if ( (-'reset_n) | | (bus_cycle_end) ) 
begin 

slave_:phase <= {1 {I'bl}}; 

end 

else begin , . x w 

if (~slave_wait_asserted & -master_is_idle) begin 

slave__phase <= {1 { 1 ' bO } } ; 

end 
end 

end 

# Don't extend a cycle when the master is idle I 
&PBM_Wire ( " extend_bus_cycle " , 1 , 

" (slave_wait_asserted && slave_phase) || 

(data_driveback_asserted ) " ) 



# And a bunch of different names for the same thing (used elsewhere) 

LsM.Assign ("bus.cycle.end", --extend.bus.cycle &S= ~master_is 

&PBM_.Assign ("bus„cycle_data„ready", "bus_cycle_end ); 



# Generate a privately-named version, then assign to global wire 
ScDelay ("out = bus_cycle_start_reg, 

in = bus_cycle_end, 

sync_set = master_is_idle , 
set = reset, 

" ) ; 

ScPBM^Assign ("bus^cycle.start", "bus_cycle_start_reg'' ) ; 



################ 

# Data drive-back timing 

# We are responsible for coming up with this nasty-little signal 
# 

^ data„driveback_asserted. 
# 

# this is true when: 
# 

# 1) This is a read-cycle. 

# 2) The currently-selected peripheral is -not- on the 

# "principal" databus 

# 3) There is no longer any other reason to extend the current 

# bus cycle ( slave_wait_asserted is zero) . 

# 4) We're not still gathering-up a data-value as part of a 

# multiple-bus-cycle dynamic-bus -si zing operation. 

# ... and, lest we forget (which we did) . . . 
# 



# 5) "data.driveback.asserted" wasn't true last time, otherwise 

# conditions (1) . - (4) above will persist forever, and the 

# master will hang-up indefinitely. 

# First, come up with a signal that tells us about (2): 

my @driveback_active_terms = ( " 1 ' bO " ) ; 
if ($$Sys{Principal„Tri_State_Data_Bus}) { 
foreach $Mod (&:Get_Sys_Slave_List ($Sys) ) { 

■If ( ($$Mod{Uses Tri State_Data__Bus} ) && ^ ^ „ i\\ 

(|$Mod{Tri_Stati_Data_Bus} eq $$Sys(Principal_Tri_State_Data_Bus} ) ) 

{ 

next; 

push (@driveback_active_tenas, $$Mod{ intemal_active_signal} ) ; 

} 

} 

ScDelay ("out = data_driveback_last_tiine , 
in = data„driveback_asserted, 
reset = , 
" ) ; 

aPBM.Assign ("data,driveback_active", joinC M " , @driveback.active_tertas) ) 

&PBM_Assign ( "data„driveback_asserted" , 
da t a_dr i veback_ac t ive 
( " $ sy s__r eadn ) Sc&: 
( -'slave_wait„asserted) 
(-dbs_wait_asserted) 
(-data_driveback_last_time) "); 

################ 

# Transaction status 

\ The wait-state generator is responsible for transaction-level 

# timing as well as the bus-cycle-level timing. Recall that a transaction 

# can take multiple bus cycles. 

\ And, once again, we are faced with the same question: How do 
I we know when a transaction starts? It starts when another 

# transaction ended (search for "Zen koan, " above). 

\ At this time, there's only one way a transaction will keep going 

# even when a bus-cycle has ended-if we're in the middle of a 

# dynamic-bus-sizing operation. 
# 

&PBM_Wire ( " extend_bus_transaction- , 1 , 

" extend_bus_cycle |1 dbs_wait_asserted" ) ,- 

# And a bunch of different names for the same thing (used elsewhere) : 

LBM_Wire ( "bus.transaction.end" , 1 , " -extend_bus_transaction" ) ; 

# Generate a privately-named version, then assign to global wire: 
&Delay ("out = bus_transaction_start_reg, 
in = bus_transaction_end, 

set = reset, 

&PBM_AssiU ("bus_transaction_start", "bus_transaction_start_reg" ) ; 

# Lookie here: The —FINAL— wait-request signal to the master: 
# 



&PBM^ssign (&Get_Sys_Signal { $$Sys {master} , waitrequest) , 
"extend_bus_transaction" ) ; 

} 

5 #########################################***#******************* 

# PBM_Emit_Setup_Hold_Ijogic 

# Given a %Sys-hash (reference) . emits all the logic to implement 

# "custom" readn / writen-strobes . 
10 # 

^ **** Custom Read / Write strobes 
# 

# If your module requests setup- or hold-times, then it 

# gets its own private readn- or writen-signal , which is only 
15 # active for a sub-portion of the bus cycle (unlike the masters 

# control signals, which are asserted for the entire cycle) . 

# Each -custom strobe" is generated by an S-R flip-flop. We 

# need to assert the strobe at a particular point in the cycle. 
20 # then deassert it at some later point. We use the counter-value 

; UnS the load-counter signal) to determine when to assert/deassert 

# the custom write-strobe (i.e. when to set/reset the flip-flop). 

I we can only use this scheme because we previously guaranteed that 
0 25 # all "custom" strobes have at least one clock's worth of setup time, 
5 # This gives us enogh time to compute the S/R inputs to the 

m # custom-strobe register, (see "Funny setup/hold rule" m 

# &Check_Avalon_Rules ) . 

###########################**#********************************** 
sub PBM_Emit_Setup_Hold_Logic 

{ 

my ($Sys) = (@_) ; . v „v 

&Emit_Corament ( " \n Setup- / Hold-Time Logic \n ) ; 

tl ################ 

# First, do full-clock setup/hold times. 

P 40 # previous rule-checks guarantee no overlap with fractional case. 

H= # But check anyway. 



D 
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foreach $Mod (&Get_Sys_Slave_List ($Sys)) 

45 ^ # All the modules we care about will have setup-times, 

next \inless $$Mod{Setup_Time} > 0 ; 

&Debug (0, "Generating setup/hold-logic for $$Mod{naitie} ) ; 

$$Mod{Hold_Time} !- /half/ or die " oi ;,t-ion" • 

50 Module $$Modlname} : internal hold-time consistency check violation , 

# Come up with an expression that says when to 

# assert the strobe (separate for read- and write-strobes) 

# 

55 # The strobe is actually asserted on the clock -after- the 

# $read/write_assert_expr goes true, because we have to 

# propogate through the custom-strobe register . 

W $master read_expr ="(-" .&Get_Sys_Signal ($$Sys {master} , "readn").")"; 
60 rtj $master"write_expr =- (-" .ScGet_Sys_Signal ($$Sys{master} , "writen . ) ; 

S @read_assert_terms = ($$Mod{intemal_active_signal} , 

$master„read__expr) ; 



my @write_assert„tenns = ( $$Mod{ internal_active_signal} 

er_write_expr) ; 

if ($$Mod{Setup_Time} == 1) 

^ # Because of the prop-delay (above) we have to order 

# our strobe on the first clock of the bus-cycle. Fortunately, 

# there's a signal just for that purpose: 
# 

push (@read_assert_te2rms, bus_cycle_start) ; 
push (@write„assert_terms, bus_cycle_start) ; 

} else C . ^ 4. 

# If we got to here, notice that Setup_Time is 2 or greater. 

# In this case, we have to use the output of the wait counter. 

# Recall that the wait-co\inter counts down, so this makes 

# the math a bit of a head-scratcher . 

# Justifying this numerical expression is a bit tricky 

# I used little text-tables to "simulate" some example 

# count sequences: 



Example: Tsu = 2 , Th = 0 , min„wait-states = 2 

wait-counter I expr true? 1 output write-strobe 



# 
# 
# 

# 

# — load-- 

# 1 



idle 

assert idle 



# 0 deassert ACTIVE 

# Example: Tsu = 2, Th = 0, min„wait- states = 5 

# wait-counter | expr true? | output write-strobe 

# + + - 

# --load — 
4 assert idle 



idle 



ACTIVE 
ACTIVE 
ACTIVE 



# 

# 3 

# 2 

# 1 

# 0 deassert ACTIVE 

# 
# 
# 
# 
# 



Example: Tsu = 2 , Th = 3 , min_wait-states = 5 

wait-counter I expr true? 1 output write-strobe 



— load— - i^l® 

4 assert idle 

# 3 deassert ACTIVE 
#2 - i^l^ 
#1 - i^^e 

# 0 - i<ile 

# 

my $read_assert_count = 

$$Mod {read_min_wait_states} - 1 - ( $$Mod{Setup_Time} - 2) ; 
my $write_assert„count = 

$$Mod{write_min„wait_states} - 1 - ( $$Mod{Setup_Time} - 2); 

push (@write_assert_terms, " {wait_counter == $write„assert_count ) " ) 
push {@read_assert_terms, " (wait_counter == $read_assert_count )") 

} 

&Debug (0, « \@read__assert_terms is:", @read_assert_terms) ; 
ScDebug (0, " \@write_assert_terms is:", @write_assert_terms) ; 

my $read_assert_expr = join (" && @read_assert_terms ); 
my $write_assert_expr = join (" @write„assert_terms) ; 



# Judging from the tables (above) , the expression for when to 

# deassert the strobe is pretty easy. We still have to 

# do a special -case when hold- time is zero, because testing for 

# (waitjounter == 0) is problematic-it ■ s zero at the beginning 

# of the cycle! 

I Also remember: As a matter of POLICY, we don't use any hold- 

# time for read-cycles. We may want to revisit this policy later. 

my $read_deassert_expr = ■■bus_cycle_end" ; 
my $write_deassert_expr = ••bus_cycle_end" ; 

$write_deassert_expr = ^ v 

" (wait_counter == $$Mod{hold_time_full_clocks} ) 
if {$$Mod{hold_time_full_clocks} > 0) ; 

# one of these days, we're actually going to have to build 

# the strobe-output registers. Recall that readn/writen strobes 

# are logic-negative (assert --> 0) . Provide an asynchronous 

# "set" so they power-up inactive. 

# FUTURE: Make these "firm flip-flops" if we determine that 

# these are off -chip. 
# 

my $readn_strobe = ScGet.Sys^Signal ($Mod, "readn"); 
ficDelay ("out = $readn_strobe, 

sync_reset = ($read_assert_expr) , 

sync_set = ( $read_deassert„expr) , 

set = reset, 

") if $readn_strobe; 

my $writen_strobe = &Get_Sys_Signal ($Mod, "writen" ) ; 
ScDelay ("out = $writen_strobe, 

sync_reset = ( $write__assert_expr) , 

sync_set = ( $write_deassert„expr ) , 

set = reset, 

") if $writen_strobe; 

} # End: foreach $Mod. . . 

################ T V,^1r=l ^im^ 

# NOW generate narrow write-strobes where a fractional hold-time 

# was requested. 
# 

my $has_fractional_hold_times =0; ^ ^ ^a^^ 

# logic-positive "name" for master strobe, to ease understanding. 

iy $master„write = " (-V &Get_Sys_Signal { $$Sys {master} , "writen") 

my $made„do_shorten__write_strobe = 0; 
foreach $Mod ( &Get__Sys_Slave_List ($Sys) ) 

^ next unless $$Mod{Hold_Time} /half/; ^ ^ r^^^^ma.^«\• 

ficDebug (0, "Generating narrow write-strobe for module $$Mod{name} ), 
$has__f rac t ional_hold_t imes++ ; 

$$Mod{Setup_Time} == 0 or die " . i • n.t-^^r.- 

Module $$Mod{name}: internal hold-time consistency check violation 

if ( ! $made_do_shorten__write_strobe) 

^ &PBM_Wire ("do_shorten_write_strobe") ; # forward-declared 
#here . 

$made_do_shorten_write_strobe = 1; 



' ) " ; 
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ScPBM^ssign (&Get_Sys_Signal ($Mod, "writen" ) , , 

"-($master_write && -do_shorten_write_strobe) ) ; 



} 



if ((Shas fractional_h.old_times) ) { , i »v 

ScEmit.Comment ( " A little dab of shortening for the write-pulse" ) ; 

ScDelay ("out = write_second_half , 
in = $master_write, 

10 edge = negedge, 

reset = reset, 
") ; 

&PBM_Assign ( " do_shorten„write_strobe " , 

"write_second_half && bus_cyc legend" ) ; 

15 } 



# Generate_PBM 
20 # 

# Given a %Sys-hash (reference), we do everything required to 

# generate a PBM, including opening the output-file, blorting 

# all logic into it, and subsecjuently closing the output file 

# again. 



sub Generate__PBM 
{ 

my ($Sys) = (@_) ; 



# Open the output file: 

Q # 

m &PBM Progress ("Creating PBM module: $$Sys {pbm_f ile} . " ) ; 

SJn" (^TERA_FILEHANDLE2, "> $ $Sys (pbm_f ile } " ) or die "can't open 
a 35 $$Sys{pbm_file} : $!"; 

= my $old_out = select (AIiTERA_FILEHANDIiE2 ) ; 

^ print "$GLOBAL_COPYRIGHT_NOTICE\n" ; 

^ &Emit„Module_Header ( $$Sys {pbm_name} ) ; 

a 40 

ScPBM„Emit_Simple_Assigninents ($Sys) ; 

&PBM_Emit_IRQ_Prioritizer ($Sys) ; 

ScPBM_Emit_Address_Decoder ($Sys) ; 

&PBM_Emit_Read_Data_Mux ($Sys) ; 

45 &PBM_Emit„Dynamic_Bus_Sizer ($Sys) ; 

&PBM_Emit_Wait_State_Generator ($Sys) ; 

&PBM_Emit_Setup__Hold__Logic ($Sys) ; 

&Vprint ( " \n endmodule / / $Sys {pbm__name} \n" ) ; 



50 



close (AIiTERA_FILEHANDLE2) ; 
select ($old_out) ; 



my $synth„list_ref = $$Sys {synth_f ile_list } ; 
55 push (@$synth„list_ref , $$Sys {pbm_f ile} ) ; 

} 

^^^^############################################################ 

# Generate_Core 
60 # 

# Given a %Sys-hash (reference), we do everything recjuired to ^ 

# generate a system-level "core" module, including opening the output-fxle, 

# blorting all logic into it, and subsequently closing the output file 



20 



# again. 

sub Generate_Core 
5 { 

my ($Sys) = (@_) ; 

# Open the output file: 

10 &PBM_Progress ("Creating Core module: $$Sys {core_f ile} . " ) ; 

open (ALTERA_FILiEHANDLE , "> $$Sys {core_f ile} " ) 

or die "can't open $$Sys {core_f ile} : $!"; 
my $old_out = select (ALTERA_FILEHANDLE ) ; 
print " $GLOBAL_COPYRIGHT_NOTXCE\n" ; 

&Emit_Module_Header ( $$Sys {core^name} ) ; 

&:Core_Emit_Wire_Declarations ($Sys) ; 
&Core_Emit_Instances ($Sys) ; 

&:Vprint ( " \n endmodule // $$Sys {core_name} \n" ) ; 

close {ALTERA_FIIiEHANDLE) ; 
select ($old_out) ; 

my $syntti__list_ref = $$Sys{synth„f ile_list } ; 
25 push (@$synth_list_ref , $$Sys {core_f ile} ) ; 

} 

#######################################***^*^******^ 

# Generate_Wrapper 
30 # 

H # Given a %Sys-hash (reference), we do everything required to 

O # generate a system wrapper -module, including opening the output-file, 

m # writing its contents, and subsequently closing the output file 

^ # again. 

35 # 

y # This function actually does a very simple thing: Create a 

# wrapper-module with a single black-box instance m it It looKs 

# scaS and complicated because it's tri-lingual, and the language 

# constructs to do this simple thing are more structurally different 
40 # than reason would dictate. 

sub Generate_Wrapper 
{ 

45 my ($Sys) = (@_) ; 

# Open the output file: 

&PBM_Progress ("Creating Wrapper module: $$Sys {wrapper_f ile} , " ) ; 
50 open (WRAPOUT, "> $$Sys {wrapper_f ile} " ) ^or die 

"can't open $$Sys {wrapper_f ile} : $!"; 
my $old_out = select (WRAPOUT) ; 
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my $core_instance_name = " the_$$Sys {core_name} " ; 
&:Emit_Top_Comment ( $$Sys {name} , $$Sys {hdl_language} ) ; 

# AHDL is fxinny, and requires that we do a semi-C-like "extern" 

# (FUNCTION) declaration of the thing we're about to instantiate: 
60 ^ 

&Declare_Ports_ForC$$Sys{core_naine}, 0, $$Sys {hdl_language} ) 
if $$Sys{hdl_language} =- /'^ahdl/i; 



&Emit„Module_Header ( $$Sys {name} , $$Sys {hdl„language} , 1) ; 

# Some languages require a little opening dance before the 

# instantiation: 

if ($$Sys{hdl_language} =- /^vhdl/i) C 
ficEmit_VHDL_Component ( $$Sys {core_name} ) ; 
ficVprint ( "BEGINXn" ) ; 

> elsif ($$Sys{hdl_language) =- /'"ahdl/i) ( 

ScVprint ("VARIABLENn") ; v„v„.m • 

ScVprint (" $core_instance„name : $$Sys{core_name} ; \n\n ), 

&Vprint ( " BEGINXn" ) ; 

} 

# The instantiation per-se: 

&Instantiate_And_Connect ( $$Sys {core_name} , 

$core__instance_name , " " , 0 , 
$$Sys{hdl_language} ) ; 

# And then, of course, everyone requires a little closing-dance: 
if {$$Sys{hdl_language} =- /vhdl/i) { 

ScVprint ("END behavior ; \n" ) ; 

} elsif ($$Sys{hdl_language} /^ahdl/i) { 
ScVprint ( " END ; \n " ) ; 

} elsif ($$Sys{hdl_language} /^verilog/i) { 

ScEmit.Comment ( " \n exemplar attribute $core_instance_name NOOPT TRUE 
ScVprint ("\n // synopsys translate_on \n" ) ; 
&Vprint ("\n endmodule // $$Sys {name} \n" ) ; 

} 

close (WRAPOUT) ; 
select ($old_out) ; 

} 

# Generate_Inc_File 

# If we're generating an AHDL wrapper, then it's customary to 

# also make an ".inc"-file. This is, I suppose, the AHDL-equxvalent 

# of a C-language header (".h") file. 
# 

# This function generates such a wrapper for the system if 

sub Generate_lnc_File 
{ 

my ($Sys) = (@_) ; 

if ($$Sys{hdl_language} 1- /"ahdl/i) { 

warn ("Suspicious call to Generate_Inc_File . 

(language is $$Sys {hdl_language} , not AHDL) " ) ; 

return; 

} 

$$Sys{inc_f ile}= " $$Sys {system__directory} /$$Sys {name} .inc"; 

ScPBM_Progress ("Creating AHDL include- file: $$Sys { inc_f ile} . " ) ; 
open (INCOUT, "> $ $Sys { inc_f ile} " ) or die 
"can't open $$Sys {inc_f ile} : $1"; 



my $old_out = select (INCOUT) ; 

&Einit_Top_Coniinent { $$Sys (name} , $$Sys {hdl_language} ) ; 
&Declare_Ports_For {$$Sys {name} , 0 , $$Sys{hdl_language} ) ; 

5 

close (INCOUT) ; 
select ($old_out); 

} 

10 ########## 

# Generate_Symbol 

# Given a ref to the %Sys-hash, this routine generates a Quartus 

# BSF-file (schematic symbol) suitable for representing %Sys in a 
15 # schematic. The actual work of symbol-layout and geometry done 

# by Aaron Ferrucci • s mighy "&Generate_BSF- function in the library 

# module "mk_bsf.pm". 

# We get to say how the ports are arranged by building a list of 

20 # port-descriptions. We hand this off to Aaron, and he gives us back 

# rString. wMch is the entire contents of a valid BSF-file (not yet 

# created). We then create the file, write Aaron's string into it, 

# and we ' re done . 

.^25 !#########################################*#******#************* 

^ #### 

^ # Segment-ordering 

O3O # The top-to-bottom order ttiat the symbol -segments is a little 

H # bit important, and there are many subtle issues, both sub^ectxve 

a # and practical, that come into play. One could write an entire 

m I program, I'm sure, just fiddling -around with the perfect ordering. 

# But it's pretty clear that whatever hash-ordering comes out of 
f=i 35 # "keys" is probably not what the user wanted. 

S # I'm going to sort thus: 

' # 

H= ^ Xf you're the master, you're first. 

TU # — Any module with "use„tri_state_bus" takes priority. 

Q 40 # — alphabetical by class -name 

# — alphabetical by module name. 

# we're sorting a list of %Mod-refs, so $a and $b are like "$Mod" 
# 

45 sub segment_sort 

return -1 if $$a{Is_Bus_Master} ; 
return 1 if $$b{Is_Bus_Master} ; 

50 # NO one was the master. The guy with the tri-state databus wins . 

return -1 if $$a{Uses Tri„State_Data_Bus} && i $$b{Uses_Tri_State_Data_Bus} 
retu^ 1 if .$$a;UseslTri_State_Data_Bus} $$b{Uses_Tri_State_Data_Bus} 

# It's a tie! Whoever has the alphabetically-first class-name wins: 
55 my $class_result = $$a{class} cmp $$b{class}; 

return $class_result if $class_result != 0; 

# It's still a tie! Whoever has the alphabetically-first module name wins: 
return $$a{name} cmp $$b{name} ; 

60 } 



sub Generate_Symbol 
{ 



my ($Sys) = (@_) ; 

&PBM_Progress ("Generating Symbol $$Sys{name} .bsf " ) ; 

# There will -always- be a group at the top with the unwavering 

# clk/reset ports on it. 

my @symbol_segments = ("elk j 1 | input, 

reset_n 1 1 1 input,"); 

# It sure would be nice if there were, say, a database of all the 

# widths and directions of every port on the system-module. 
# 

# HEY' It's our lucky dayl 

I someone already did " &I,ist_Ports_For " on the system-module. Get 

# handy hashes of directions and widths: 

my $width_hash = &Get_Port_Widths ( $$Sys {name} ) ; 

itv $dir_hash = &Get_Port_Directions ($$Sys{name} ) ; 

# Put all shared-port groups first: 

foreach $bus_name ($$Sys{tri_state_bus_list} ) I 

my @bus_ports = (); ^ -, ^ ,-=-wn«»\. 

my $shared_port_table = $$Sys{sharedj>ort_table} , 
foreach $shared_port_name (keys (%$shared_port_table) ) { 

my $w = $$width_hash{$shared_jport_name} ; 

my $d = $$dir_hash {$shared_port_name} ; 

push (@bus_ports, " $shared_port_name j $w 1 $d ) ; 

# A null string here should not happen, but don't risk it: 

} 

# NOW go through the system, module -by-module, and make 

# a segment for each one's external (non-shared) ports 

; Note that we even include the master. Nioses don't have any 

# external ports, but who knows what the future may bring? 

foreach $Mod (sort segment_sort &Get_Sys_Module„List ( $Sys ) ) { 
my @mod_ports = ( ) ; 

foreach $Port (&Get_Module_Port_List ( $Mod) ) { 
next if $$Port{is_shared} ; 

next unless $$Port {is_external} ; 

my $pin_name = $$Port {system_signal} ; 
my $w = $$width_hash{$pin_name} ; 

iny $d = $$dir_hash {$pin_name}; 

push (@mod_jports, " $pin_name [ $w | $d" ) ; 

I Avoid asking for a "segment" for modules that don't have any ports: 
mv Sseoment description = join (",\n", @modj»orts) ; 

pLh "Sol!segm;nts, $segment_de script ion) if $segment_description 

} 

# Mr. Ferrucci, if you please... 

iy $bsf_contents = &Generate_BSF ( $$Sys {name} , @symbol_segments) ; 

# Do the usual file-opening mechanics: 

my $bsf_filename = " $$Sys{system_directory} /$$Sys{name} .bsf " ; 



open (BSFOUT, "> $bsf_f ilename" ) or die 

"Generate_Syinbol: Couldn't open $bsf_f ilename for output. $!"; 
print BSFOUT $bsf _contents ; 
close BSFOUT; 

} 

################################################################ 

# Sys_Gen_Housekeeping 
# 

# Well, this is a fine how-do-you-do, isn't it? 

# ^ ^ 

# There are a handful of annoying little things we need to do 

# to prepare for the great, glorious business of system-generation. 
# 

# Perhaps most importantly, we use a lot of the handy-dandy 

# logic-generation routines from " gener a tor_f unctions .vpp" (e.g. &M\ix) . 

# That's swell, but this here file (that you're reading) is a 

# Perl -module- which gets "use"d. That's pretty civilized, and 

# there are several good reasons for doing it that way: 

rfj: 

# * Perl line-numbers and error-reporting actually work. 

# * We don't have to "eval" this file TWICE through Vpp ' s 

# two-pass process. 

# But, since this logic-generation program doesn't get Vpp'd, 

# how can we be sure that gener a tor_f unctions .vpp" ever got loaded? 

# Well, we can be sure by -loading it ourselves-. We do so 

# by calling &Vpp on our own behalf--not to generate logic, but 

# just to load a library of handy Perl functions. Truth 

# is stranger than fiction. 

# And that's not all. All of the generator- functions have an 

# oddball output-behavior: They don't actually print anything into 

# the output file unless a special vpp-variable says it's "safe". 

# That variable is '»$vpp^ass", which must be '2' for any of the 

# generator-functions to print. So, sneakily, we set this 

# global variable here, after we've read- in the library using 

# &Vpp. Because this is sneaky, it's also implementation-dependent 

# and error-prone. This will break some day when somebody 

# changes the way Vpp works inside, I guarantee it. Global variables 

# truly are evil. 
# 

# FUTURE WORK: 

# I respectfully suggest that the approach used by " genera tor__funct ions 

# could use a good overhaul. Phrasing all that stuff as a real Perl 

# module would have several advantages --not the least of which would 

# be eliminating the need for this kludge you see here. 

sub Sys_Gen_Housekeeping 
{ 

my ($Sys) = (@_) ; 

my @Synth__File_List = (); 

$$Sys{synth_f ile„list} = \@Synth_File_List ; 

$PBM_VERBOSE = $$Sys.{verbose} ; # More evil globals. 

# run Vpp, but just to "import" the generator-functions library: 
&Vpp ("-Q", 

n_D" , $$Sys{system_directory} , 
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1=1 
ffl 



"-H" , "$$Sys{sopc_directory}/bin/vpp/generator„f unctions -vpp" 
) ; 

# Aren ' t I sneaky? 

# I! BANG 11 ... Ouchl My foot! 

$vpp_pass =2; # this lets all the vpp-libraries actually print. 



} 



10 ######################################*#**#**#****************** 

# Generate_PBM_And_Systeni 

# Given a reference to the system-level PTF section (and 

# an %arg-hash that we inherit from mk_systembus) . this 
15 # function does everything necessary to: 

f 

* Create an HDL implementation of the system PBM 

# * create an HDL implementation of the system-level "core" module. 

# * Create an HDL wrapper. 

# This task involves rummaging-through the PTF data, opening all the 

# appropriately-named files in the appropriate places, wrxtmg all the 

# HDL-code into them, and tying a bow around the whole mess. 

# Once you've done this, the only thing left for you to do is 

# synthesize it and include it in your design. 

K # This function returns {by reference) the constructed database 

^ # known as "%Sys." This way, our caller can snoop on all the 

3 30 # excellent work we've done on his behalf. 

J^#^f############################################################ 
sub Generate_PBM_And_System 



L 35 ^ my ($arg, $db_Sys) = (@_) ; 

^ my %Sys; undef %Sys; ^ 

M' %Sys = %$arg; # Start off by knowing everything that 

fy # ink_syst embus knows . 

3 40 
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&Sys_Gen_Housekeeping (\%Sys); 

&Get„System_Data_From_PTF (\%Sys, $db_Sys) ; 

&Check_Avalon_Rules (\%Sys) ; 

45 &Create_System_Port„L.ists (\%Sys) ; 

&Generate_PBM ( \%Sys ) ; 

&Generate_Core (\%Sys); 

&Generate_Wrapper (\%Sys); /-=,>,Hi/i. 

50 &Generate_Inc_File (\%Sys) if $Sys {hdl_language} I ahdl/i, 

&Generate_Symbol (\%Sys); 
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return (\%Sys) ; ttcaller may want to know new info too; 

} 

1; # Perl modules have to say "1". 
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ptf_^arse.pm 

#use strict; # dont check in with enabled 



# 

# Each Section consists of a 

# Type, a Name (which can be 

# be blank) , and an unordered 
10 # list of Elements. 

# 

# Each Element can be either 

# a Name and a Value, or another 

# Section. 
15 # 

# An Element list is an assocxatxve 

# array where the key is the name of 

# a value, or the name of a module kind. 

20 # For a value, the value at that key is just the value. 
# 

# FOr a module kind, the value is another associative 

# array whose keys are the module names, and whose 

# contents are each element lists. 

^25 # 

# PTFHash -> 

i I iame => name of assignment, or kind of section if section, or name of 

S30 V'^^ ''data^=> value of assignment, or name of section if section 
C # kind => "section" or "file" (or nothing means "assignment ) 

# section => PTFHash if section 

# } 
# 

35 
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# 

# arrayRef ptf_ReadSectionElements ( string) 

ru # 

p 40 # returns a reference to 
1^ # an array of elements . 

sub ptf_ReadSectionElements 
{ 

45 my $data = shift; 

my @elementLiist ; 



while ($data) 
{ 



50 



55 



60 



# Find the next thing, which is either 

# a name="value"; pair, or a SECTION name {} block. 
# 

if($data 

# beginning of string 

(['^;\{1*) # the element, up to the next ; or { 

# terminating semi 

\,*) # and the whole rest of the string. 

$/sx) 

{ 
# 



# It's a value, since it ends with a semicolon 
# 



my $elementliine ; 
my $ element Name ; 
my $elementData; 

$data = $2; 
$elementliine = $1; 

if ($elementLine =~ /-\sM .*?) \s*\=\s*\ "(.*?) \" /s) 
{ 

my %newElement; 



$elementName = $1; 
$elementData = $2; 



$newElement{name} = $elementName ; 
$newElement{data} = $elementData; 
push(@elementList, \%newElement ) ; 
} 



} 

elsif {$data =- 

# beginning of string 
(['';\{]*) # the element, up to the next ; or { 
\( # section beginning 

(.*) # and the whole rest of the string. 

$/sx) 

{ 
# 

# It's a section, since it ends with a left-curly 
# 

my $sectionKind; 
my $sectionName; 
my $sectionKindName; 
my $sectionContents; 

$data = $2; 

$sectionKindName = $1; 

if ($sectionKindName /'^Xs* { . *?) \s*$/s) 
{ 

$sectionKind = $1; 
$sectionName = " " ; 

# 

# See if the section has a name or no. . . 
# 

if ($sectionKind /-\s* ( \S*? ) \s+ ( \S*? ) \s*$/ ) 
{ 

$sectionKind = $1; 
$sectionName = $2; 
} 

$sectionKindName = $sectionKind . " " . $sectionName; 
# 

# Find matching curlybrace ending 
# 

{ 



my $braceDepth = 1; 

my $datalien = length { $data) ; 

my $i; 

my $ch; 

my %newElement; 
$i = 0; 

while ($i < $dataLen and $braceDepth > 0) 
{ 

$ch = substr($data,$i,l) ; 
$braceDepth++ if($ch eq "{"); 
$braceDepth-- if($ch eq "}"); 

} 

# Bust in half, neither half gets the last 
$sectionContents = substr ( $data, 0 , $i-l) ; 
$data = substr {$data, $i) ; 



# 

# Recursively descend, and get the tree 

# for this section, and add it to the list. 
# 

$newElement{name} = $sectionKind; 
$newElement{data} = $sectionName; 
$newElement {section} 
ptf_ReadSectionElements ( $sectionContents ) ; 

push{@elementList , \%newElement) ; 
} 

} 

} 

else 

{ 

$data = 
} 

} 

# 

# Return reference to this whole tree. 
# 

return \@elementList ; 
} 

# 

# ptf new_ptf__f rom_f ile 
# 

# returns a ptf hashref 

sub new_ptf_f rom_f ile 
{ 

my $fileName = shift; 
my $f ileContents; 
my %ptfHash; 

$f ileContents = readFile ( $f ileName) ; 
return if { $f ileContents eq ""); 



# strip comments completely 

$f ileContents =- s/ \s*# . * ?\n/ \n/sg; 



# Populate top level of the ptf-ref 
# 

5 

$ptfHash{naiae} = $fileNaine; 

$ptfHasli{kind} = "file"; ^ ^ v 

$ptfHash{ section) = ptf_ReadSectionElements ( $f ileContents) ; 

10 return \%ptfHash; 

) 

# 

# ptf new_ptf„f ile(f ileName) 

15 # 

# returns a ptf hashref 

sub new_ptf_file 
{ 

my $fileName = shift; 
my %ptfHash; 

$ptf Hash {name} = $fileName; 
$ptf Hash {kind} = "file"; 

return \%ptfHash; 
} 

# 

# ptf new_ptf (name, data) 
# 

# returns a ptf hashref with the 

# new assignment ptf. (It becomes 

# a "section" if you add any children 

# to it.) 

sub new_ptf 
{ 

my %ptfHash; 
my $name = shift; 
my $data = shift; 

$ptf Hash {name} = $name; 
$ptfHash{data} = $data; 
return \%ptfHash; 
} 

# 

# get__child_count 

50 # 

sub get_child_count 
{ 

my $ptfRef = shift; 

55 my $childCount = 0; 

my $sectionRef = $$ptfRef { section} ; 

$childCount = $#$sectionRef + 1; 
return $childCount; 

60 } 

sub get_data 
{ 



my $ptfRef = shift; 

return $$ptf Ref {data} ; 
} 

5 

sub get_naine 
( 

my $ptfRef = shift; 

10 return $$ptf Ref {name} ; 

} 

sub set_data 
{ 

15 my $ptfRef = shift; 

my $new_data = shift; 

$$ptf Ref {data} = $n€W_data; 
return; 
20 } 

sub set_name 
{ 

my $ptfRef = shift; 
my $new_name = shift; 

$$ptf Ref {name} = $new_name; 
return; 
} 

# 

# get_child 
# 

sub get_child 
{ 

my $ptfRef = shift; 
my $ index = shift; 
my $key; 
my $sectionRef; 

$sectionRef = $$ptfRef {section} ; 

return $$sectionRef [$ index] ; 
} 



# get_child_by_name(ptfRef , childName, [returnlndexToo] ) 
# 

50 # childName = "*": return first child 

# childName = "fish": return child named "fish" 

# ChildName = "fish blue": return child section type "fish" 
# 

55 sub get_child_by_name 
{ 

my $ptfRef - shift; 

my $name = shift; 

my $retumXndexToo = shift; 

60 

my $sectionRef; 
my $childRef; 
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my $naineFront; 
my $naineBack ; 
my $i; 

5 { $naineFront: , $nameBack) = split(/ /,$name,2); 

if { $$ptf Ref { section} ) 
{ 

$sectionRef = $$ptf Ref {section} ; 
10 } 
else 

{ 

return " " ; 
} 

15 

for($i = 0; $i <= $#$sectionRef ; $i++) 
{ 

$childRef = $$sectionRef [$i] ; 

20 # easy case 

last if {$name eq "*"); 

# harder case for named section 
last if ($nameFront eq $$childRef {name} 
25 and ($nameBack eq or $nameBack eq 

$$childRef {data}) ) ; 

£ $childRef = 

m } 

ffl 30 return ( $childRef , $i) if $returnIndexToo ; 

S return $childRef; 

H } 

r 5 

35 # 
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# sub get_child_by_path(ptfRef, path [, buildlf Absent [ , returnParentToo] ) 
# 

# path is slash-separated of names as above 
# 

40 sub get_child__by_path 
{ 

my $ptfRef = shift; 
my $path = shift; 
my $buildlf Absent = shift; 
45 my $ returnParentToo = shift; # if true, return 2 element list 

my $pathFront; 
my $pathBack; 
my $childRef; 
50 my $parentRef; 

my $ index ; 



# In case path is null, or nearly so 
$childRef = $ptfRef; 



while ($path ne and $path ne "/") # paths dont really have a leading 
slash. . . but . 

{ 

{$pathFront, $pathBack) = split { /\// , $path, 2 ) ; 
60 (SchildRef , $index) = get_child_by_name ( $ptf Ref , $pathFront , 1) ; 

if($childRef eq and $buildlf Absent ) 
{ 

my %child; 



my $sectionRef; 

# Build new child, then take its reference 

^ my ($childName,$childData) = split(/ / , $pathFront , 2 ) ; 

$child{name} = $childName; 
$child{data} = $childData; 
10 $childRef = \%child; 

} 

if (not $$ptfRef {section}) 
{ 

15 $$ptfRef {section} = []; 

} 

$sectionRef = $$ptfRef {section} ; 
push(@$sectionRef , $childRef ) ; 

} 

20 return if($childRef eq ""); 

$path = $pathBaclc; 
$parentRef = $ptfRef; 
$ptfRef = $childRef; 

25 } 
□ return { $parentRef , $childRef ,$ index) if $returnParentToo ; 

return $childRef; 

S } 

S 30 # 

# sub get_first_children_of_type{ptfRef , type) 

^ # 

S # returns an array of all ptf Ref • s first children 

yl # that have type ($type) ; 

, 35 

Q sub get__f irst_children_of„type 

Ol ^ 

my ($db_parent , $type) = 

my $n\Hn„children = &get_child_co\int ($db_parent) ; 



ly 40 



my @child_array; 



for ($child_index = 0; 

$child_index < $num_children; 
45 $ chi ld_index++ ) 

my $db_child = £cget_child ($db_parent , $child_index) ; 
next if &get_name ($db_child) ne "$type"; 
push (@child_array, $db_child) ; 

50 } 

return (@child_array) ; 

} 

# 

55 # sub delete_child(ptfRef , path) 
# 

# path is slash-separated of names as above 
sub delete_child 
{ 

60 my $ptfRef = shift; 

my $path = shift; 
my $childRef; 
my $parentRef ; 
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my $ index; 

my $sectionArrayRef ; 

($parentRef,$chilcaRef,$ index) = get_child_by_path( $ptf Ref , $path, 0 , 1) ; # 
extra flag to return parent, too 

$sectionArrayRef = $$parentRef {section} if $parentRef ne 
splice (@$sectionArrayRef , $ index, 1) ; 



return 
} 



II II . 





15 # sub get_data_by_path(ptfRef , path) 
# 

# path is slash-separated of names as above 
# 

sub get_data_by_:path 

20 { 

my $ptfRef = shift; 
my $path = shift; 
my $childRef; 
my $result = " " ; 



25 

Q $childRef = get_child_by_^ath ( $ptfRef , $path) ; 

lO $result = $$childRef {data} if $childRef; 

return $result; 
q30 } 

§ 

y # sub add_child_data(ptfRef , path, data) 

# 

« 35 sub add_child_data 
{ 

my $ptfRef = shift; 
my $path = shift; 
my $data = shift; 
40 my $childRef; 



ru 



$childRef = get„child_by_path{$ptfRef,$path,l) ; # build if absent 
$$childRef {data} = $data; 



45 return; 
} 



# 



# sub add__child{ptfRef , path, childPTFRef) 

50 # 

sub add_child 

{ 

my $ptfRef = shift; 
my $path = shift; 
55 my $ childPTFRef = shift; 

my $childRef; # reference down in the path 

my $sectionRef; 

60 $childRef = get„child_by_path($ptfRef ,$path,l) ; # build if absent 

$$childRef {section} = [1 if (not $SchildRef {section} ) ; 
$sectionRef = $$childRef {section} ; 



push(@$sectionRef , $childPTFRef ) ; 



return; 
} 



# 

# toString (pt f Ref [ , indentLevel ] ) 

# (helper routine: sectionToString (ptf Ref , indentLevel) 
10 # 

sub toString 
{ 

my $ptfRef = shift; 
15 my $indentLevel = shift; 

my $result = " " ; 

if ($$ptfRef {kind} eq "file" 
20 and $ indentLevel eq 

{ 

$result .= "#\n"; 

$result .= "# file: " . $$ptf Ref {name} . \n ; 
$result .= "# date: " . dateTime () . "\n"; 
_^25 $result .= "# generated by a perl script\n" ; 

B $result .= "#\n"; ..... 

m $result childrenToString($ptfRef ,$3.ndentLevel) ; 

m } 

m elsif ( $$ptf Ref {section} ) 

0 30 i 

l^tlll"^^^^^ indentSprint($indentLevel,$$ptfRef{name} 

' ,$$ptf Ref {data}) ; 

$result .= indentSprint ($indentlievel, " { ); 

$result .= childrenToString($ptfRef , $indentlievel) ; 

$result . = indent Sprint ($ indentLevel ,"}"); 
} 

M elsif ($$ptf Ref {name} ne " " ) 

1 indentSprint($indentLevel,$$ptfRef{name}," 

\" $$ptf Ref {data} , "\" ;") ; 
} 

return $result; 
45 } 

sub childrenToString 
{ 

ray $ptfRef = shift; 
50 my $indentLevel = shift; 

my $result = " " ; 

my $childCount; 
my $i; 

55 my $childRef; 

$childCount = get_child_count ( $ptf Ref ) ; 
for($i = 0; $i < $childCount; $i++) 
{ 

60 $childRef = get_child($ptfRef , $i) ; 

$result .= toString ($childRef,$ indentLevel ) ; 

} 

return $result; 
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} 

s\ib indentSprint 
{ 

my $indentLevel = shift; 

my $a; 

my $result; 

$result = " " X $indentLevel; 

for($a =0; $a < 15; $a++) 
{ 

$result .= shift; 
} 

$result .= "\n"; 
return $result; 
} 



sub ptf^indent 
{ 

_ 25 my $a = shift; 

my $result; 

a $result = sprintf (" [%02d] " ,$a) ; 

m $result .= " ' " X $a; 

return $result; 
} 

# - — 

# write_:ptf_f iIe(ptfRef [ ,fileNaine) 

I write the ptf to a file, optionally to a new filename 

# Return "ok" if success, if fail. 
# 

sub write_ptf_f ile 
( 

my $ptfRef = shift; 
my $fileName = shift; 
my $ptf String; 
my $result; 

$fileName = get__name ( $ptf Ref ) if !$fileName; 

$ptf String = toString ( $ptf Ref ) ; 
$result = writeFile($f ileName, $ptf String) ; 

return $result; 
} 
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# 

55 # ptf_PrintRef (a reference) 
# 

# Print an indented view of the reference 

# This is only useful as a debugging aia 
60 # 

sub ptf_PrintRef 



my $theRef = shift; 
my $ indent = shift; 

my $refType = ref $theRef; 

if ( ! $refType) 
{ 

print $theRef , " \n" ; 

return; 

} 

if($refType eq "HASH") 
{ 

my $key; 
my $value ; 

print " (HASH) \n" ; 
$ indent ++; 

foreach $key { sort (keys (%$theRef) ) ) 

print ptf_indent ($ indent ) ,$key, " = 
$value = $$theRef {$key} ; 
ptf_PrintRef ( $value , $ indent) ; 
} 

return; 
} 

if($refType eq "ARRAY") 

my $arraySize = scalar @$theRef; 

my $i; 

my $value; 

print " (ARRAY) \n" ; 
$ indent ++; 

for($i = 0; $i < $arraySize; $i++) 
{ 

$value = $$theRef [$i] ; 
if (defined ($ value) ) 

print ptf_indent ($ indent) , " [$i] : " ; 

ptf_PrintRef ($value, $ indent) ; 

} 

} 

} 

} 



# 

# dateTimeO 
# 

# returns a relatively nice date & time string 
# 

sub dateTime 

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, 

localtime (time) ; 
$mon++ ; 

$year += 1900; 




my $d = sprintf ("%04d.%02d.%02d",$year,$mon,$mday) ; 
my $t = sprintf ("%02d:%02d:%02d",$hour,$min,$sec) ; 

return "$d $t"; 
5 ) 

# 

# readFile ( f ileName) 
# 

10 # returns the complete file contents 
# 

sub readFile 
{ 

my $f ileName = shift; 
15 my $bunch; 

my $result; 
my $did; 

if (open (FILE, $f ileName) ) 

20 { 

binmode FILE; .# Bite me, Windows 1 --dvb 

whi le ( read ( FILE , $bunch ,32000)) 

{ 

$result .= $bunch; 
_ 25 } 

LJ close FILE; 

^ return $result; 

Q 30 } 

1=1 II 

# writeFile (filename, contents) 

L 35 # 

U # creates new file and writes entire 

g1 # file contents. Return "ok" if so, 

1=^ # or if not. 

nj # ■ 

r^-h 40 sub writeFile 

r"" my $f ileName = shift; 

my $contents = shift; 
my $did; 
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# 

# Delete existing file, if any. 
# 

unlink ($fileName) if(-e $ f ileName) ; 



$did = open (FILE, ">$f ileName" ) ; 
if ($did) 
{ 

binmode FILE; # Bite me, Windows! --dvb 

55 print FILE $contents; 

close FILE; 
return "ok" ; 
} 

60 return " " ; 

} 



# 



# copyFile(sourceFile,destFile) 
# 

sub copyFile 
{ 

5 my $sourceFile = shift; 

my $destFile = shift; 
my $f ileContents; 
my $ result; 

10 $f ileContents = readFile ( $sourceFile) ; 

return if ! $f ileContents ; 

$result = writeFile ($destFile,$f ileContents) ; 

15 return $result; 

} 



# 

# copyDirContents {sourceDir,destDir) 

20 # 

# If there's any files in sourceDir, 

# then ensure that destDir exists, and 

# copy the files over, but don't bother 

# with ones which are already there. 
p25 # 

^ sub copyDirContents 

m my $sourceDir = shift; 

□ 30 rny $destDir = shift; 

Q my @sourceDir; 

ffj my ©destDir; 

my $file; 

U 35 

^ opendir (DIR, $sourceDir) or return; 

ff^ @sourceDir = readdir(DIR) ; 

M= closedir (DIR) ; 



40 opendir (DIR, $destDir) or return; 

©destDir = readdir (DIR) ; 
closedir (DIR) ; 

foreach $file (@sourceDir) 

45 { 

# 

# Skip files starting with . or underscore 
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if( (!($file =" /"[\.«]/)) ScSc ($file ne "vssver . sec" ) ) 

# (allow overwriting) if( (scalar grep (/-${ file} $/, ©destDir) 



) == 0 ) 



{ 

55 mkdir ($destDir,511) ; 



copyFile ( " $ {sourceDir } / $ {file} " , " $ {destDir} / $ {file} " ) ; 
} 



60 



} 

return "ok" ; 
} 



10 



20 



t 

# killDirectory 
sub killDirectory 
{ 

return; 

my $dir = shift ; 
my ©dirContents ; 
my $file; 
my $fullFile; 

return if H (-e $dir) ) ; 



opendir (DIR,$dir) or retum; 
X5 ©dirContents = readdir (DIR) ; 

closedir (DIR) ; 



I s 



foreach $file (@dirContents) 

iext if($file eq or $file eq ".."); 

$fullFile = "$dir/$file" ; 



if ( -d $fullFile) 
{ 

^ 25 killDirectory ($fullFile) ; 

else 

{ 

m unlink ($fullFile) ; 

O 30 > 

} 

rmdir ($dir) ; 
} 



35 # 

# All routines go above this line. 



return 1; # modules just do this 

ru 

a 40 # End Of File 
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901 San Antonio Road 
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Q 40 



use ptf_parse; 

# PTF„Translate_01d__Version 

J sometimes we will find ourselves in the unfortunate position 

# of reading a PTF-file generated by an older version of the 

I kit tSJ Junction is a pre-filter which is called before anything 

# else happens to the PTF-file. 
# 

# This script has these jobs: 

# 1) update all the signal-type names to their new version. 



# 
# 
# 
# 
# 
# 
# 
# 
# 
# 

########## 

my %avalon_role_translation; 
$avalon_role_translation {reset_n} 
$avalon_role_translation (read_data} 
$avalon„role_translation {write_data} 
$avalon_role_translation {r_wn} 
$avalon_role_translation {w_rn} 
$avalon_role__translation {be_n} 
$avalon_role_translation {chip_select} 
$avalon_role__translation {wait„request } 
$avalon_role_translation {bus„wait} 

$avalon_role_translation { regis tered_chip_select_n} 
$avalon__role_translation {irq} 
$ aval on_r o 1 e_t r ans la t i on { addr e s s } 



2) Make sure every module has the following required assignments 
in its SYSTEM_BUILDER_INFO section: 

- Data_Width 

- Address__Width 

3) Make sure every module has a correct "class" assignment at its 
top-level . 

^##################################################### 

"resetn" ; 
"readdata" ; 
"writedata" ; 
"writen" ; 
" readn " ; 
"byteenablen" ; 
"chipselect" ; 
"waitrequest" ; 
"waitrequest" ; 
" registeredselectn" 
"irq" ; 
"address" ; 



45 



50 



55 



60 



my %master_type_translation; 
$master_type_translation {elk} 
$master_type__translation {reset_n} 
$master_type_translation {bus_wait} 
$master„type_translation {mem_is_32„bits} 
$master_type__translation {if etch) 
$ma s t er_type_t r ans 1 at i on { da t a„t o_cpu } 
$master_type_translation {data_f rom_cpu} 
$master_type_translation {mem_addr} 
$ ma s t e r _ t yp e„translation { mem_wr _n } 
$master_type_translation {mem_rd_n} 
$master_type_translation {mem_be_n} 
$master_type„translation {irq} 
$master__type_translation { irq_number } 



my %class_translation_f rom_l__0 ; 
$class_translation_f rom„l_0 {nios} 
$c las s_t rans lat ion„f rom_l__0 
$ c las s_t r ans la t ion_f rom_l_0 
$ c las s_t rans 1 a t ion_f r om„l_0 
$class_translation_f rom„l_0 
$ c las s_t rans lat ion_f r om__l_.0 



{uart } 
{pio} 
{timer} 
{onchip_rom} 
{ onchip„ram} 



"master_„input_clk" ; 
"master_input_resetn" ; 
"master_input_jwaitrequest" ; 
"master_input_memis32bits " ; 
"master_output_if etch" ; 
"master_input_readdata" ; 
"master_output_writedata" ; 
"master_output_address " ; 
"master_output_writen" ; 
"master__output_readn" ; 
"master_output_byteenablen" 
"master_input_irq" ; 
"master_input_irqnumber" ; 



" jnioswizard" ; 
" juartwizard" ; 
" jpiowizard" ; 
" j timerwizard" 
" jramwizard" ; 
" jramwizard" ; 



10 



15 



my %class_translation_f rom. 
jnioswizard 
juartwizard 
jpiowizard 
j timerwizard 
jramwizard 
j i2cwizard 
j spiwizard 
jusersocketwizard 
j 2xidt 7 IvO 1 6 sawizard 
j am2 9 1 v8 0 Ob_sma llwizard 
jam291v800bwizard 
j idt 7 IvO 1 6_smal Iwizard 

) ; 



_jw = ( 

=> " altera_nios " , 

=> " al tera_avalon„uar t " , 

-> " al tera_avalon_^io " , 

=> "altera_avalon„timer" , 

=> "altera__avalon_onchip„memory" , 

-> "altera_avalon_i2c" , 

-> "altera_avalon_spi" , 

=> "altera_avalon_user_def ined_interface" , 

=> "altera_nios_dev_board_srcLm32 " , 

=> "altera_nios_dev_board_f lash_small" , 

-> "altera_nios_dev„board_f lash" , 

=> "altera_nios_dev_board_srciml6" , 



my $PTF_CHANGES = 0; 



20 sub PTF_Translate_From_Versioii_l_0 

^ my ($ptf_f ilename, $db_PTF_File) = (@_) ; 

my $db_Sys = &PTF_Get„Required_Child_By_Patl:i ( $db_PTF_File, "SYSTEM"); 

m\r Sdb Svs WSA = &PTF Get_Required_.Child_By__Path ($db_Sys, 

my 5CUD_bys_wjDA oc _ _ m "WIZARD^SCRIPT^ARGUMENTS" ) ; 

2 &Rename_Old_edf _File { $ptf_f ilename) ; 

LJ^o printf STDERR " ****PTF_Translate_01d_Version : 

Updating old-format PTF-file: $ptf_f ilename \n" ; 

$PTF__CHANGES += &PTF_Update_Boolean_Values ($db_Sys); 



La 



O 35 # Get some old-tyme global parameters which we now want to poke 

m # into the CPU: ^ t^„x 

r; my $reset_module = &get__data_by^ath ($db_Sys_WSA, "reset_module ; 

my $reset offset = &get_data_by^ath ( $db_Sys_WSA, "reset.offset ) ; 

\^ my $vecbase_module = &get_data_by^ath($db_Sys„WSA, "vecbase.module 

O 40 my $vecbase offset = &get_data_by_path ( $db_Sys_WSA, " vecbase.of f set 

my $mainmemImodule = &get_data_byjath($db_Sys_WSA, "mainmem_module ) 

&:add_child_data ( $db_Sys_WSA, "dtatmem_module" , $mainmem_module) ; 

45 my $num_modules = &get_child_count ($db_Sys); ^ ^ 

for (my $module_index = 0; $module_index < $num_modules ; $module_index-h+) 

^ my $db_Module = &get_child ($db_Sys, $module_index) ; 

next if &get_name ($db_Module) ne "MODULE"; # ignore non-modules. 

50 

################ 

# Blast HDIi_INFO file-list assignments. 

# Any files that we need will be created by the new class's 

# generator_jprogram . 
55 # 

my $db„HDLI = Scget_child_by^ath($db_Module, "HDL_INFO") ; 
Scadd_child__data { $db_HDLI , " Simulation_HDL_Files " , " " ) ; 
&add_child_data ( $db_HDLI , " Synthesis_HDL_Files " , " " ) ; 

60 my $old module_type = &get_data_by_path ($db_Module, 

" HDL_INFO/Module_Type " ) ; 



my $is_master = $old_module_type eq "nios"; 



my $db_Types 
my $db„Widths 
my $db_WSA 
my $db_SBI 



&Qet child_by_path ( $db_Module , " PORT_WIRING/TYPE" ) ; 
ficae t"child by_patli ( $db_Module , " PORT_WIRING /WIDTH " ) ; 
&get"child_by_path($db_Module, "WIZARD_SCRIPT„ARGUMENTS» ) 
&get"child_by_path($db_Module, " SYSTEM„BUILDER_INFO" ) ; 



my $address„widtli 
my $data_width 
my $has__reg_sel 
my $has_irq 
my $has_tri„state 



" --unknown- - " 
"--unknown--' 
0; 
0 
0 



################ 

# Poke-in some Nios CPU-specific parameters, 
if ($is_raaster) { 

($db_WSA, 
($db„WSA, 
($db_WSA, 
($db_WSA, 



&add_child_data 
&add_cl:iild_data 
&add_chi ld_data 
&:add_chi ld_da t a 



"reset„module" , 
" ve cba s e_modu 1 e 
" reset_of f set" , 
"vecbase_of f set' 



if this is the CPU: 

$reset_module) ; 
, $vecbase_module) ; 

$reset„of f set) ; 
, $vecbase_of f set) ; 



} 



################ . ^ 

# Translate all the old avalon-roles into new avalon-roles . 

my $num^orts - &get.child„count ($db_Types) ; A^r^^^^^^ 
for (my $port_index = 0; $port_index < $num^orts ; $port_index+-H) 



{ 



my $db„Assignment = &get_child ( $db_Types , $port_index) ; 
my $port_name = &get_name {$db_Assignment) ; 

my $type = &get_data_byj)ath ($db_Types, $port_name ; 

my $width = 5cget_data_byj>ath ($db_Widths, $port_name) ; 

my $new_type = $type; 



if 



($old_module„type eq "nios" && 
($new_type =- /( input | output ) / )) 

^ # The old nios module had a very strange port-wiring section, 

# where no special types were given for the master's signals. 

# we have to use a special table to give the master some 

# port-types, based on the (known) port-names on the Nios: 
# 

$new_type = $master_type_translation { $port_name } ; 

} 

foreach $old_role (keys (%avalon_role_translation) ) 

^ my $new_role = $avalon_role_translation{$old_role} ; 
$new_type =- s/$old_role$/$new_role/ ; 

$data_width = $width if $new_type =- /data$/; 
$address_width = $width if $new_type /_address$/; 
$has_irq =1 if $new_type /„irq$/ ; 

$has_reg_sel =1 if $new_type =- /„registeredselectn$/ ; 

$has„tri_state =1 if $new_type /_data$/; 

$new_type s/_shared_of f_chip__/_shared_/ ; 



if ($new„type ne $type) 

^ print STDERR "$port_name: obsolete port type $type found. \n"; 
print STDERR " automatically replaced by new type $new_type . 
$PTF_CHANGES++ ; 



S:add_child_data {$db_Types, $port_naine, $new_type) ; 

} 

} 

################ 

# upgrade to new PORT-section style. 
&PTF_Update_Port_Wiring_Section ( $db_Module) ; 

################ . ^ ^ f^.^o new "Class" 

# use "HDL_INFO/Module_Type- assignment to figure-out new class . 

I we use the "Module_Type" assignment. Note that the old 

# "usersocket" megawizard allowed the user to type -anything- 

# into this field-so any Module_Type we don't recognize must 

# be a user-socket. 

my $class = &get„data_by^atti ($db_Module, "class"); 
if (l$class) 

^ $class = $class_translation_from_l_0{$old_module_type}; 
#JWIZ NAME CHANGE 

$class = " jusersocketwizard" if !$class; 
jOAdd child data ($db Module, "class", $class) ; 

pjSt STOERR " Added "class' assignment $class to obsolete MODUI.E\n 



$PTF_CHANGES++ ; 



} 



################ 

# Add absolutely-required sections to PTF: 

Ltf Addit And_Wamem($db_SBI. "Data.Width" 1^^^-'"^^''^^^^ ■ 

|pTFlAdditlAnd_Wamem($db_SBI. -Address_Width" , $address_width) . 

&PTF Addit And_Wamem($db_SBI, "Is_Enabled" , 1); 

&PTF~Addit And_Wamem($db_SBI, "Is_Bus_Master" , $is_master) ; 

S?F Addit"And_Warnem($db_SBI, "Date_Modif ied" , scalar (localtime) , 

&PTF:AdditlAnd_Warnem($db_SBI, " lnstantiate_ln_Systen^Module" , 1). 

if ({l$is_master)) { # Checks for slaves-only: 

&PTF Addit AndJWamem ( $db_SBI , . . 

- - "Uses_Tri_State_Data_Bus", $has_tri_state) ; 

ScPTF Addit AndJWarnem ( $db_SBI , 

- - "Uses_Registered_Select_Signal" , $has_reg_s« 

&PTF_Addit_And_Warnem ( $db_SBI , " IRQ_Nuirtoer " . "N/A" ) ; 

&PTF Addit_And_Wamem ( $db_SBI . " Has_IRQ " . n S^^T^e? 

&PTFlAddit_And_Warnem($db_SBI, -Address_Alignment" , native 

} 

################ 

# Here are some module-specific updates: 

if ( ($old_module_type eq " onchip_rom- ) ) { ^ * , 

# All old ROMs were 16 bits wide, so size = depth 2 
my $size = &get_data_by_path ($db_WSA, "depth") * 2; 
my $file = fi:get_data_by_path ($db_WSA, "contents"); 

# All old rom-files were copied to the local directory. 

# use them there : , . ..r, 
$file =- s/.*?( C^XW/l +)$/$!/. • # Strip-off leading path 

&PTF_Addit_And_Wamem ($db_WSA, "Writeable" , 0 ): 

&PTF_Addit_And_Warnem ($db_WSA, "Contents", "file ) ; 



&PTF„AdditjAnd_Wamem ($db„WSA, "Initfile", $file 
£cPTF_Addit„And_Warnem ($db_SBI, " Is_Memory_Device" , 1 



&PTF_Addi t_And„Warnem ( $db_SBI , " Addr e s s_Span " , 

if ( ($old_module_type eq "onchip„ram" ) ) { 

# All old ROMs were 16 bits wide, so size = depth 
my Ssize = &get_data„by_path ($db_WSA, "depth") * 
&:PTF__Addit_And_Warnem ($db_WSA, 
& PTF_Addi t_And„Wamem ( $db_WSA , 
&PTF_Addit_And_Warnem ( $db_SBI , 
&PTF_Addit_And_Warnem { $db_SBI , 

} 



Writeable 
Contents" , 
I s_Memory_Devi c e 
Address_Span" , 



$size ) 



($data_width/8) ; 
1) ; 

"blank" ) ; 
1 ); 
$size ) ; 



if ( {$old_module_type eq "uart")) { 

# Uarts are the only old "printable devices". 
5cPTF_Addit_And„Warnem ($db_SBI, " Is_Printable_Device" , 1 ); 

} 

if (($class eq " jusersocketwizard" ) ) { 

# Whatever ports are in this PTF-file, the user gets to keep. 
&:PTF_Addi t_And_Wamem ( $ db__WSA , " keep_l egacy_^or t s " , 1 ) ; 
&PTF„Addi t_And_Wamem ( $db„SBI , " Tr i_State_Data_Bus " , 

"shared_of f_chip" ) if $has_tri_state ; 
&:PTF_Addit_And_Warnem ($db_SBI, " Is_Memory_Device" , 1 ); 

} 

################ 

# And some other oddball system-level things: 

if ($freq = &:get_data_by^ath ( $db_WSA, "clock_f req" ) ) { 

&PTF_Addit_And_Warnem ( $db_Sys_WSA, " clock_f req" , $freq) ; 

> 

if ($has_tri_state) { 

&:PTF_Addi t_And_Warnem ( $db_Sy s JWSA , 

" Principal_Tri_State_Data_Bus " , 

"shared_of f_chip" ) ; 

} 



} 

sub PTF_Translate_01d_yersion 
{ 

my {$ptf_f ilename) = (@_) ; 



$PTF_CHANGES = 0; 

&PTF_New_Required_Ptf_From_File { $ptf_f ilename) ; 
&PTF_Get_Required_Child„By_Path ($db_PTF_File , "SYSTEM") 
S:PTF_Get_Required_Child_By_Path ( $db_Sys , 

"WIZARD_SCRIPT_ARGUMENTS" ) 



iny $db_PTF_File = 

my $db„Sys 

my $db_Sys_WSA 



################ 

# Decide if this is an "old" PTF at-all. 

# Because the version number was not in the PTF for release 1.0 of 

# the kit, we have to use an heuristic: If the SYSTEM module 

# doesn't have a clock frequency, then it must be old. 
# 

ScPTF_Translate_From_Version_l_0 { $ptf_f ilename , $db_PTF_File) 
if 1 5cget_data_by_^ath < $db„Sys_WSA, "clock_f req" ) ; 



my $num_modules = &get_child_count ($db_Sys); index++) 
for (my $module_index = 0; $module_index < $num_modules; $module_index+-H) 

^ mv Sdb Module = &get_child ($db_Sys, $module_index) ; 

n^xt if Set_name ($db_Module) ne "MODUI.E" ; # ignore non-modules. 

my $class_name = &get_data_by_jath($db_Module "class" ); 
ny $updated_name = $class_translation_f rom_3w{$class_name} , 
next unless $updated_name ; 

&add_child_data ($db_Module, "class", $updated_name) ; 
$PTF_CHANGES++ ; 

} 

if ($PTF_CHANGES 1= 0) 

^ nrlnt STDERR " PTF_Translate_01d_Version : 

Made $PTF CHANGES changes to obsolete PTF file $ptf_f ilename\n ; 
&writejtf_iile ($db_PTF_File) or die "Couldn't wrxte PTF File ; 

^ #"'^JJiit STDERR "PTF_Translate_01d_Version: No changes made.Xn"; 
} 



# PTF_Addit_And_Wamem 

# Add a missing assignment to a (presumably-old) PTF-file 

# if it isn't already there. If we have to add it, then emit a 

# scolding. 

# Return "1" if we had to alter the PTF, "0" otherwise. 

!################################################*###*#********* 

sub PTF_Addit_And_Warnem 

^ my ($ptf_ref. $path, $value) = (@_) ; 

if (&get_data_by_path ($ptf_ref, $path) eq " " ) { 
&add_child_data($ptf_ref , $path, $value) ; 

pJiS^^DlR^^-Aidl^asS^^ft' Upath=^ to old PTF file ^name.Vn- 

$PTF„CHANGES++ ; 
return 1; 

} 

return 0; 

} 

# PTF_Update_Boolean_Values 

I Recursively loops through the PTF and all ^^^^ 

# If the value of any leaf-level assignment is "TRUE" or "FALSE 

# or "yEs" or "no" or some such, then we update to the new value: 

sub PTF_Update_Boolean_Values 
{ 

my ($ptfRef ) = (@_) ; 
my $num_corrections = 0; 



m 



my $num_childreii = &get_child_count ($ptfRef ) ; f 
for (my $child_index = 0; $child_index < $num_children; $chxld„xndex++) ( 
my $child_ptf = &get_child ($ptfRef, $child_index) ; 

5 if (&get„child_count ($childjE>tf ) != 0) { 

$num_corrections += &PTF_Update_Boolean_Values ( $chi.ld_ptf ) ; 

next ; 

} 

10 # we only want to correct boolean values in SBI and WSA sections 

# (better safe than sorry) 

my $section_type = &:get_name ($ptfRef ) ; 

next unless ( $section_type eq "WIZARD_SCRIPT_ARGUMENTS" ) M 
15 ($section_type eq " SYSTEM__BUILDER_INFO" ) 

my $child_name = Scget^name ( $child_ptf ) ; 
my $value = Scget_data ( $child_jptf ) ; 

if (($value /'^TRUE$/i) || 
20 ($value /'^yes$/i ) ) 

^ print STDERR "Replacing $child_name value ' $value ' with ■ 1 ■ \n" ; 
&add_child_data($ptfRef , $child_name, "1"); 
$num_corrections++; 
O 25 next; 

if\($value /^FAIiSE$/i) || 
($value /'"no$/i ) ) 

30 ^ print STDERR "Replacing $child„name value • $value ' with ' 0 ' \n" ; 

&add_child_data ( $ptf Ref , $child_name , " 0 " ) ; 
$num_corrections++ ; 
next ; 

} 

35 } 

return $num__corrections ; 

} 

40 # PTF_Update_Port_Wiring_Section 
# 

# PORT_JWIRING section: how it used to be. 
# 

# In the old days, all the WIDTHS of the ports were together m 
45 # a WIDTH section. The assignment -names were the port-names, and 

# the values were the widths. 

# All the TYPES were together in the TYPES section. The 

# assignment -names were (again, and redundantly) the port -name s , and 
50 # the values were a twisted mutation of a little descriptor which 

# contained a number of attributes like "avalon role" and "direction" 

# embedded in it . 
# 

# PORT__WIRING section: how it is. 
55 # 

# Now each port has its own PORT section, where the assignment names are 

# its attributes, and the values are the values. Just like it should 

# be. 
# 

60 # This function converts the old into the new, including parsing-apart 

# the descriptor-string into useful data. When it's done, it deletes 

# the old WIDTH and TYPE sections, to avoid confusion. 
# 



##################wr###################################iP5###### 

sub PTF_Update_Port_Wiring_Section 
£ 

my ($db_Module) = (@_) ; 
my $ changes = 0; 

my $db_Port_Type = &get_child_by_path ( $db_Module, " PORT_WIRING/TYPE" ) ; 
my $db_Port_Width = &:get_child_by_jpath ( $db__Module PORT_WIRING/ WIDTH" ) ; 

$db_Port_Type or 

die { " PTF_Update_Port„Wiring_Section : no ' TYPE ' section . " ) ; 
$db„Port_Width or 

die ( " PTF_Update_Port_Wiring„Section : no ' TYPE * section . " ) ; 

my Snum_ports = &get_child_count ( $db_Port_Type) ; 

for ( $port__index = 0; $port„index < $num_ports; $port_index++) 

{ 

my %port_hash = (); # put all PORT'S assignments into here. 

my $port_name = &get_name (Scget_child { $db_Port_Type, $port_index) ) ; 

$port_hash{width} = &get_data_by__path ( $db_Port_Width, $port_name) ; 
my $old_type = &get_data_by_path ( $db__Port_Type , $port_name) ; 

$old_type 

/ {master | internal | external )_( input | output | inout)_? {shared_) ?{.*)/ 
or die "Update: Port $port_name has malformed type: $old_type"; 

$port_hash {direction} = $2; 
$port_hash{is_shared} = $3 ne 
$port_hash{avalon_role} = $4; 
Scdelete_child ( $db_module , " PORT_WIRING/PORT $port_name " ) ; 

print "Adding PORT section: $port_name\n" ; 
foreach $assignment_name (keys (%port_hash) ) { 
next if $port_hash{ $assignment_name} eg ""; 

my $value = $port_hash{ $assignment_name} ; 

&:add_chi ld_data 

($db_Module, " PORT_WI RING /PORT $port_name/$assignment_name" , $value) ; 

} 

} 

&delete_child ($db_Module, " PORT_WI RING /TYPE" ) ; 
&delete_child ($db_Module, " PORT_WI RING /WIDTH " ) ; 

} 

############################################################################### 
# 

# Rename_01d„edf_File 

# If leonardo was run on nios 1.0, there's a $ptf.edf 

# lying around that will totally hose the user. 1.1 kit updates 

# will not take effect in the synthesis design because quartus 

# will find the .edf file before it finds the wrapper. The 

# solution is to rename the edf file to something safe and warn 

# the user . 

sub Rename_01d_edf_File 
{ 

my ( $ptf_f ilename) - @_; 



my $inalignent_ei^_f ile = $ptf_f ilenaIne; 
$malignent_edf_f ile =- s/\ .ptf $/\ . edf / ; 

my $benign_edf_f ile = " $malignent_edf_f ile\_old" ; 

while (-e " $benign_edf_f ile" ) { $benign_edf_f ile = 

" $benign_edf_f ile_old" ; } 

print STDERR "Renaming $malignent„edf_f ile to $benign_edf_f ile\n" ; 

if (rename $malignent_edf_f ile, $benign_edf_f ile) 

{ 

print STDERR "Renamed $malignent_edf_f ile to $benign_edf_f ile\n" ; 

} 

else 
{ 

print STDERR "Rencime Failed ($!). Quartus will try to use\n" ; 
print STDERR " $malignent_edf_f ile instead of your design unless\n" ; 
print STDERR "it is specifically in the Quartus Project File listXn 

} 

} 

################################################################# 

# Set_Avalon_Defaults 
# 

# Takes the port list from every module in db_Sys and sets default 

# width and direction for each port that does not have it defined. 

# this function should not be called in 1.1 



sub S e t_Ava 1 on_De f au Its 
{ 

die " Set_Avalon_De faults you should not call this function\n" ; 
#do not use this function 
nty ( $db_Sys , 

$db_PTF_File) = 

warn "in SAD\n" ; 

my $def ault_hash = &Get_Avalon_Requirement_Table; 

my @db_Module_Array = &:get_f irst_children_of_type ( $db_Sys , 

"MODULE" ) ; 

wa rn " dbma i s @db_Modu 1 e_Ar ray \ n " ; 

my $Mod; 

my % Sys_Hash ; 

my $Sys = \%Sys_Hash; 

foreach $db (@db_Module_Array) 
{ 

my $db_SBI = &PTF_Get_Required_Child_By_Path {$db, 

"SYSTEM_BUILDER_INFO" ) 

$Mod = &PTF_Build_Hash_From_Section ($db_SBI); 
&PTF„Check_Bool ( $Mod, " Is_Bus_Master " , 0 ) ; 
&PTF_Eval ($Mod, "Address_Width" ); 

&PTF„Eval ($Mod, "Data_Width" ); 

$$Mod{name} = &get_data ($db) ; 

$Sys_Hash{master__data_width} = $$Mod{Data_Width} ; 
last if $Mod->{Is„Bus_Master) ; 

} 

die " Set_Avalon_Def aults , No Master FoundXn" 

unless ($$Mod{name} ) ; 
warn "SAD found master $$Mod{name} \n" ; 

#now we know which module is master 

#loop through again and get port data for each module 
my $def ault_direction; 



foreach $db_Mod (@Sj_Module„Array) 

my $module_naine = &get_data ( $db_Mod) ; 
print STDERR "port $module_name\n" ; 

$default_direction = $def ault_hash-> {required_slave_dir} ; 
$default_direction = $def ault_hash-> {required_master_dir } 
if ( $module_naine eq $$Mod{naine} ) ; 

my $dl3_Port_Wiring = &get_child„by^ath { $db_Mod, " PORT.WIRING" , 0 ) or die 
"Set_Avalon_Defaults, No PORT_WIRING SECTION FOUND FOR\n" 
. "MODULE $inodule_naine\n" ; 

my @db_Ports = &get„f irst_children_of_type ( $db_Port_Wiring, 

"PORT") or die 

"Set_Avalon_Defaults, No PORTS FOUND in PORT_WIRING SECTION FOR\n" 
. "MODULE $module_name\n" ; 

foreach $db_Port {@db_Ports) 

my $port_naine = &get__data ( $db_Port ) ; 

my $avalon„role = &get_data_by^ath ( $db_Port , "avalon_role" ) ; 

if ( ! $avalon_role) ^ ^ ^. 

{print STDERR " did not find avalon role for port $port_name\n ;next} 

my $direction = &get_data_.by jath ( $db_Port , "direction" ) ; 
if { ! $direction) 

^ ^direction = $def ault_direction->{ $avalon_role} ; 

print STDERR " did not find direction for port $port_name 

($avalon_role) \n" ; 

print STDERR " going with $direction\n" ; 

my $test = &get_child_byj)ath ( $db_Port, "direction" , 1) ; 

print STDERR "so here is direction $test\n" ; 

&add_child_data($db__Port, "direction" , $direction) ; 

my $after_test = &get_data„by jath ( $db_Port, " direction M ; 

print STDERR "after assigning direction, $af ter_test\n" ; 

} 

#or 

#$default_direction->{$avalon__role} ; 

my $W = Scget_data_by_path($db_Port, "width" ) ;# or 
if (i$W) 

^ eval ($def ault_hash->{width_default} {$avalon_role} ) ; 

print STDERR " did not find direction for port $port_name 

($avalon_role) \n" ; 

print STDERR " going with $W\n" ; 

&add_child_data($db_Port, "width" , $W) ; 

my $test = &get„child_by^ath ( $db__Port , "width" , 1) ; 

print STDERR "so here is width $test\n" ; 

my $after_test = &get_data_by_path ( $db_Port , "width" ) ; 

print STDERR "after assigning width, $af ter_test\n" ; 

} 

} 

} 

#&write_:ptf_file ( $db_PTF_File) or die 

#"ERROR Set_Avalon_Defaults, could not write ptf file ($l)\n"; 



1; 



# Modules must say "l"--mustn't they? 



sdram_jpbm_gen 

################################################################ 

# pbm_and__system__modules . vpp 
5 # 

# This file contains a biinch of VPP-code which generates 

# the systems' PBM module and top-level system-module. 
# 

# It builds the system as-specified by the PTF-file you 
10 # indicate. You do so indicate 

# 

# Generate_System_Logic 
# 

# This one happy Perl function is the top-level call for 
15 # creating synthesizable Verilog which implements the 

# "system" (e.g. Nios system) described by a single 

# PTF-file. 
# 

# The one-and-only argument is, of course, the name 
20 # of the PTF-file itself. 

# 

# The result is a bunch of Verilog (and other) files 

# deposited in the users' Quartus project directory. 
# 

# Naturally, &Generate_System_Logic is a pretty complex 

^ # Perl function which relies upon various dedicated Perl subroutines 
5 # and utilities to do its many jobs. Those sub-functions are 
^ # also defined in this module. 

□ use ptf_update; 

ffs use mk_bsf; 

1=35 ################ 

# Things to document; 
# 

H # Philosophy, including overview of data-structure 

Rj # 

!40 # difference between "active" and "asserted" 
# 



45 



################ 

# Notes for my friends; 



# Add to system-level WIZARD_SCRIPT_ARGUMENTS section: 

# " Principal_Tri_S tate_Data_Bus " 
# 

# Add to module-level SYSTEM_BUILDER_INFO sections: 
50 # "Uses_Registered_Select_Signal" 

# "Uses_Tri_State_Data_Bus" 
# 

# Master ' s SBI needs : 

# "Data_Width" 

55 # "Address_Width" 
# 
# 

# Narrow accesses from non-dynamic tri-state peripherals are filled 

# with "undefined." Sorry. That's life. 

60 



################ 

# Funny Things to test: 



# 

# System with absolutely zero wait-states. 
# 

# Systems with -all- tri-state peripherals. 
# 

################ 
## ERRORS TO CHECK: 
# 

# Funny chip-selects (base not a multiple of span, span not power of 
# 

# Warn about unknown assignments in PTF/SDF file 
# 

# Check assignments as much as possible when PTF/SDF is parsed, 

# give line numbers. 
# 

# Check to be sure all "instances" have unique names, 

) ################################################################ 

# nxamerically, a subroutine that enables us to sort by numeric order 

# of alphabetic order. 

################################################################ 
sub numerically {$a <=> $b; } 

sub Find_Max 
{ 

my $max = " " ; 
foreach $val {@_) 
3 {$max = $val if $val > $max M $max eq " " ; } 

return $max; 

} 

################################################################ 
5 # &:Debug 
# 

# First arg turns message (s) on/off . 

•0 sub Debug 
{ 

my ($doit, ©messages) = {@_) ; 

return if !$doit; 
45 my $ space = ""; 

foreach $msg (©messages) 
{ 

print STDERR "DEBUG: $space$msg\n" ; 
$ space = " 

50 } 

} 

################################################################ 

# PBM_Progress 
55 # 

# Our own private progress-printing routine. 

# Uses the one in " wiz_utils .pm, " except that it 

# qualifies the output so that it only shows-up if the 

# PBM_VERBOSE flag is on, cind if this is pass 2. 

60 # 

################################################################ 

sub PBM_Progress 
{ 



my $old_out = select (STDOUT) ; 
ficProgress (@_) ; 
select {$old_out) ; 

} 

^ ##########################################*^#######*##*^##^#^*#*** 

# PTF__Err 

# in the future, I'd like to put a little more informative 

10 # gingerbread around error messages— like the line number and such. 

# This'd be the place to do it. 



sub PTF_Err 
15 { 

my $msg; 
($msg) = (@_) ; 

die ("Error while reading PTF file.Xn 
20 $msg"); 
} 

#^############################################################## 

# Get_Port_By_Role 

^ # Simple utility-function for acting on %Mod-hashes . 

^ # You say what "avalon role" you want, and this returns 

g # a ^Port-hash (by reference) for the corresponding module port. 

^0 # If there's more than one port with the avalon-role you asked for, 

# then you get one of them at-random. This is only reliable if the 

□ # avalon-role uniquely describes one of the module's ports. 

fft # 

r' # If you set the '•$strict" option, you get an error if the port 

%=35 # doesn't exist. 

^ sub Get_Port_By_Role 

m { 

□ 40 my ($Mod, $avalon_role , $strict) = (@_) ; 

# Do Step-by-step hash-dereferencing using temporary variables-- 

# otherwise the syntax gets impenetrable. 

45 my $avalon_port_table = $ $Mod{ avalon j»ort_table} ; 

my $Port = $$avalon_jport_table{ $avalon_role} ; 



50 



die «Get_Port_By_Role: No port of type $avalon_role on module $$Mod{name} 
if $strict && l$Port; 

return $Port; 



} 



55 # Get_Sys__Signal 
# 

# This is a utility-function that works on one of our 

# def ined-by-convention %Mod-hashes (which, you certainly remember, 

# is a hash containing various useful information about each module) 

60 # ^ V, . v 

# In particular, each module has a bunch of ports, some of whicn 

# have an "avalon role." Any port with an "avalon role" connects 

# to some ritualistically-named signal at the system level. 



25 } 



f-1i 



# Sometimes, given a module and an avalon role, it is useful to 

# know what system-level signal "serves" that role. As an example, 

# it is useful to be able to answer the question: 
5 # 

# Which system-level signal drives the "address" -type port 

# on the module "Uart_3?" 
# 

# This function here answers that very sort of question by 

10 # digging the appropriate information out of the %Mod-hash you 

# pass-in {by reference, of course) . 

# If you set the " $strict" -option argument, then we complain if 

# no such port is found on the indicated module. Otherwise, we 
15 # return (null) for nonexistent ports. 

sub Get_Sys_Signal 
{ 

20 my $Port = &Get_Port_By_Role (@_) ; 

return "" if !$Port; # Explicit null-string return if port doesn't exist, 
return $$Port { system_signal } ; 

################################################################ 
%ii # Get_Sys_Module„Ijist 

m # 

^=^30 # This is a utility- function that works on one of our 

^ # defined-by-convention %Sys-hashes (which, you certainly remember, 

^ # is a hash containing various useful information about the system- 

^ # under-construction) . 

m # 

- 35 # This returns a list of %Mod-hash refs. This list includes 
O # -all- modules in the system, including the master. 

W # 

# The astute reader will note that a call to this function 
Ui # can be replaced by a single expression: 

L^40 # 

^ # values %($$Sys{module„table) } 

# 

# But that's one ugly expression. This function adds a bit 

# of self -documentation, and a much-needed dose of object-oriented, 
45 # implementation-hiding, pseudo-access-method methodology. 

sub Get_Sys_Module_Ijist 
{ 

50 my {$Sys) = (@_) ; 

my $module_table = $$Sys Cmodule_table} ; # Just for nice syntax, 
return values (%$module_table) ; 

} 

55 

################################################################ 

# Get„Sys_Slave_List 
# 

# Just like "Get_Sys_Module_List, " above, except that the list 
60 # you get doesn't include the master. 

# 

# Many times, this is what you really wanted. And this function 

# saves you the trouble of having to put a master-exclusion test 



# in your otherwise^Kdy loop. 
# 

################################################################ 

sub Get_Sys_Slave__List 

{ 

my ($Sys) = (@_) ; 
ray ©result - ( ) ; 

foreach $Mod {&Get_Sys_Module_List ($Sys) ) 
{ 

push (©result, $Mod) unless $$Mod{Is_Bus_Master} ; 

} 

return ©result; 

) 

################################################################ 

# Get_Module_Port_List 
# 

# Just like "Get_Sys_Module_List, " above — and intended to 

# serve the same dubious code-beautif ication purpose. 
# 

# The difference is: this function gets all the %Port-hashes 

# out of a %Mod-hash, instead of all the %Mod-hashes out of a 

# %Sys-hash. 
# 

^############################################################### 

sub Get_Module__Port_List 

{ 

my {$Mod) = (©_) ; 

my $port„table = $$Mod{port_table} ; # Just for nice syntax, 
return values { %$port_table) ; 

} 



################################################################ 

# Emit_Comment 
# 

# Emit the user-supplied string as a verilog comment directly 

# into the output file. As a courtesy, we put //-characters 

# at the beginning of every line, sparing the user the trouble. 
# 

# We call "ScVprint," so the user must previously have "selected" 

# their destination verilog-file as STDOUT. 
# 

################################################################ 

sub Emit_Comment 

{ 

my ($corament, $ language) = (@_) ; 
$language = "verilog" if !$language; 

my $cstart - "; 

$cstart = "// " if $language =- /^verilog/i ; 

$comment = $cstart . $comment ; 

$comment s | \n | \n$cstart | mg; # Put '// ' in front of every 
&Vprint ( " $comment\n" ) ; 

} 





###################fff##################################ff5##### 

# Einit_Top_Comment 
# 

# Writes module-name , date-stamp, and legal notice into the 

# currently-selected output file, trilingually . 



################################################################ 



my ( $module_name, $lang) = (@_) ; 

$lang = "verilog" if !$lang; 

my $date = scalar ( local time ()) ; 

my $magic_altera_string = '%Altera Excalibur Nios(tm)%'; 

my $top_comment=«EOM; 
// megaf unction wizard: $magic_altera_string 
//// GENERATION: STANDARD 
//// VERSION: WMl . 0 
// Module: $module_name 
// 

// Automatically-generated file: **** DO NOT EDIT **** 

// Generated by Excalibur SOPC-Builder [$date] 

// 

$ GLOBAIj_COPYRIGHT_NOTICE 



$top„comment s\//\ — |mg if $lang =- /'^ (vhdl | ahdl) /i ; 
&Vprint ($top_comment) ; 

} 

################################################################ 

# Emi t_Modul e_Header 
# 

# You give the name of the module ("Foo"), and this function 

# emits the ritualistic top-of -module stuff, which we once would have 

# done this way: 
# 

# module Foo ( /* C&:Declare_Ports_For ( "Foo" ) } */ ) 

# /*{ &Def ine_Ports_For ( "Foo" ) }*/ 
# 

# Emits the module- and port-delcarations for the named module into 

# the currently-selected output file, 
# 

# Naturally, you have to have already done a &Iiist_Ports_For the named 

# module, 
# 

################################################################ 

sub Emit_Module„Header 

{ 

my ( $module_name, $lang, $do_bb_declaration) = (@_) ; 
$lang = "verilog" if !$lang; 



if (($lang =- /^vhdl/i) ) { 
&:Vprint ( "LIBRARY ieee;\n"); 

ScVprint ("use ieee . std_logic_1164 . all ; \n" ) ; 
ficVprint ("ENTITY $module„name XS\n" ) ; 
&Def ine_Ports_For ( $module_name , 0, $lang) ; 
ScVprint ( " END $module_name; Xn" ) ; 

&Vprint ("ARCHITECTURE behavior OF $module_name IS\n" ) ; 



# 



sub Emit_Top__Comment 
{ 



// 
EOM 



} elsif ($lang Z'^ahdl/i) { 

ficVprint ( " SUBDESIGN $module_name\n" ) ; 
&:Vprint ( " (\n" ) ; 

ficDef ine_Ports_For ( $module_naine , 0, $lang) ; 
ScVprint (") \n") ; 

} elsif ($lang /^verilog/i) { 
# verilog: 

my $synplify_bb_string = V* synthesis syn_black_box 
if $do_bb_declaration; 

ScVprint ("module $module_naine (\n"); 
&Declare_Ports_For ( $module_name) ; 
ScVprint (") $synplify_bb„string ;\n"); 
ScDef ine__Ports„For ( $module_naine , 0, $lang) ; 
ScVprint {"\n // synopsys translate_of f \n" ) 

if $ do_bb_dec 1 ara t i on ; 
&Vprint ( " \n" ) ; 
} else { 

die "Emit_Module_Header: Foul language {$lang)"; 

} 

} 



#######################################################^####*### 

# Emit„VHDL__Component 

# You must declare all your VHDL black-boxes (" COMPONENT " s ) in 

# the "ARCHITECTURE" section of your module, before the first 

# "BEGIN." OK, so be it. 
# 

# You must have previously done a &List_Ports_For -call for this 

# module. 

5^############################################################## 

sub Emit_VHDIj_Component 
{ 

my {$comp_name) = ; 

ScVprint ("COMPONENT $comp_name IS\n"); 
&Def ine_Ports_For ($comp_name, 0, "vhdl"); 
ScVprint ("END COMPONENT; \n" ) ; 

} 

##############################################################*^# 

# PBM_Assign 

# Emit a simple assignment into the PBM-file (which we presume 

# to be the currently-selected output file) . 

# we take special measures to avoid redundant assignments (we 

# keep our own private hash of past assignments) . We check to make 

# sure the same signal is never assigned to two different things. 
# 

# The arguments are the target -signal and the value we want 

# assigned to it. 

# Also, note that we -explicitly- do nothing if the assignment-target 

# is NUIili (""). This deals gracefully with, for example, broadcast- 

# assignments to modules that don't have a recipient port. For example, 

# you can go ahead and ScPBM_Assign the write-data bus to a module that 

# doesn't actually have a "writedata" -type port, and it still works 

# out OK (nothing happens) . 



################################################################ 

% Pr ivat e_PBM_As s ign__Hash ; 

sub PBM_,As s i gn 
{ 

my ($ targe t_signal, $assignment_value) = (@_) ; 

return if $target_signal eq # Deal with null-assignment , per comment. 

my $previous_assignment = $ Private_PBM_Assign_Hash {$ targe t__signal } ; 

# Icpn-ore truly- redundant assignments : 

return if $previous_assignment eq $assignment__value; 

$previous_assignment eq " " or die " 

Inconsistent assignments to signal $ targe t„s ignal : 
{$previous_assignment) and ($assigninent__value) 

&Vprint ("assign $target_signal = $assignment_value ; \n" ) ; 

$ Pr ivat e_PBM_As s ign_Hash { $ targe t_s ignal } = $ as s ignment_va lue ; 

} 

################################################################ 

# PBM_Wire 
# 

# Emit a Verilog "wire" declaration into the currently-selected 

# output file. You give the ncone and width of the wire you 

# want to decalre. Deals gracefully with the null wirename ("") and 

# with zero-width wires: No declaration is emitted. 
# 

# Also allows you to pass-in an optional " $assignment" Verilog-expression, 

# so you can declare a wire and assign a value to it in one stroke. 
# 

################################################################ 

sub PBM_Wi^e 

{ 

my ($wirename, $width, $assigninent ) = ; 

$width = 1 if $width eq " " ; 

return if $ width == 0; 
return if !$ wirename ; 

my $range = ScW($width) ; 

&Vprint ("wire $range $wirename ; \n" ) if $wirename && $width; 
&PBM_Assign ($wirename, $assignment) if $assignment; 

} 

################################################################ 

# Validate_And_Reserve_Address„Range 
# 

# Given a reference to a %Mod-hash, we compute the 

# address-range allocated to that module and make sure that 

# somebody else doesn't already live there. If so, we 

# print an error. 
# 

# Also, while we're thinking about the address, we do some sanity-checks. 

# That's why the %Sys-hash (ref) is also passed-in, so we can 

# check to be sure the module is in -bounds . 
# 



# we also declare t^^illy "&wi thin" -function for code-^^ty. 

################################################################ 

sub within { my ($test, $lo, $hi) ; return ($test >= $lo) && ($test <= $hi) ; } 

% Private_Address„Range_Hash ; 

sub Validate_And_Reserve_Address_Range 
{ 

my ($Mod, $Sys) = (@_) ; 

$$Mod{Base_Address} ne " " or die 

"Error: bad Base_Address setting for module $$Mod{name} " ; 

$$Mod{address_span} = 2** ( $$Mod{highest_address_bit_used} + 1) ; 
$$Mod{end_address} = $$Mod{Base_Address} + $$Mod{address_span} - 1; 

$$Mod{end_address} <= ( $$Sys {address_span} - 1) or die " 

End-address of module $$Mod{name} is greater than maximum system 
address ( $$Sys {address_span} - 1) " ; 

foreach $inst (keys (%address„range„list ) ) 

^ my ($min,$max) = split (/\,/,$ Private_.Address_Range_Hash — {$inst}); 

die "Address-range conflict between $inst and $$Mod{name} . 
$inst occupies: [$min . . . $max] 

$$Mod{name} occupies: [ $$Mod{Base_Address} $Mod{end_address} ] " 
if ficwithin ( $$Mod{Base_Address} , $min, $max) || 
&within ($$Mod{end_address} , $min, $max) 

} 

$ private_Address_Range_Hash { $$Mod{name} } = 

"$$Mod{Base_Address} , $$Mod{end_address} " ; 

} 

################################################################ 

# Resolve_Address_Alignments 
# 

# In the PTF-file, the user can specify "dynamic" and "native" 

# address -alignments. In these cases, the system-generator (thafd be 

# me) needs to "do something smart" to reconcile peripherals with 

# nonnative data-widths . 

# We can only do that after all modules have been read- in (including, 

# significantly, the master) , and some system-level info has been 

# set-up. 
# 

# Consequently, this function is called at the end of 

# &:Get_System_Data_From_PTF, after all the modules have been read. 

################################################################ 

sub Resolve_Address_Alignments 

{ 

my ($Sys) = (@_) ; 
foreach $Mod (&Get_Sys_Slave_liist ( $Sys) ) 

# Figure out what kind of address will ultimately be presented to this 

# module. This is slightly tricky because of the special "dynamic" case 

# in which case we have to look at the data width. 
# 

if ($$Mod{Address_Alignment} eq "dynamic") 
{ 




10 



# Dynamic eUl^niaent : address-type depends on th^Kta size: 
$ $Mod { addr e s s_type__us ed } = 

$$Mod{Data_Width} > 16 ? "word" : 

$$Mod{DataJWidth} > 8 ? "halfword" : 

"byte" ; 

} elsif ($$Mod{Address_Aligninent} eq "native") { 
$ $Mod { addr e s s__type_us ed } = 

$$Sys{master„data_width} == 16 ? "half word" 

"word" 



} else { 

# "Normal" old-style alignment: 
warn ( " 

Old-style Address_Alignment ( $$Mod{Address_Alignment} ) 
15 found for module $$Mod{name} . \n" ) if $$Sys {verbose} ; 

$$Mod{address_type_used} = $$Mod{Address„Alignment } ; 

} 

# When is a "dynamic" module -not- "dynamic"? When it happens 
20 # to be the same width as the master. Check width here, and set 

# a per-module flag which tells us whether to really, truly use 

# dynamic bus-sizing for this module. 
# 

if { ($$Mod{Address„Alignment} eq "dynamic" ) 
25 ($$Mod{Data_Width} < $$Sys{master_data_width} ) ) 

O ^ 

$$Mod{is_dynamically_sized} = 1; 

M } else { 

$$Mod{is_dynamically_sized} = 0; 

§0 } 

# It's nice to know if the system has any dynamic bus-sizing: 

O $$Sys{has„dynamic_bus_sizing} = 1 if $$Mod{is_dynamically_sized} ; 

^35 # This is a handy thing to know about a module: 

™ $$Mod{highest_address_bit_used} = 

^ $$Mod{address_type_used} eq "byte" ? { $$Mod{Address_Width} - 1) 

$$Mod{address_type_used} eq "halfword" ? ( $$Mod{Address_Width} ) 
H ($$Mod{Address_Width} + 1) 

Wo } 



################################################################ 

# Get_System_Data_From_PTF 
# 

# Given a reference to a mostly-empty %Sys-hash, we read the 

50 # PTF file, build a %Mod-hash for every module and a %Port-hash 

# for every port, and stuff the results back into the %Sys 

# data structure. 
# 

# We do as much "peephole" error-checking as we can while 

55 # reading-in ports — confirming allowed values for PTF fields, 

# screening out "impossible" port types, etc. 
# 

# But there is a certain amount of checking that we -can't- do 

# until we've read-in the entire system — checing to be sure no 

60 # module's data bus is wider than the master, for example, has to 

# wait until all modules are read- in. Those kinds of checks 

# -do not- get executed here . 
# 



c^^^ly "do anything" with the data. 



# Plus, we don't acOTSlly "do anything" with the data. w^do 

# only pre-processing on the %Sys-hash, so that it will be 

# easier, later on, to do what we need. 
# 

################################################################ 



my %PBM_HDL_EXTENSION; 

$PBM_HDIi_EXTENSION {verilog} = "v" ; 

$ PBM_HDL_EXTENS ION { vhdl } = " vhd " ; 

$ PBM_HDL_EXTENS ION { ahdl } = " t df " ; 

sub Get_System_Data_From„PTF 
{ 

my ($Sys, $db_Sys) = (@_) ; 

# A hash of listref s . The hash-keys are shared-port names: 
my %shared_port_table; 

#keys: shared port-names. Values: bus-group names, 
my %bus_membership„table; 
my @tri_state_bus_list = (); 

# For Perl syntax-niceness , build these hashes up in the 

# module loop, then add them to the %Sys datastructure when 

# we 're all done : 
# 

my %module_table; umdef %module_table; 

################ 

# Module loop 
# 

# Accumulate a hash of direct and derived information about each 

# module. 

# When we're all done, we'll add a reference to this hash to 

# %Sys. 
# 

my $num_children = &get_child_count {$db_Sys) ; 

for ($child_index = 0; $child_index < $num_children; $child_index++) 
{ 

my $db_Module = &get_child ($db_Sys, $child_index) ; 

next if &get_name {$db_Module) ne "MODULE"; # ignore non-modules. 



################ 

# Read SYSTEM_BUiriDER_INFO section 
# 

# This will form the basis for our own private cache of 

# useful info about this module. Also, now would be a good 

# time to pre-digest and validate all the settings we read 

# from the PTF file. By this I mean: Converting "TRUE/FALSE" 

# strings into testable bits, evaluating niomerical expressions, 

# and checking for illegal values. 
# 

my $db_SBI = &PTF_Get_Required_Child_By_Path ($db_Module, 

" SYSTEM_BUIIjDER_INFO" ) 
my $sbi = &PTF_Build_Hash_From_Section ($db„SBI) ; 
my %Mod = %$sbi; 

$Mod{name} = &get_data ($db_Module) ; 

$Mod{class} = &PTF_Get__Required_Data_By__Path ($db_Module, "class"); 

&PBM_Progress {" Processing module $Mod{name} . " ) if $$Sys {verbose} ; 

&PTF_Check_Bool (\%Mod, " Is_Enabled" , 1) 
next unless $Mod{ Is_Enabled} ; # Quit early for disabled modules. 



&PTF_Check_Bool ( \%Mod, 

&PTF_Check_Bool ( \%Mod, 

&PTF_Check„Bool ( \%Mod, 

&PTF_Check_Bool ( \%Mod, 

ficPTF_Check_Bool ( \%Mod, 

&PTF_Eval (\%Mod, 

&PTF_Eval ( \ %Mod , 

&:PTF_Eval ( \%Mod, 

&PTF_Eval {\%Mod, 

&:PTF„Eval (\%Mod, 

&:PTF_Eval (\%Mod, 

& PTF_Eva 1 ( \ %Mod , 

&PTF_Eval (\%Mod, 

&PTF_Allow (\%Mod, 



"Instantiate_In„System_Module" , 1) 
"Uses_Registered_Select_Signal" , 0) 
"Uses_Tri_State_Data_Bus" , 0) 
"Has_IRQ", 0) 
"Is_Bus_Master" , 0) 
"Base_Address " ) 
"IRQ_Nuinber" , "N/A" ) 

"Address^Width" ) 
"Data_Width" ) 
"Read_Wait_States" , "peripheral_controlled" ) 
"Write_Wait_States" , "peripheral_controlled" ) 
" Setup_Tiine" ) 
"Hold_Time" , "half_clock" ) 

"Address„Aligninent" , "dynamic" , "native" , 



"byte", "word", "halfword" ) 



# Name module, if so far unnamed: 
$Mod{Instance_Name} = " the_$Mod{name} " 
if ( ($Mod{Instance_Name} eq "" 

( $Mod{Instance_Name} eq " --unknown-- " 



) M 



) ; 



$module_table{$Mod{name} } = \%Mod; # Put reference into system hash. 
################ 

# If this is the master-module, 

# set a system-level variable, and check to see 

# that this is the only one. 
if ( $Mod{Is„Bus_Master } ) 

{ 

$$Sys {master_name} eq "" or die " 
$$Sys{name} has multiple masters: $Mod{name} and $$Sys {master_name} 

$$Sys{master_name} = $Mod{name} ; 
$$Sys {master} = \%Mod; 



$$Sys {has_registered_select_signals} = 1 
if $Mod{Uses_Registered_Select_Signal} ; 

$$Sys {has_tri_state_data_busses } = 1 
if $Mod{Uses_Tri_State_Data_Bus} ; 



############################################################ 

# Port Loop 
# 

# Look at each port on this module. Build-up a hash 

# of useful information. For most "normal" ports, we 

# can add a corresponding port on the PBM and/ or the system. 

# Shared ports get recorded in a hash, so we can 

# add them to the system/PBM later, after all the port data 

# has been gathered for all modules. 



if (Scget_child_by_path($db_Module, " PORT_WI RING /TYPE" ) ) { 

warn ("pbm_gen: old-style PORT_WIRING section for $Mod{name} . " ) 

if $$Sys (verbose) ; 
&PTF_Update_Port_Wiring_Section ($db_Module) ; 

} 

my $db_Port_Wiring = &get_child_by__path ( $db_Module , " PORT_WIRING" ) ; 



} 



# Hashes whic^^fre included, by reference, in the^^^ule 

# data structure. We build them up as temporary variables 

# and stick them into the %Mod-hash at the end- -otherwise, 

# the Perl dereferencing syntax becomes impenetrable: 
# 

my %avalon_port_table = {); 
my %port_table = ( ) ; 

my $num_^orts = &get_child_count ( $db_Port_Wiring) ; 

for ($port_index = 0; $port_index < $num__ports; $port_index++) 

{ 

my $db_Port = &get_child ( $db_Port_Wiring, $port„index) ; 
next unless &:get_name { $db_Port ) eq "PORT"; 

# Whatever the PTF says about this port, we want to know, 
my $Port - &PTF_Build_Hash_From_Section ($db_Port) ; 
$$ Port {name} = &get_data {$db_Port) ; 

my $who_died - " $$Port {name} on module $Mod{name} " ; # for errors. 

# Test some basic stuff: 

$$Port{direction} / ( input j output | inout )$ / or 

die "$who_died: Bad direction ' $$Port {direction} ; 

# Port-record has pointer to module parent, and module 

# record has table of all Port-records: 
$$Port {parent} = \%Mod; 
$port_table{$$Port{name} } = $Port; 

&PBM_Progress (" Processing port $$ Port {name} ." ) if $$Sys {verbose} ; 

# Ports -used to- have scopes . Now we can infer their scope 

# from the module's (and port's) other attributes, 
if { $$Port {scope} ) { 

warn (" obsolete port ' $$Port {name} ' (has ' scope \n" ) 
if $$Sys {verbose} ; 

$$Port {scope} ( internal | external ] master) $/ or 

die "$who_died: Bad scope ' $$Port {scope} ; 

$$Port{is„extemal} = $$Port {scope} eq "external"; # Testable bool . 

} 

# Decide whether this port is esxtemal or internal . We used 

# to require that the user tell us, but now we can figure it 

# out for ourselves: 
# 

if ( ($Mod{ Instant iate_In„System„Module} ) ) { 

# For modules -inside- the system-module, all their 

# avalon-ports are internal. All their non-avalon ports 

# are external 

$$Port{is„external} = 1 if ! $$Port {avalon_role} ; 
} else { 

# For modules -outside- the system-module, all their 

# avalon-ports are external. All their non-avalon ports 

# are none of our business 

$$Port {is_external} = 1 if $$Port {avalon_role} ; 

} 



# Some consistency-checking: 

# * Only external signals can be "shared": 

# * All internal (or master) signals must have aji avalon-role. 
die "$who_died: only external ports may be shared." 



if ( $$P< 




{is_shared} 



&& ! $$Port{is_extern; 




) ; 



################ 

# What does this port connect to? 
# 

# For a "typical" system- internal module with nothing "shared," 

# each port gets connected to a unique, dedicated wire in the 

# system module. That wire will go to one of two places: 

# a like-named port on the PBM (for avalon signals) or be 

# promoted to a system-level port. Easy enough. 
# 

# There are two wrinkles to consider: modules which are -not- 

# instantiated in the system, and modules which have shared 

# ports . 
# 

# *** External Modules 
# 

# If the module is not instantiated inside the system, then 

# we do twp special things: 
# 

# 1) Ignore any signals which don't have an avalon_role, 

# because they're not our responsibility, anyhow. 
# 

# 2) Promote its PBM-ports to system-level I/Os with the 

# same direction and neime. 
# 

# **** Shared Ports 
# 

# Ports are only "shared" if they're part of a tri-state 

# bus structure. All tri-state busses are named. Here 

# are some examples of system-level signals which are part 

# of a shared tri-state bus: 
# 

# memory„bus_address 

# memory_bus_byteenablen 



# In this case, the signal names are a concatenation of the 

# tri-state bus group nsime and the avalon role. We don't 

# add these ports to the PBM/ system -yet-, because we don't 

# really know their widths until all the modules have been 

# processed. Instead, we just record our %Port as a "client" 

# of this shared port in a hash. Later, we'll work out 

# exactly how the shared ports show up on the system module. 
# 

if ($$Port {is_shared} ) 
{ 



Shared port $$Port{name} on module $$Mod{name} has no 
' Avalon role ' " 

if ( ! $$Port {avalon_role} ) ; 

die " 

Shared port $$Port{name} found on module $Mod{name}, but 
module does not use tri-state data bus" 

if ( ( !$Mod{Uses_Tri_State_Data_Bus} ) || 
{ $Mod{Tri„State_Data_Bus} eq " " ) ) ; 

my $shared_port = " $Mod{Tri_State_Data_Bus}_$$Port {avalon_rol 
$$Port { sys tem_signal } = $shared_port ; 



# 
# 
# 
# 



ide_data 
ide_writen 



die 



n 



# RecorcPRie fact that this %Port is a clienWTf 

# this shared port. Push a reference to this %Port-hash 

# onto this shared-port client list: 
# 

push (@{$sharedjtort_table{$shared_port} } , $Port) ; 

# also record which tri-state bus group this shared port 

# belongs to. (true, you could figure it out by looking 

# at it's name, but that just sounds risky to me: 
# 

$bus_membership_table{$shared_port} = $Mod{Tri_State_Data_Bus} ; 
} else { 

# This is -not- a shared port, so we make one of those 

# much-beloved machine-generated port names 

# (e.g. bidir_port_to_and_from_the„lcd_jpio) . 
# 

my $transfer„str = ( $$Port {direction} eq "input") ? "to" 

($$Port{direction} eq "output") ? "from" 

" to_and_from" 



$$Port{syst em_s i gna 1 } = 

" $$Port {name}_$transf er_str\„$Mod{Instance_Name} " ; 

} 

# Construct an inverse hash so we can look-up ports 

# -by avalon role- for this module: 
# 

$avalon_port_table {$$Port {avalon_role} } = $Port 
if $$Port {avalon_role} ; 

################ 

# Record some useful system-level and 

# module-level information as the ports 

# go by: 
# 

$$Sys{master_address_width} = $$Port {width} 
if ($Mod{Is_Bus_Master} ) && 

($$Port {avalon_role} eq "address" ) 

$$Sys{master_data_width} = $$Port {width} 
if ($Mod{Is_Bus_Master} ) && 

($$Port{avalon_role} eq "writedata" ) 

} #end: %Port-loop 

# Attach the hashes we built-up in the %Port-loop into the 

# %Mod data structure: 
# 

$Mod{port_table} = \%port_table ; 

$Mod{avalon_port_table} = \%avalon_port_table ; 

################ 

# Derived Module Info 
# 

# Pre-digest some useful facts about this module: 
# 

# It's nice to have a list of all tri-state busses in the system: 
push (@tri_state„bus_list, $Mod{Tri_State_Data_Bus} ) 

if $Mod{Uses_Tri_State_Data__Bus} ; 

# Predigest hold-time values: handle "half -clock" case. 
$Mod{hold_time_full_clocks} = $Mod{Hold_Time} ; 



$Mod{hold_time_full_clocks} = 0 if $Mod{Hold„Time} /half/; 
} # End: %Mod-loop 

5 # Add the hashes and lists we just built into the system "database": 

# 

$$Sys{module_table} = \%inodule_table; 

$$Sys(shared_port_table} = \%shared_port_table; 
$$Sys {bus„membership_table} = \%bus_meinbership_table ; 
10 $$Sys{tri_state_bus_list} = \@tri_state_bus„list ; 

################ 

# Derived system- info 

# 

15 # Pre-digest some useful facts about the system: 

# 

$$Sys{address_span} = 2**$$Sys {master_address_width} ; 

$$Sys{pbm_name} = $$Sys{name} . " j>bm" ; 

20 $$Sys{core_name} = $$SysCname} . "_core" ; 

$$Sys{pbm_f ile} = "$$Sys{system_directory} /$$Sys{pbm_name} .v" ; 

$$Sys{core_file} = "$$Sys{system_directory} /$$Sys{core_name} .v" ; 

^25 # Wrapper-file needs correct extension for target language. 

y $$Sys{hdl_language} = Ic ( $$Sys {hdl_language} ) ; 

^ my $extension = $PBM_HDL_EXTENSION{$$Sys {hdl„language} } ; 

W $extension or die "Unrecognized ' hdl_language ' : $$Sys {hdl„language} " 

m $$Sys{wrapper_file} = " $$Sys { system_di rectory } /$$Sys {name} . $ext en si on" ; 

□30 # Only used if AHDL: 

^5 &:Resolve_Address__Alignments ($Sys) ; 

^' # ... might want to put code here to figure out 

L, 35 # "principal" tri-state bus... 

y # This will probably be a call to some function that has 

01 # a bunch of heuristics. 

p 40 ################################################################### 

# Get„Avalon_Requirement_Table 
# 

# Returns a handy table that we use as a verification 

# template. Then check each avalon-role port to be sure 

45 # it agrees with what we expect. The table should be evalled in 

# a function that has $Sys and $Mod set accordingly 
# 

# (Isn't error checking a big pain?... Code was so much 

# simpler in the Wild West) : 

50 # 

# It's easier to check errors if you set defaults. 

# That way you don't punish the user for supplying 

# data you know already. I've added Width Default to the table, 

# Sorry Tim, you'll have to maximize your screen to see all the 

55 # data. Not like the good old days with your acoustic coupler eh? 
# 

sub Get_Avalon_Reguirement_Table 
{ 

my $requirement_table = 
60 # Avalon Role | Slave | Master | Width Requirement 

Width Default 

# + + + 



"elk 


1 input 1 


input 1 


\$W == 1 


\$W = 1, 








resetn 


1 input 1 


input 1 


\$W == 1 


\$W = 1, 








alwaysO 


1 input 1 


input 1 


\"Any width OK\ " 


\$W = \" \" , 








always 1 


1 input 1 


input 1 


\"Any width OK\ " 


\$W = \"\" , 








writen 


1 input 1 


output 1 


\$W == 1 


\$W = 1, 








readn 


1 input 1 


output 


\$W == 1 


\$W = 1, 








byteenablen 


1 input 1 


output 1 


\$W <= 4 


\$W = 4, 








waitreqiiest 


1 output 1 


input 1 


\$W == 1 


\$W = 1, 








irq 


1 output 1 


input 


1 \$W == 1 


\$W = 1, 








irqnumber 


1 N/A 1 


input 


1 \$W <= 6 


\$W = 6, 








chipselect 


1 input 1 


N/A 


1 \$W == 1 


\$W = 1, 








regis teredselectn 


1 input 1 


N/A 


\$W == 1 


\$W = 1, 








if etch. 


1 input 1 


output 


1 \$W == 1 


\$W = 1, 








memis32bits 


1 N/A 1 


input 


1 \$W == 1 


\ 5w = 1 

\ ^ W — J- / 






1 \$w <= \$\$Sys{master_data_width} 


datia 


1 inout 


1 N/A 


\$W = \$\$Sys {master^ 


data^width} 






readdata 


1 output 1 


input 1 


\$W == \$\$Mod{Data_Width} && 








\$W <= \$\$Sys {master_.data_width} 


\$W = \$\$Mod{Data_Width} , 






writedata 


1 input 1 


output 


\$W == \$\$Mod{Data_Width} && 








\$W <= \$\$Sys{master_data_width} 



\$W = \$\$Mod{Data_Width} , 

address \ input ] output | \$W > 0 && 

\$W <= \$\$Sys {master_address_width} | 

\$W = \$\$Mod{Address_Width} , 

n , 

# Turn our pretty text-table into a bunch of code-useful hashes: 
# 

#now some hashes; 
my %required_slave_dir ; 
my %required_master_dir ; 
my %width_requirement ; 
my %width_def ault ; 

$recxuirement_table =- s/\s+/ /sg; 

foreach $req (split ( / \s*\ , \s* /s , $requirement_table) ) 
{ 

my {$role, $slave_dir, $master_dir, $width_condition, 

$width_def ault_string) = 

split {/\s*\ I \s*/s, $req) ; 

$required_slave_dir {$role} = $slave_dir unless $slave_dir eq "N/A" ; 
$required_master_dir {$role} = $master_dir unless $master_dir eq "N/A" ; 
$width_requirement {$role} = $width_condition; 
$width_def ault {$role} = $width_def ault_string; 

} 



my %return_hash; 

$retum_hash ( reauired_s lave_dir } = \ %reciuired„s lave_dir ; 
$retum_hash{required_master_dir} = \%required_master_dir ; 
$return_hash{width_requireinent } = \%width_requirement ; 
$retum_hash{width_default} = \%width_def ault ; 

return ( \%retum_hash) ; 

} 

################################################################ 

# Check_Avalon_Rules 
# 

# Given a (the?) system-hash, this function loops over the 

# data structure module -by-module and port-by-port and checks 

# that no system-level Avalon rules have been violated. 
# 

# These are rules like: All " chipselect " -type ports on a module must 

# be 1 bit wide, all "address" -ports must be inputs, and all 

# data ports must be narrower than the masters' . 
# 

# This function replaces the section of inline-code formerly 3cnown 

# as "The Parade of the Port Types." 
# 

################################################################ 

sub Check_Avalon„Rules 

{ 

my ($Sys) = (@_) ; 

my $requirement_hash_table = &Get_Avalon_Requirement_Table ; 

my %re<iuired_slave_dir = % {$requirement_hash_table-> {required_slave_dir} } 
my %required_master_dir = % {$requirement_hash_table-> {required_master_dir} 
my %width„requirement = % { $reciuirement_hash_table->{width_req:uirement } } ; 
my %width_de fault = %{ $reciuiremen t_hash_t able- >{width_def ault }} ; 

# Now consider each avalon-port on each module 

# and see if it lives up to our expectations. 

# If port is not defined, set it to default value. 

foreach $Mod (&Get_Sys_Module_List ( $Sys ) ) 
{ 

my $avalon_port_table = $$Mod{avalon_port_table} ; 

foreach $role (keys (%$avalon_port_table) ) 

{ 

my $Port = $ $avalon_jport_t able {$ role} ; 
my $W = $ $Port {width} ; 

my $required_dir = $$Mod{Is_Bus_Master} ? \%reciuired_master_dir : 

\%required_slave_dir ; 

#set default width 
eval ($width_default{$role} ) 
if ($W eq "") ; 

#set default direction 

$$Port {direction} = $$required_dir { $role} 
if ($$Port {direction} eq ""); 

die " 

Illegal avalon-role : $role 

for port $$Port{name} on module $$Mod{name} . " 
if ( ! $$required_dir {$role} ) ; 



die " 

Illegal direction: $$Port{direction} . 
Expected: $$reciuired_dir { $role} 
for port $$Port {name} on module $$Mod{name} . " 
if ($$Port {direction} ne $$required_dir { $role} ) ; 

my $width_ok = eval ( $width_requirement { $role} ) ; 

die "Bad check-expression: $width_requirement { $role} ($@)" if $@; 

die " 

Illegal width: $W 

for port $$Port{name} on module $$Mod{name} . " 
if ( ! $width_ok) ; 

################ 

# Per-port Consistency-checks 
# 

# Does this port agree with things that were said in the 

# module ' s SBI section? 
# 

if ($role /data$/) { 

$$Mod{Data_Width} == $$Port {width} or die " 

Width of data port $$Port{name} ( $$Port {width} ) is inconsistent 
with 'Data_Width' setting for module $$Mod{name} . " ; 

} 

if ($role eq "address") { 

$$Mod{Address_Width} == $$Port {width} or die " 

Width of address port $$Port{name} { $$Port {width} ) is 
inconsistent with ' Address_Width ' setting for 
module $$Mod{name} . " 

} 



# Half -clock hold-time only allowed with zero setup-time: 
if ( ($$Mod{Hold_Time} /half/)) { 

$$Mod{Setup_Time} == 0 or die " 

Error in module $$Mod{name} : half -clock •Hold_Time' setting 
allowed only if 'Setup_Time' is 0 (zero)."; 

} 

next if $$Mod{Is_Bus_Master} ; # The following checks are for mere slaves. 

################ 

# Funny Setup/Hold Rule 
# 

# Here ' s the rule : 
# 

# --If you have a nonzero ho Id- time, then you get a nonzero 

# setup-time, whether you asked for one or not. 
# 

# Here ' s the explanation : 
# 

# You may recall that the masters' readn- and writen- signals come 

# directly from the Q-output of registers. Timing-wise, this is 

# a good and happy thing. Peripherals which don't explicitly request 

# setup/hold times get the masters' registered strobe signals, and 

# life is good. 
# 

# But now consider the plight of the poor module who requests 

# setup/hold time. Necessarily, he now gets his own customized 



# (narrower) version of the read- and write-strobes . It would be 

# oh-so-nice if his custom strobes also came directly from Q-outputs 

# of registers. (And, I note, it would also make the 

# strobe-customization logic easier for your humble implementor) . 

# So now we have the custom readn- and writen-strobes coming from 

# register outputs. But, obviously, this happy register introduces 

# a one-clock delay between the time we decide to assert the custom 

# strobe and the time it gets asserted. That's fine--we have 

# (at least) one clock-cycle of slack before we need to assert the 

# strobe--as long as there's a (nonzero) setup-time. That gives 

# us the clock we need to "customize" and still have a register. 

# So. Phrased concisely: 
# 

# Custom strobes want registers 

# registers imply delay 

# nonzero setup- time accomodates delay 
# 

# --> custom strobes need a nonzero setup-time. 
# 

# We print a warning when we encounter such a case . 
# 

if ( ($$Mod{Setup_Time} == 0) && 

($$Mod{hold_time_full„clocks} > 0) 
) 

{ 

$$Mod{Setup_Time} = 1; 
warn ( " 

Setup-time (1 clock) automatically added for module $$Mod{name} . 
Modules with nonzero hold- time automatically get at least 
one clock of setup-time . \n 

") ; 

} 

# Some extra module- level consistency- checking between 

# "System Builder Info" and port-types. 
# 

&:Validate_And_Reserve_Address_Range ($Mod, SSys) ; 

die "Module $$Mod{name} ' Has_IRQ ' , but no pin is of type 'irq'." 
if $$Mod{Has_IRQ} && ! $$avalon_port_table{ irq} ; 

die "Module $$Mod{name} has an irq-pin, but ' Has_IRQ ' is FALSE." 
if ! $$Mod{Has_IRQ} && $$ avalon_port„t able { irq} ; 

die "Module $$ModCname} has word-alignment , but master is not 32 bits, 
if ($$Mod{address_type_used} eq "word" && 
$$Sys {master_data_width} < 32 ) ; 

die "Module $$Mod{name} : Data is too wide for dynamic alignment," 
if ($$Mod{is_dynamically_sized} && 

$$Mod{Data_Width} > ( $$Sys {master_data_width} / 2) ); 

die "Module $$Mod{name} : must set SBI/Uses_Registered_Select_Signal . " 
if ( 1 $$Mod{Uses_Registered_Select_Signal} && 
$$avalon_^ort_table{registeredselectn} ) ; 

die "Module $$Mod{name} : peripheral controlled wait \n" . 
"not supported for registered chip selects\n" 
if ( $$Mod{Uses_Registered_Select_Signal } && 

( ($$Mod{Read_Wait_States} /peripheral_controlled/i) | | 
($$Mod{Write_Wait_States} =- /peripheral_controlled/i) ) 
) ; 



#hold time means theres a setup time, 

die "Module $$Mod{name} : peripheral controlled wait not\n" . 

"supported for peripherals with non-zero setup ajid/or hold times \n" 
if ( {$$Mod{Setup_Time) ) && 

( {$$Mod{Read__Wai testates} =- /peripheral_controlled/i) || 
($$Mod{Write_Wait_States} =- /peripheral_.controlled/ i) ) 
) ; 

die "Module $$Mod{name} : can't find ' registeredselectn ' -type port." 
if ( $ $ModCUses_Registered_Select_Signal } && 

! $$avalon_port_table {registeredselectn} ) ; 

my $Port_writen = $$avalon^ort_table {writen} ; 

die "Module $$Mod{name} : shared writen port illegal if setup/hold > 0." 
if ($$Port_writen{is_shared} && 

($$Mod{Setup_Time} + $ $Mod { ho ld_time_.full_c locks} > 0) ); 

my $Port_readn = $$avalon_port_table{readn} ; 

die "Module $$Mod{name} : shared readn port illegal if setup/hold > 0." 
if ($$Port_readn{is_shared} && 

($$Mod{Setup_Time} + $$Mod{hold_time_full_clocks} > 0) ); 

# ... Add more, please. . . 

# Check: 

# Uses_Registered„Select_Signal vs. actual "registeredselectn" ports. 

# Uses_Tri_State_Data_Bus vs . actual shared/data ports . 

# if principal bus declared, system -should- have tri-state busses. 

# principal tri-state bus must be as wide as CPU. 

# if we have principal bus, at least one module must be on it. 

# You may -not- have shared readn/writen signals with nonzero 

# setup/hold times . 

# system data width should be only -exactly- 16 or 32. 
} # End: $Mod-loop 

} 

################################################################ 

# Create_System„Port_Ijists 
# 

# Given a reference to a (the?) system-hash, this function 

# builds a "List_Ports_For-" definition of the system-module 

# and the PBM. 
# 

# For the most part, this is easy: We look through the list of all ports 

# on all modules. If any have an avalon-role, then their complement 

# shows up on the PBM. If any are "external", then they show up on 

# the system module. 
# 

# The one nasty little wrinkle is shared-ports. We have kept a separate 

# record of all shared ports, and now we use it to compute the appropriate 

# width — then we can add the shared ports to both the PBM and system modules . 
# 

# And then shared ports have one more trick: The width of shared address 

# ports. For most shared ports, the width is just the width of the largest 

# client. For address ports, we need to take -alignment- into account. 
# 

################################################################ 

sub Create„System_Port_Ijists 

{ 

my ($Sys) = (@_) ; 

# The elk and reset_n ports are magic. They -always- appear 



# on both the system and the PBM. 
# 

$$Sys{pbm_list_ports_for_string} = "elk | 1 | input, 

reset_n j 1 | input,"; 
$$Sys{system_list _ports_f or_string} = $$Sys {pbm„list_ports_f or_string} ; 

foreach $Mod (&Get_Sys_Module_Iiist ( $Sys ) ) { 

foreach $Port {&Get_Module_Port_Iiist ($Mod)) 
{ 

next if $$Port {is_shared} ; # Do shared ports later. 

if ( $$Port {avalon_role} ) 
{ 

my $pbm_port_dir = $Complementary_Direction { $$Port {direction} } ; 
my $pbm_port_description = 

" $$Port {system_signal} | $$Port {width} | $pbm_port_dir, " ; 

$$Sys{pbm_list_ports_f or„string} .= $pbm_port_de script ion; 
$$Sys{system_list_ports_f or_string} . = $pbm_:port_description 
if ( ! $$Mod{Instantiate_In_System_Module} ) ; 
} else { 

# OK, this port doesn't have an avalon role. For 

# externally-instantiated modules, we just ignore it. 

# for internally-instantiated modules, we promote it 

# to a top-level system port with the -same- direction 

# as the port on the module. 
# 

# All non- aval on -type ports must be external 
$$Sys {system_list__ports_f or_string} . = 

"$$Port{system_signal} | $$Port {width} | $$Port {direction} , " 
if ($$Mod{Instantiate_In_System_Module} ) ; 

} 

} # End: $Port-loop 
} # End: $Mod-loop 

################ 

# Now do the shared ports. 

# 

my $shared__port„table = $$Sys { shared__port_table} ; 

foreach $shared_port_name (keys {%$shared_port_table) ) 
{ 

my $client_list = $$shared_port_table { $shared_port_.name} ; 

# Look at all the clients. Build-up enough information 

# to calculate the port-width (below) . Also, check that 

# all the clients have a consistent direction, avalon-role, etc, 
# 

my $client_dir = " " ; 

my $shared__port_role = 

my $ shared_port_width = 0; 

foreach $client_port (@$client_list ) 

{ 

$shared_port_role = $$client_port {avalon_role} if ! $shared_port__role 
$client_dir = $$client_port {direction} if ! $client_dir ; 

$client_dir eq $$client__port {direction} or die " 

Shared port $shared port name has client SSclient port{name} 
(direction is $$client_port {direction} ; expected $client_dir) . 

$shared_port_role eq $$client_port {avalon_role} or die " 

Shared port $shared_port_name (role: $shared__port__role) has 



client $$client_port{name} (role: $$client_port {avalon_role} ) . 



################ 

# Computing the width is tricky, but only for address ports. 

# For everybody else, it's just the width of the widest client. 

# For address ports, we have to take into account the fact that 

# -all- shared address ports present the full byte-address, 

# all the way down to A[0] (even if none of the clients use 

# A[0]) . Thus, the width of the shared port might be greater 

# than the width of any (all) of the client address ports. 
# 

if ($shared_port_role eq "address") 
{ 

# Address port. Now we must inquire about its ancestry: 
my $parent_module = $$clientjort {parent } ; 

my $net_width = $$parent_module{highest„address_bit_used} + 1; 

$shared_port_width = $net_width 

if $net_width > $shared_port_width; 
} else { 

# Normal, non-address port: Width is just the max of clients: 
# 

$shared_port_width = $$client_port {width} 

if $$client_port {width} > $shared_port_width; 

} 

} # End: Client-port loop. 

################ 

# Shared data-bus ports. 

# . -,-1 

# There's one weird circumstance where a shared-port is actually 

# wider than the max of its clients: When it's the main 

# tri-state data bus to the CPU. In this one case, the bus 

# must be at least as wide as the CPU 
# 

if ( ($$Sys{Principal_Tri_State_Data_Bus} ) && 
($shared_port_role eq "data" ) && 

($shared_port_name /-$$Sys {Principal„Tri_State_Data_Bus} / ) ) { 
$shared_jport_width = $$Sys{master_data_width} ; 

} 



# Shared ports always have an avalon-role, so they always show up 

# on the PBM as the -complimentary- match for the client -port . 

# also, shared ports are always external, so they are always promoted 

# to like-named system-level ports. 
# 

my $shared_port_dir = $Complementary_Direction{ $client_dir } ; 

my $shared_^ort_description = 

" $shared_port_name | $shared__port_width | $shared_jport_dir, " ; 

$$Sys{pbm_list_^orts_for_string} .= $ share dj)ort__de scrip t ion ; 
$$Sys{system_list_ports_for_string} ,= $shared_port_description ; 

} 

# We've built those nice list-ports-f or string, so let's use 'em: 
# 

£cList_Ports_For ($$Sys{name} , $$Sys {system_list^orts_f or_string} ) 

&List_Ports_For ( $$Sys {core_name} , $$Sys {system_list_jports_f or_string} ) 
&List_Ports_For ( $$Sys {pbm„name} , $$Sys {pbm_list_ports_f or_string} ) 



################################################################ 



# Core_Emit_Wire_DecTarations 
# 

# The system's "core" module is just a bunch of instances all wired-up 

# together. Some "wires" in the core-module are actually external 

# ports, so they're already declared in the cores' module 

# declaration. Other "wires" are actual Verilog wires which we 

# need to declare. They are the internal (module-to-module) signals 

# which are never seen from the outside. 
# 

# This function emits wire-delcarations for all the internal signals. 
# 

# It's easy to identify all the internal signals: there's one for 

# every module-port scoped "internal" or "master" — in other words, 

# there's a core-level wire for every non-external port on every 

# module in the system. That makes it pretty easy: 
# 

################################################################ 

sub Cor e_Emit_Wire_Declarat ions 

{ 

my {$Sys) = (@_) ; 

foreach $Mod (&Get_Sys_Module_List ( $Sys) ) { 

foreach $Port (&Get_Module_Port_List ($Mod)) 
C 

next if $$Port {is_extemal} ; 
my $range = &W($$Port {width} ) ; 

&Vprint ("wire $range $$Port {system_signal} ; \n" ) ; 

} 

} 

} 

################################################################ 

# Core_Emit_Instances 
# 

# The system's core-module is a bunch of instances all wired-up 

# together. This function emits the instantiation-statements 

# for all system-modules, including the PBM. 
# 

# In general, any given port on a module does not necessarily 

# connect to a core-level signal (wire) of that same name. 

# The correspondence of what-signal-goes-to-what-port , though, 

# is built-in to the %Sys-database hash. We extract this 

# information and use it to instantiate each module in the 

# system. 
# 

################################################################ 

sub Core__Emit_Instances 

{ 

my ($Sys) = (@_) ; 
################ 

# Start with an instcintiation of the PBM. 
# 

# Note that the PBM doesn't appear on the system's {module_table} . 

# Note also that all the ports on the PBM -do- connect to like-named 

# signals at the core-level. This makes instantiation a snap: 

&Instantiate_And_Connect ( $$Sys {pbm_name} , " the_$$Sys {pbm„name} " ) ; 
################ 

# Now instantiate all the "regular" modules. But, before we do, 

# go through their ports and build up a correspondence ("exception") 

# table: 



# 

foreach $Mod {&:Get_Sys_Module_List ( $Sys) ) 
{ 

# Skip external modules, of course. 

next unless $$Mod{Instantiate_In_System_Module} ; 

my $list_ports_f or_string = ""; 
my %except; 

undef %except; # Superstition. I have no idea if this is called-for. 

foreach $Port ( &Get_Module__Port_List {$Mod) ) 
{ 

$except {$$Port{name) } = $$Port {system_signal) ; 
$list_ports_f or_string .= " 

$$Port{naine} \ $$Port {width} | $$Port {direction} ; 

} 

&Ijist_Ports_For ( $$Mod{name} , $list_ports_f or_string) ; 

&Instantiate_And_Connect {$$Mod{name} , " the_$$Mod{name} " , " " , \%except) 

} 

} 

################################################################ 

# PBM_Emit„Dynamic_Bus_Sizer 
# 

# The dynamic bus-sizer makes any narrow peripheral "look like" 

# it's full-width memory. For example, if you connect an 8-bit 

# memory device to a 32-bit master using DBS, the CPU will "see" 

# a full 32-bit value every time it does a LD- from the device. 
# 

# This is accomplished, of course, through a bunch of sequential 

# logic (the DBS) , which (in this example) fetches four successive 

# bytes from the memory, assembles them into a full-width word, 

# and presents it to the CPU (all the while the CPU has been held 

# in a wait-state, of course) . 
# 

# A similar thing happens during write-operations . When 

# writing a 32-bit value to 8-bit memory (for example) , the CPU will 

# wait while we execute four successive write-operations to the 

# memory. The DBS-logic is sensitive to the fact that sometimes 

# the CPU will execute a narrow-write (e.g. a byte-write) . In these 

# cases, the DBS-logic is smart enough to execute only one 

# write-cycle. 
# 

# Note that all of our "successive read operations" or "successive 

# write operations" are subject to the bus -timing (wait states, 

# setup/hold-times, etc.) for the target peripheral. In other words, 

# each sub-operation of the DBS-ijmit is a full-fledged bus transaction 

# controlled by the wait- state generator. You could, then, think 

# of the DBS-operation being "laid on top of" the regular wait-state 

# logic - 
# 

# FYI, dynamic bus sizing is very handy for memory-type devices, 

# but doesn't make much sense for register-controlled peripherals 

# (e.g. UARTs) . 
# 

# This function here creates the dynamic bus-sizing logic. 

# Note that there are, really, two independent DBS-units--one 

# of which handles byte-wide peripherals, the other handles 

# halfword-wide peripherals, 
# 

# KNOWN LIMITATION: 
# 



# If you have an 8-bit memory and you do a 16-bit write to it 

# (any ST16 instruction) — you lose. 

# 3 out of 3 engineers agree that DBS should handle this case. 

# I'll do it when everything else works 
# 
# 

sub PBM_Emit_Dynamic_Bus_Sizer 
{ 

my {$Sys) = (@_) ; 

&Emit_Comment ("\n Dynamic Bus Sizing \n" ) ; 
################ 

# First, gather-up a list of all dynamically-sized modules. 

# segregate by 8- and 16-bits wide: 
# 

my @dbs_8_modules = ( ) ; 
my @dbs_16_modules = (); 

foreach $Mod (&Get_Sys_Slave_List ( $Sys) ) 

next if !$$Mod{is_dynamically_sized} ; # Dynamic-only, please, 

5 if ($$Mod{Data_Width} <= 8) { 

push (@dbs_8_modules , $Mod) ; 

} elsif ($$Mod{Data_Width} <= 16) { 
push (@dbs_16_modules, $Mod) ; 

3 } 



################ 

5 # Or-together relevant peripherals' active signals. This 

# tells us "when to go." 
# 

# The result is a signal called "dbs_active, " which 

# is true whenever the currently-selected (active) peripheral 
0 # uses dynamic bus-sizing. 

# 

# Note that this is -not- a state- or sequencing-bit. It 

# doesn't "say" where in the DBS-process we are. We have other 

# bits, later, which do that. 
45 # 

# We start the active-list off with "I'bO" as a trick to make everything 

# work out, even when the lists are empty. 
# 

my @dbs_8_active_signals = ("I'bO"); 
50 my @dbs_16_active_signals = ("I'bO"); 

foreach $Mod ( @dbs_8_modules ) 

{push (@dbs„8_active_signals, $$Mod{intemal_active_signal} ) } 
foreach $Mod ( @dbs_16_modules) 
55 {push ((adbs_16_active_signals, $$Mod{internal_active_signal } ) } 

ScPBM_Assign ( " dbs_8_active" , join (" 1| ", @dbs_8_active_signals) ) 

&PBM_Assign* ( "dbs_16_active" , join (" || ", @dbs_16_active_signals) ) 

&PBM_Wire ( "dbs„active" , 1, "dbs_8_active || dbs_16_active" ) 



60 



################ 
# Sequencing. 
# 



# We need to answer two questions: 
# 

# 1) When do we start a DBS-operation? 

# 2) When do we "advance" to the next sub-operation (chunk)? 
# 

# Well, we start a new operation (1) when: 

# la) The active peripheral needs dynamic bus-sizmg. 
# 

# lb) It's the start of a new bus -transaction 

# (indicated by the "bus_transaction_start " signal, 

# which is computed by the wait-state generator. 

# ... 

# Ic) There's not some other special, weird cicriomstance — iiKe 

# narrow writes or "if etch" going on which preclude the 

# need for a dynamic operation. 

# . ^ V. 

# And we advance to the next chunk (2) at the end of each 

# bus cycle. Happily, the wait-state generator also indicates 

# this by computing the signal "bus_cycle_end" , 
# 

&PBM_Wire ( "bus_cycle_end" ) ; # Declared here, computed later, 

ScPBM.Wire ("bus_transaction„start") ; # Declared here, computed later. 

my $be_bus = &Get_Sys_Signal( $$Sys {master} , "byteenablen" ) ; 
&:PBM_Wire ( " write_is_narrow" , 1 , 
" I " . $be_bus) ; 

if ($$Sys{master_data_width} ==32) { 
&PBM_Wire ( " write_is_narrow_16 " , 1 , 

"write_is„narrow && ( ( $be_bus\ [3\] == $be_bus \ [ 2 \ ] ) && 

($be_bus\ [1\] == $be_bus\[0\] ) )" 



&PBM_Wire ( " dbs_8__half _start " , 1 , " 

dbs_8_active 

bus_transaction_start && 
(write„is_narrow_16) " ) ; 



ScPBM_Wire ( " dbs_8_f ull„start " , 1 , " 

dbs_8_ac t ive && 

bus_transaction_start && 
(-write_is_narrow) " ) ; 

my $ifetch_signal = &Get_.Sys_Signal ( $$Sys {master} , if etch) ; 
&PBM_Wire ( "dbs_16_start " , 1 , " 

dbs_16__active && 
bus_transaction_start && 
(-$if etch_signal) 
(-write_is_narrow) "); 

################ 

# Sequencing registers 
# 

# Here are the signals we must come up with: 
# 

# dbs_8_byte_{0,l,2,3} 

# dbs_.l 6_ha 1 f word__ {0,1} 
# 

# — and— 
# 

# dbs_8_write„byte_{0, 1,2,3} ("0" not actually produced) 



dbs_16_writ^^lfword_{0,l} ("0" not actually pr^^ed) 

(I think, in the absence of narrow writes, these are just 
equivalent to the non-write versions) . 

dbs_wait„asserted 

@dbs_wait_asserted_terms = ("I'bO"); # "I'bO" fixes empty list. 

(scalar (@dbs__8_modules) ) 

# How many additional bus cycles? 3 or 1, for 32- and 16-bit masters. 

# These cases are similar-enough that it's tempting to make 

# one piece of code that builds both, but I'm just going to break 

# them into separate cases for clarity: 
# 

if ($$Sys{master_data_width) == 32) 
{ 

&PBM_Wire ( " dbs_8_byte_3 " ) ; 
5cPBM_Wire ( " dbs_8_by te_l " ) ; 

ScDelay ("out = dbs_8_state_byte_3 , 

sync_set = dbs_8_full_start , 
sync„reset = bus_cycle_end, 
reset = , 

") ; 

&Delay ("out = dbs_8_byte_2 , 

in = dbs_8_state_byte_3 , 

enable = bus_cycle_end, 

reset = , 

" ) ; 

# Two versions of byte-1 signal, because it can be set from 

# two different sources: The continuation of a 4-byte 

# operation, or the start of a two-byte operation. 
# 

ScDelay ("out = dbs_8_continue_byte_l , 

in = dbs_8_byte_2 , 

enable = bus_cycle_end, 

reset = , 

&Delay ("out = dbs_8_state_byte_l , 

sync_set = dbs„8_half_start , 
sync_reset = bus_cyc legend, 
reset = , 

") ; 

ScDelay ("out = dbs_8_byte_0 , 

in = dbs„8_continue_byte_l | \ dbs_8_state_byte_l , 

enable = bus_cycle_end, 

reset = , 

") ; 

&PBM_Assign ( "dbs_8_byte_3 " , " dbs_8_f ull_start | | 

dbs_8_state_byte_3 " ) ; 

&PBM_Assign ( " dbs_8_by te_l " , "dbs_.8_half_start | | 

dbs_8_state_byte_l | j 
dbs„8_continue_byte_l " ) ; 

&PBM_Wire ( "dbs_8„wait_asserted" , 1, 

"dbs_8_byte„3 1| dbs_8_byte_2 || dbs_8_by te_l " ) ; 



} else { 

# 16-bit master 



&PBM_Wire ( " dbs_8_by te_l " ) ; 



dbs_8_state_byte_l , 
dbs„8„f ull„s tart , 
bus_cycle_end , 



dbs_8„byte_0 , 
dbs„8_state_byte_l , 
bus_cyc 1 e_end , 



&:Delay ( " out 

sync_set 
sync_reset 
reset 
") ; 

&Delay ("out 
in 

enable 
reset 
") ; 



&PBM_Assign { "dbs_8_byte„l " , "dbs_8_f ull_start 



# Pedcintic renaming for documentary purposes 
# 

&PBM_Wire ( " dbs„8__wait_asserted" , 1 , " dbs_8_byte_l " ) ; 



I dbs_8_state_byte_l " ) 
I hope you ' re happy . 



} 



push {@dbs_wait_asserted_terms, "dbs_8„wait_asserted" ) ; 
} # End: registers for dbs_8_modules 

if (scalar (@dbs_16_modules) ) 
{ 

&PBM_Wire ( "dbs_16__halfword_l" ) ; 



dbs_16_state_halfword_l , 
dbs_16_start , 
bu s_cy c 1 e_end , 



dbs_16_half word_0 , 
dbs_16„state_half word_l , 
bus_cycle_end , 



ficDelay ("out 

sync_set 
sync_reset 
reset 
") ; 

&Delay ( "out 
in 

enable 
reset = , 

") ; 

&PBM_As s ign ( " dbs_l 6_hal f word_l " , 

"dbs_16_start | | dbs_16„state_halfword_l " ) ; 

# Pedantic renaming for documentary purposes. I hope you're happy, 
# 

&PBM_Wire ( " dbs_16_wait_asserted" , 1, "dbs_16_halfword„l" ) ; 
push (@dbs_wait„asserted_terms, " dbs_16_wait_asserted" ) ; 



&PBM„Wire ( " dbs_wait_asserted" , 1, join(" || @dbs_wait_asserted_terms) ) 

################ 

# Address -output 
# 

# The DBS-unit, of course, has to compute "altered" addresses 

# for presentation to the client peripherals. We compute 

# separate altered addresses for the DBS-8/16 xinits . 
# 

# We also compute a "mixed" version of the address, which we 



# make available to shared busses which contain -both- dynamically-sized 

# 8- and 16-bit peripherals (I expect most systems will have no such 

# bus, but we compute the address for it here, anyhow) . 
# 

# Of course, these addresses only differ in the low bit{s) 

# from the original address. 
# 

my $sys_addr_signal = &Get_Sys_Signal ( $$Sys {master} , "address"); 

if (scalar {@dbs_8_modules) ) 
{ 

# We alter the low 1 or 2 address bits, depending on whether this 

# is a 16- or 32-bit system: 
# 

if ($$Sys{master_data_width} == 16) 
{ 

$address_lsbs_width = 1; 

ScMux ( "dbs_8_address„lsbs, type=unary, declare=l, w=l, 

dbs_8_byte_l — > I'bl, 
dbs_8_byte_0 --> I'bO, 

— > $sys_addr_signal\ [0] , 

") ; 

} else { # 32 -bit system 
$address_lsbs_width = 2 ,- 

ScUux {"dbs_8_a0, type=unary, declare=l, w=l, 

dbs_8_byte_3 --> I'bl, 
dbs_8_byte_2 — > I'bO, 
dbs_8_byte_l — > I'bl, 
dbs_8_byte_0 — > I'bO, 

— > $ sy s_addr_s i gna 1 \ [ 0 ] , 

") ; 

# For 32-bit systems, we want to leave bit 1 of the address 

# alone whenever this is a "narrow_16" access, 
ScMux ( "dbs__8_al„raw, type=unary, declare=l, w=l, 

dbs_8_byte_3 — > I'bl, 
dbs_8_byte_2 — > I'bl, 
dbs„8_byte_l — > I'bO, 
dbs_8_byte_0 — > I'bO, 

--> $sys_addr_signal\ [1] , 

") ; 

ScMux ("dbs_8_al, type=unary, declare=l, w=l, 

write_is_narrow_16 --> $sys_addr_signal\ [ 1] , 

— > dbs_8_al_raw" ) ; 

&PBM_Wire ( "dbs_8_address_lsbs" , 2 , " {dbs_8_al , dbs_8_a0 } " ) ; 

} 

my $high_range = " $$Sys {master_address_width} - 1 : $address_lsbs_wi 
my $high_segment= " $sys_addr_signal \ [ $high_range] " ; 

&PBM_Assign ( "dbs_8_address " , " { $high_segment , dbs_8_address„lsbs } " ) 

} 

if {scalar (@dbs_16_modules) ) 
{ 

# This must be a 32-bit system, and we alter address-bit 1. 

# Note that, by definition, this is a half word-aligned 

# address, so A[0] is niether computed nor distributed 

# with this address. 
# 

ScMux ( "dbs_16_address„lsb, type=unary, w=l, declare=l. 



dbs_16_halfword_l --> I'bl, 
dbs_16_halfword_0 — > 1 ' bO , 

--> $sys_addr_signal\ [1] , 

") ; 

&PBM__Assign ( "dbs_.16_address" , "{ 

$sys_addr_signal \ [ $$Sys {master_address_width} -1 : 2], 
dbs_16_address_lsb} " ) ; 

} 

# Create a verison of "adjusted" address suitable for any occasion, 

# no matter what dynamic operation is (or is not) in process. This 

# address value gets distributed on shared address ports . 
# 

# Note that, at least, this mux does collapse to something simpler 

# (trivial) if we don't have any dynamic peripherals, or if one class 

# (8/16) is entirely missing. That's thanks to the "I'bO" trick, above. 
# 

&Mux ( " dbs_adjusted_address , 
type = unary, 

w = $$Sys{master_address„width} , 
dbs_8_active — > dbs„8_address , 
dbs_16_active — > ( {dbs_16_address , I'bO}), 
— > $sys_addr_signal , 

") ; 

################ 

# Read-data — registers and as sembled- output . 
# 

&PBM_Wire ( "bus_cycle_da t already ") ; # declared here, computed later. 

if (scalar (@dbs_16__modules) ) 
{ 

&Delay ("out = held_halfword_l , 

in = dbs_16_muxed_input , 

w = 16, 

enable = (dbs_16„halfword„l &&: bus_cycle_data_ready) , 
reset - , 
") ; 

5cPBM_Assign ( "dbs_.16_output " , " {held_halfword_l , dbs_16_muxed_input } " ) 

} 

if (scalar (@dbs_8_modules) ) 
{ 

&Delay ("out = held_byte_3 , 

in = dbs_8_muxed_input , 

w =8, 

enable = (dbs_8_byte_3 && bus_cycle_data_ready) , 
reset = , 
") 

if ($$Sys{master_data_width} == 32); 

&Delay ("out = held_byte_2, 

in = dbs„8_muxed_input , 

w = 8, 

enable = (dbs_8_byte_2 && bus_cycle_data_ready) , 
reset = , 
") 

if ($$Sys{master_data_width} == 32); 

ScDelay ("out = held_byte_l, 

in = dbs_8_muxed_input , 

w =8, 



enable = (dbs„8_byte_l && bus_cycle_data_ready) , 
reset = , 
") ; 

if {$$Sys{master„data_width} == 32) 
{ 

&PBM_Assign ( " dbs_8_output " , 

" {held_byte_3 , held_byte_2 , held_byte_l , dbs_8_muxed_input } " ) 

} else { 

&:PBM_Assign ( " dbs_8_output " , 

" { held_by te_l , dbs__8_miixed_input } " ) 

} 

} # End: if ( scalar ( @dbs_8„modules ) ) 

################ 

# Write-data 
# 

# Selection -mux to pick the correct segment to send. 

# This is all pretty easy, once you've got the write-control 

# signals { dbs_8_by te_3 , etc) all figured-out. 
# 

# For now, the read- and write- phase control signals (e.g. 

# dbs_8_byte_3 and friends) are the same. In the future, it might 

# be beneficial to remove the "narrow-write" exclusion- term from the 

# read-phase-control signals, but leave it in the 

# write-phase-control signals. For today, narrow writing is a 

# term in both phase-control signals— BECAUSE THEY'RE THE SAME: 
# 

my $sys_write„data = &Get_Sys_Signal { $$Sys {master} , "writedata" ) ; 

if (scalar (@dbs_16_modules) ) 

ScPBM„Wire ( "dbs_16_write_halfword_l" , 1, "dbs„16_halfword_l " ) ; 

&:M\ix ( "dbs_16_write_data, type = unary, w = 16, 

dbs_16_write_halfword_l — > ( $sys_write_data\ [31 : 16] ) , 

— > ( $sys_write__data\ [15:0]), 

") ; 

} 

if (scalar (@dbs_8_modules) ) 
{ 

if ( ($$Sys{master_data_width} == 32)) { 

ScPBM_Wire ( " dbs_8_wri te_byte_3 " , 1 , " dbs_8_byte_3 " ) ; 

&PBM_Wire ( " dbs_8_wri te_byte_2 " , 1 , " dbs_8_byte_2 " ) ; 

} 

&PBM_Wire ( " dbs_8_wr ite_byte„l " , 1 , " dbs_8_byte_l " ) ; 



my $mux_string = " " ; 

$m\ix_string .= "dbs_8_write_byte_3 — > ( $sys„write_data\ [31 : 24] ) , 

dbs_8_write_byte_2 — > ( $sys_write_data\ [23:16])," 
if $$Sys {master_data_width} == 32; 

$mux„string .= " dbs_8_write_byte_l — > ( $sys_write_data\ [ 15 : 8]), 

--> ($sys_write_data\ [ 7 : 0] ) , " ; 

&:Mux ("dbs_8_write_data, type = unary, w = 8, $mux_string" ) ; 

> 

# Create a verison of "adjusted" write-data suitable for any occasion, 

# no matter what dynamic operation is (or is not) in process. This 

# write-data value gets distributed on shared data busses . 
# 

# Note that, at least, this mux does collapse to something simpler 



# (trivial) if w^^on't have any dynamic peripherals, or if one class 

# (8/16) is entirely missing. That's thanks to the "I'bO" trick, above. 
# 

&:Mux ( "cibs„adjusted_write_data, 
type = unary, 

w = $$Sys {master_data_width} , 

dbs_8_active — > dbs_8_write_data, 
dbs_16_active — > dbs_16_write_data, 
--> $sys_write_data, 

") ; 

) 

################################################################ 

# PBM_.Emit_IRQ„Prioritizer 
# 

# Well, compared to the dyncimic bus-sizer, this is sure a piece 

# of cake. 
# 

# Given a %Sys-hash (reference) , we have to emit the requisite 

# IRQ prioritization logic into the currently-open file (which, we 

# presume, is the PBM verilog file) . 
# 

# We are responsible for driving two signals : 
# 

# 1) The masters' "irq"-type input, 

# 2) The rasters' " irqnumber " -type input. 
# 

# (1) is just a straight logical-or of all the periphs ' IRQ-outputs, 

# (2) is just an ordered priority-mux. 
# 

################################################################ 

sub PBM_Emit_IRQ_Prioritizer 

{ 

my ($Sys) = (©_) ; 

&Emit_Comment ( " \n IRQ Prioritizer \n"); 

my @irq_signals = ("I'bO"); # Trick makes it work when list is empty, 
my %irq_hash; # Keeps track of irq signals by number, so we can sort. 

foreach $Mod (&:Get_Sys_Slave_Iiist { $Sys) ) 
{ 

next if ! $$Mod{Has_IRQ} ; # that was a short trip. 

my $irq„signal = &Get_Sys_Signal ( $Mod, "irq"); 

$irq_hash{ $$Mod{IRQ_Number} } = $irq_signal; 
push (@irq_signals, $irq„signal) ; 

} 

&PBM_Assign ( &Get_Sys_Signal ( $$Sys {master } , "irq") , 
join (" II ", @irq_signals) ); 



# NOTE; We do not use the generator- library ficMux- function 

# because it doesn't retain the order of the terms. That's just 

# the way it works. That's OK: It's easy enough to just build 

# our own question-mark-colon expression: 
# 

my $mux_expression_string = " " ; 

foreach $irq_num (sort numerically keys (% irq hash) ) 
{ 

$mux_expression_string .= " $irq__hash{ $irq:_num) ? 6'd$irq:_num : " ; 

} 

$mux_expression_string .= " 6'd63"; # Default: lowest priority. 



&PBM_Assign (&Get_Sys_Signal ( $$Sys {master} , " irqnumber " ) , 
$miix_expression_string) ; 

# Mien Got, that was easy. 

} 

################################################################ 

# PBM_Emit_Simple_As s ignment s 

# At the top of the PBM module, there are a bunch of "simple" 

# assignments. These are, for the most part, statements which 

# "broadcast" master-outputs to various slave modules. For example, 

# the master control signals are "simply" assigned to many of the 

# slave modules. 
# 

# This function handles this issue role-by-role. 
# 

# Note that no special care is needed for shared busses, because 

# we've defined the utility function 6cPBM_Assign so that you can 

# call it multiple times to assign the same thing to the same 

# signal, and it does something smart (ignores redundant assignments) . 

# Thus, a shared byteenablen signal, for example, will get the masters' 

# byteenablen-output assigned to it multiple times, but it won't hurt 

# anything . 

# We -don't- connect writedata- or address-type ports for dynamically- si zed 

# peripherals. Those are generated in the DBS-unit . For the same reason, 

# we also don't assign address- or writedata- signals to shared busses, 

# because one of the clients might recjuire dynamic sizing. 

s ub PBM_Emi t_S imp 1 e_As s i gnmen t s 
{ 

my ($Sys) - (@_) ; 

# Lots of things connect to the master, so let's keep a ref to the 

# master's data, and its avalon-ports , handy: 
my $Master_Mod = $$Sys {master} ; 

my $master„avalon_table = $$Master_Mod{avalon_jport__table } ; 

&Emit_Comment ( " \nSimple assignments . 

Connect-up signals which pass unmolested from one PBM-port to another. 

&PBM_Wire ("reset", 1, " -reset.n" ) ; # Handy: Logic-true reset. 

################ 

# Start with the very-easiest avalon roles: 

# alwaysO, alwaysl, elk, and resetn 

# Even these are a little abnormal, because we have to deal with the 

# fact that there could be more than one of each type. 
# 

foreach $Mod (&Get_Sys_Module_List ( $Sys) ) { 

foreach $Port (ScGet_Module_Port_List ($Mod) ) 
{ 

if ($$port{avalon_role} eq "alwaysO") { 

&PBM_Assign ( $$Port {system_signal} , "{ $$Port{ width) ' bO} " ) ; 

} elsif ($$Port{avalon_role} eq "alwaysl") { 

&PBM_Assign ( $$Port {system_signal} , "{ $$Port {width} ' bl }" ) ; 

} elsif ($$Port{avalon__role} eq "elk") { 

ScPBM_Assign ( $$Port {system_signal} , "elk") ; 

} elsif ($$Port{avalon_role} eq "resetn") { 



ScPBM__Assxgn ( $$Port { system_signal } , "reset_n' ) ; 
) 

} 

} 

################ 

# Address-broadcast. 
# 

# Each peripheral with an address-port gets the appropriate 

# flavor of address — except, of course, dynamically- si zed peripherals, 

# which get a special address generated by ^ the DBS-unit. 

# The byte-enable control signals could, I suppose, be considered "part 

# of" the address, so they get assigned in this same loop. Once 

# again, byte-enables for dynamic devices are handled elsewhere. 
# 

# ! ! ! SUBOPTIMALITY NOTE 1 ! ! 

# ^ 

# Shared-busses are complicated, because it's a bit of an ordeal to 

# figure-out exactly -which- flavor of dynamic address they get — it 

# depends upon what's connected to them. If we were to do this in 

# some clever, optimal way, it would be a big hassle (trust me: a 

# great big hassle) . 
# 

# Instead, we always assign a dbs-adjusted 

# version of the address (which comes from logic) to shared address 

# ports. Even shared address ports that don't have any dynamically- si zed 

# clients on them. Thus, we sometimes introduce more logic-delay than 

# strictly necessary. Sue me. I'll fix it if it ever becomes a 

# problem. 

# 

my $byte_range„select = " $$Sys {master_address_width} -1 : 0"; 

my $halfword_range_select = " $$Sys {master_address_width} -1 : 1''; 
my $word_range_select = " $$Sys {master_address_width} -1 : 2''; 

ScEmit_Comment ( " \n Address-assignments\n" ) ; 

# Emit wire-declarations for DBS-generated addresses, whether we 

# need them or not. These get assigned-to when we build the 

# dynamic bus-sizers, but we (might) use them here: 

&PBM_Wire ( "dbs_16_address" , $$Sys {master_address_width} -1) 

&PBM_Wire ("dbs_8_address" , $$Sys {master_address_width} ) 

ScPBM^Wire ("dbs„adjusted_address" , $$Sys {master_address_width} ) 

foreach $Mod (&Get_Sys_Slave_List ( $Sys ) ) 
{ 

next if $$Mod{Is_Bus_Master} ; # Slaves only, please 

# Go ahead and hook-up the byte-enables . That's straightforward. 
# 

# Note: I may need to change this later to work with narrow writes 

# through the DBS-unit. 
# 

&:PBM_Assign ( &:Get__Sys_Signal ($Mod, "byteenablen" ) , 

&Get_Sys_Signal ( $Master_Mod, "byteenablen" ) ) ; 

my $source_signal = " " ; 

my $A_Port = &Get_Port_By_Role {$Mpd, "address"); 
next if ! $A_Port ; 



if ( $$A_Port { is_shared} ) 
{ 



# All sharea addresses are dbs-muxed. How suboptimal . 
$source_signal = "dbs_adjusted_address " ; 

} 

elsif ($$Mod{is_dynamically_sized} ) 
{ 

$source_signal = 

$$Mod(address„type_used> eq "byte" ? " dbs_8_address " 

"dbs_16_address " 

} else { # Non-dynamic address 



my $range_s elect = 

$$Mod{address_type_used} eq "byte" ? $byte_range_s elect : 

$$Mod{address„type_used} eq "halfword" ? $halfword_range_select : 

$ wo r d_r ange_s elect ; 

$source_signal = 

£cGet_Sys_Signal { $Master_Mod, "address") . " t$range_select] " ; 

} 

&:PBM_Assign (&Get_Sys_Signal ($Mod, "address"), $source_signal) ; 

} 



################ 

# Data-broadcast 
# 

# Pretty simple: Each peripheral gets a copy of the master's write-data, 

# unless it's dynamic — then it gets a special "tweaked" version of the 

# data. 
# 

# Shared data-ports could, in theory, have any kind of peripheral attached 

# to them, so they need to drive-out a fully "dynamically-adjusted" 

# version of the data suitable for the current occasion. Happily, the 

# DBS-unit computes this very thing for us. 
# 

# See the ! ! ! SUBOPTIMAL I TY NOTE! ! ! above for addresses. 

# The same thing goes here. We're penalizing the write-data path on 

# busses that may not have any dynamic clients at all. For now: 

# tough beans. For later, maybe we'll get more clever. 
# 

# Another slight suboptimality : The way this works, we drive data out 

# on -all- tri-state busses whenever the master does a write. This 

# might involve a slight waste of power, because we'll be wiggling I/O 

# pins more than strictly necessary. Again, tough beans. 
# 

5cEmit_Comment ( " \n Data-ass ignments\n" ) ; 

# Emit wire-declarations for DBS-generated write-data, whether we 

# need them or not. These get assigned-to when we build the 

# dynamic bus-sizers, but we (might) use them here: 
# 

&PBM_Wire ( " dbs_16_write_data" , 16 ) ; 
&PBM_Wire ( "dbs„8__write_data" , 8 ) ; 

&PBM_Wire ( "dbs_adjusted_write_data" , $$Sys {master_data_width} ) ; 

foreach $Mod (&Get_Sys_Slave_Liist ( $Sys) ) 
{ 

my $source_signal = " " ; 

my $ targe t_signal = &Get_Sys_Signal ($Mod, "writedata" ) ; 

if ( $$Mod{Uses_Tri_State_Data_Bus) ) 
{ 

# The "principal" tri-state bus is managed as part of the 

# read-data path (elsewhere) . 

next if $$Mod {Tri_State_Data_Bus} eq 



$ $ Sysi Pr inc ipal_Tr i_S tate_Data_Bus } 



# For tri-state busses, we need to use the "data" -type port 

# instead of the " writedata" -type port as the assignment 

# target : 
# 

$ targe t_signal = &Get_Sys_Signal ($Mod, "data"); 

# To this bus we will assign a value which, as it 

# happens, incorporates its whole tri-state logic. Perversely, 

# we may " PBM__Assign" this same expression to this bus several 

# times, but it doesn't hurt anything. 
# 

my $sys_writen = &Get_Sys_Signal ( $$Sys {master} , "writen" ) ; 
$source_signal = " (-$sys_writen) ? dbs_adjusted_write_data : 

$$Sys{master_data_width} 'bZ " ; 

} 

elsif ($$Mod{is_dynamically_si2ed} ) 
{ 

$source_signal = 

$$Mod{address_type_used}. eq "byte" ? "dbs_8_write_data" : 

"dbs__16_write_data" ; 

} else { # Non-dynamic address 

$source_signal = &Get_Sys_Signal ( $Master_Mod, "writedata" ) ; 

} 

&:PBM_Assign ( $target_signal , $source_signal) ; 

} 

################ 

# Readn/Writen -broadcast. 

# 

# Every module gets a copy of the master's "readn" and "writen" signals 

# — unless they have a nonzero setup- or hold- time, in which case 

# they get their very-own custom-made, tweaked copy of these signals. 
# 

# That all happens later when the wait-state unit gets created. 
# 

&Emit_Comment ( " \n Control -as signmentsXn" ) ; 

foreach $Mod (&Get_Sys_Slave__List ( $Sys) ) 

( 

next if $$Mod{Setup_Time} != 0; 

next if $$Mod{hold_time_full_clocks} 1= 0; 

&PBM_Assign (&Get_Sys„Signal ($Mod, "ifetch"), 
&Get_Sys_Signal { $Master_Mod, "if etch" ) ) ; 

&:PBM_Assign (&Get_Sys„Signal ($Mod, "readn"), 
&Get_Sys_Signal ( $Master_Mod, "readn") ) ; 

ficPBM_Assign (&:Get_Sys_Signal ($Mod, "writen"), 
&Get_Sys_Signal ( $Master_Mod, "writen" ) ) 
\inless $$Mod{Hold_Time} ; # half -cycle hold needs custom write strobe. 



} 



################################################################ 

# PBM_Emi t _Addr e s s_De c o de r 
# 

# Given a ref to the %Sys-hash, we can generate all the logic 

# to build the address decoder. 
# 

# This function emits all the Verilog statements which 



ntly-: 



# implement the address-decoder directly into the currently-selected 

# output file. These statements include: 
# 

# * wire-declarations for modules that don't have chip-select ports. 
5 # * Logic-assignments to all "active-" signals. 

# * Instantiate fast I/O registers for " registeredselectn" s , if any. 

################################################################ 

10 sub PBM„Emit_Address_Decoder 
{ 

my ($Sys) = ; 



15 



&Emit„Comment { " \n Address decoder \n" ) ; 

# Extract the name of the masters' address signal: 
my $Master„Mod = $$Sys {master } ; 

my $master_address = &Get_Sys_Signal ( $Master_Mod, "address"); 

20 # external chip selects may get gated with slave_phase below. 

ScVprint ( " reg slave_phase ; \n" ) ; 

foreach $Mod (&Get_Sys_Slave_List {$Sys) ) 

^ $$Mod{external_active_signal} = &Get_Sys__Signal ($Mod, " chipselect " ) ; 

O 

# All modules get a pbm_internal select signal regardless of if they 
© # need an external chip select signal. This is because 

ff^ # we use address -decode signals to operate the 

^0 # read-data mux and wait state timer. PBM_external signals have 

^ # gotten a tad more tricky. We now gate them with slave^hase. 

™ # This may 

y # 

# All modules, including ones requiring the evil 

s 35 # "registeredselectn" -type signals also fall into this category. 

01 $$Mod{internal_active_signal} = " $$Mod{name}_active" ; 



# How quaint that we still call this old warhorse of a function: 

'40 # ... .X 

&Make_Nios_Chip_Select ("out = $$Mod{internal_actxve_signal } , 

device_base = $$Mod{Base_Address} , 

device_span - $$Mod{address„span} , 

outer_span = $$Sys {address_span} , 

45 address_name = $master_address , 

") ; 

if ( $$Mod{external_active_signal} ) 
{ 

50 if ( 

($$Mod{Read_Wait_States} eq "peripheral_controlled" ) || 
($$Mod{Write_Wait_States} eq "peripheral_controlled" ) 
) 

{ 

55 &PBM_Wire {$$Mod{external_active_signal} , 1, 

" $$Mod{internal_active_signal} & slave_phase" ) ; 

} 

else 
C 

60 &:PBM__Wire ($$Mod{extemal_active_signal} , 1, 

$$Mod{intemal_active_signal} ) ; 

} 

} 



} 



################ 

# Registered chip-selects. 

# The whole dirty little business of registered chap-select signals 

# is, I suppose, part of the address-decoding job. Note 

# that modules can have more than one registered chip-select signal, 

# each of which is derived (of course) from that modules* active-signal . 
# 

# There's also a wait-state aspect to this task (wait-states 

# occur as a consequence of the chip-select delays). That's not 

# handled here--it's handled later, when we build the wait-state 

# unit. 
# 

my $Fast_IO„Setting = "^OFF"; 

my $chipselect_reg_module = $$Sys{name} . "_rg" ; 

if ($$Sys{has__registered_select_signals} ) 
{ 

$Fast_IO_Setting = "ON" ; 

# First, we create a special flip-flop module just for the 

# purpose. It needs to be "firm" so that synthesis tools don't 

# optimize-away duplicates, and so that we can make a 

# FAST_OUTPUT_REGISTER entity-assignment to it without "losing" its 

# name . 

&Create„Firm_Flip_Flop_Variant ( $$Sys {syst em_di rectory} , 

$$Sys{sopc_directory} , 
$$Sys{device_family} , 
$chipselect_reg_module , 

) ; 

# Push this register onto the list of files to be synthesized, 
my $synth_list„ref = $$Sys { synth_f ile_list} ; 

push ( @ $ syn t h_l i s t_r e f , 

" $$Sys { system_directory } / $chipselect_reg_module . v" ) ; 

# &Emi t_C ommen t 

(q[ 

Registered chip-select signals 

A module may optionally request one (or more) -registered- chip-select 
signals (by declaring a port of type " registeredselectn" , and by 
setting the "Uses„Registered_Select_Signal" assignment TRUE in the 
SYSTEM_BUILDER_INFO section) . 

Modules do this when they have stringent setup-time requirements 
on their select-signals. Such stringent setup requirements are 
greatly assisted by having the select-signal be produced from 
an Apex Fast-I/0 register, right in the pad structure itself. 

Delaying (registering) the select-signal to a module is tricky 
business, but the PBM "absorbs" all the trickiness and does the right 
thing. Wait-states get generated (in subsequent code) when the 
(delayed) select-signal being fed to the device disagrees with its 
correct, current value. The logic is clever enough to allow successive 
accesses to this same device with no wait-penalties . This 
arrangement is emminently suitable for external asynchronous RAM 
used as main-memory. 

Registered chip-selets are always logic-negative, because that's the 



way chip-level select signals have been since the dawn of time. 
Because these come directly from fast I/O registers, there is no 
subsequent opportunity to negate them, or even copy them to other 

We accomplish all this using deep voodo magic: We use a special 
"Firm Flip-Flop" module, since this is the only way to convince 
the synthesis tool to -not- optimize-out "redundant" chip-select 
registers. It also provides a handy method for assigning the 
' FAST__OUTPUT_REGISTER • attribute- -using an ESF-file. 
]); 

foreach $Mod (&Get_Sys_Slave_List ( $Sys) ) { 

foreach $Port (&:Get_Module_Port_Iiist {$Mod) ) 
{ 

next if $$Port {avalon_role} ne "registeredselectn" ; 

# If we got to here, then we know %$Port is 

# of type "registeredselectn". Blurt-out an instance 

# of a properly-connected firm flip-flop with no further ado: 
# 

my $instance_name = " $$Mod{ name} _$$ Port {name} _delay_register" 
ScVprint { " 

$chipselect_reg_module $instcLnce_name 

{ 

.elk (elk), 

.ena (I'bl), 

.clrn (reset_n) , 

.prn (I'bl), 

.d (~$$Mod{internal_active_signal} ) , 

.q ($$Port {system_signal} ) 

) ; 

// exemplar attribute $instance_name NOOT TRUE 
") ; 

} 

} 

} # End: if ( $$Sys Chas_registered_select_signals } ) 

# We -always- create an ESF file because: 

# 1) don't cost nuthin' 

# 2) Un-sets FAST-I/O req'mnt if it had been previously set. 
# 

&Create_ESF_File 

( "f irm„f lip_f lop : FAST_OUTPUT_REGISTER = $Fast_IO_Setting; " , 
$$Sys{system_directory} , 
$chipselect_reg_module) ; 



} 

################################################################ 

# PBM_Emit_Read_Data_M\ix 
# 

# Given a ref to the %Sys-hash, we can generate all the logic 

# to build the read-data mux path. 
# 

# This function emits all the Verilog statements which 

# implement the read-data mux structure directly into the 

# currently-selected output file. 
# 

^ l/lux structure 

# 

# We build-up a "fast mux" and a "slow mux." The "fast mux" 

# gathers-up all the readdata-type signals for zero-wait-state 



# modules (if any) .^^^e slow-mux gathers-up all the otl^^^ 

# 

# **** The "principal" bus. 
# 

# The road to the CPU takes another twist if you have a "principal" 

# tri-state data bus. The principal data bus gets routed -directly- 

# to the CPU's read-data port — the rest of the (muxed- together ) signals 

# a route "around the horn": Driven-out onto the principal 

# databus in order to be read back in, 
# 

# If the CPU doesn't have any such "principal" tri-state busses, then 

# things are simpler- -the muxes just collect the data. 
# 

# **** Widths 

# In this age of dynamic bus-sizing, all narrow data busses are just 

# zero-padded. This happens "almost invisibly" in Verilog syntax when 

# we assign a narrow value to a wide target. 
# 

# If a peripheral is "dynamic," then we use the ouptut 

# from the appropriate DBS -unit in place of its data. The DBS -unit 

# itself is generated later. And, to help-out the DBS-unit, we 

# also generate its input-muxes right here, because we are already 

# engaged in the process of building mux-like things. 
# 

################################################################ 
sub PBM_Emi t_Read_Da t a_Mux 
{ 

my ($Sys) = {@_) ; 

&:Emit_Comment ( " \n Read-Data Multiplexer \n" ) ; 
################ 

# Loop to build-up slow- and fast-mux strings. 
# 

# Also, build-up mux strings for the dynamic bus-sizers' inputs. 
# 

my $f ast_mux_string = 
my $slow_mux„string 
my $dbs_8_m\ix_string = " " ; 
my $dbs_16_mux_string = " " ; 

foreach $Mod (5cGet_Sys_Slave_Ijist ( $Sys) ) 
{ 

my $data_signal = &Get_Sys_Signal ($Mod, "readdata"); 
$data_signal = &Get_Sys_Signal ($Mod, "data") 
if $$Mod{Uses_Tri„State_Data_Bus} ; 

next if $data_signal eq ""; # Some peripherals are write-only (i) 

if ($$Mod{is_dynamically_sized} ) 
{ 

# Yikes. A dynamically-sized peripheral. Its data comes from 

# the appropriately-sized DBS-unit. Note that dynamically- sized 

# peripherals are automatically assumed to be "slow." 
# 

if ($$Mod{Data_Width} <= 8) 
{ 

$ s low_mux_s tr ing . = " $ $Mod { int emal_ac t ive_s ignal } 

dbs_8_output , " ; 

$dbs„8_mux_string , = " $$Mod{ int emal_active_s ignal} 

$data_„s ignal , " ; 

} else { 
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$ s 1 ow_mux_s t r ing 
dbs_16_output , " ; 

$dbs_l 6__miix_s t r ing 
$data_signal, " ; 
} 

} else { 

# Not dynainic--it ' s ether a slow-thing or a fast-thing. 
# 

# Principal data-bus is not (directly) part of this mux. 

# but we are accutely interested in the active -signals 

# for peripherals which sit on the principal bus. We'll 

# use these signals later to control the bus-direction, 
next if $$Mod{Uses_Tri_State_Data_Bus} && 

{$$Mod{Tri_State_Data_Bus} eq $$Sys {Principal_Tri_State„Data_Bus} ) 

if ($$Mod{Read_Wait_States} ==0) { 

$fast_mux_string .= " $$Mod{ internal_active_signal} 

$data_signal , " ; 

} else { 

$slow„mux_string .= " $$Mod{ intemal„active_signal} 

$data_signal, " ; 
} 

} 

) # End: $Mod-loop. 

# There may or may not be input-muxes to the DBS-units: 

# if so, we declare the DBS-unit's output wire here 

# (becuase we have to) . But the DBS-units themselves are made later. 
# 

if ($dbs„8_mux_string) 

ScModif ied_Miax( "dbs_8_muxed_input, type=unary, w=8, $dbs_8_mux_string" ) ; 
&PBM_Wire ( "dbs_8_output " , $$Sys {master_data_width} ) ; 

} 

if ( $dbs_16_mux_string) 
{ 

&Modif ied_Mux ( " dbs_16_muxed_input , type=unary , w=16 , 

$dbs_16_mux_string" ) ; 
&PBM_Wire ( "dbs_16_output " , $$Sys {master_data_width} ) ; 

} 

# There may or may not be a slow mux: 
# 

if ( $ s 1 ow_mux_s t r ing ) 
C 

ficModif ied_Mux ( " slow_read_data_mux_output , type=unary , 

w = $$Sys{master_data__width} , $slow_mux_string 
") ; 

# The "default" input to the fast-mux is, of course, the output 

# of the slow-mux: 
# 

$fast_mux__string .= " — > slow„read_data_mux_output, " ; 

} 

# There is always a fast-mux: 

ScModif ied_Mux ( " read_data_mux_output , type=unary , 
w = $$Sys{master_data_width} , 
$f ast_mux_string 

" ) ; 
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" $$Mod{ intemaTlactive_signal } 
" $$Mod{internal_active_signal} 



################^^ 

# Data-in to CPU. 
# 

# Well, gee. There are two cases here. Let's start with the 

# easiest: 
# 

# **** -NO- principal tri-state bus. 
# 

# In this case, the fast-mux ouptut goes right to the 

# CPU's data-input, and that's that. 
# 

# **** Principal tri-state bus. 
# 

# The principal tri-state bus actually drives the CPU's 

# read-data input directly. The fast-mux output gets registered. 

# The output of this register gets driven-out onto the principal 

# bus (and, therefore, to the CPU) . Thus, perversely, we -drive- 

# data out onto this bus at the end of any bus read-transaction 
-# which did not get data from the principal bus (and, even then, 

# we do it if there's dynamic bus-sizing) . 
# 

£cPBM_Wire ( "data_driveback_active" ) ; # These Declare here, compute later. 
&PBM_Wire ( "data_driveback_asserted" ) ; 
ScPBM:_Wire ( "dbs_8_active" ) ; 
&PBM_Wire ( " dbs_16_active " ) ; 

if ( ! $$Sys{Principal_Tri_State_Data_Bus} ) 
{ 

# The easy case: Mux feeds CPU, period. 
# 

ScPBM__Assign (&Get_Sys_Signal ( $$Sys {master } , "readdata") , 
''read_data_mux_output" ) ; 

} else { 

# Ugh. 

# To start with, hook-up principal bus directly to CPU's data-in: 
# 

&PBM_Assign (&Get_Sys_Signal ( $$Sys {master } , "readdata") , 
"$$Sys{Principal„Tri_State_Data_Bus}_data" ) ; 

# Next, run the result of the read-data mux into a holding 

# register: 

ScDelay ( " in = read_data_mux„output , 

w = $$Sys{master_data_widthl , 

reset = , 

") ; 

################ 

# What to drive? 
# 

# We can drive one of two things out on the principal data 

# bus: 

# 1) Outbound write-data from the CPU. 

# For this purpose, we use the same '*dbs_adjusted_write_data" 

# that every other tri-state bus gets. This is suboptimal 

# in the same way that it is for every other tri-state bus. 
# 

# 3) Data from the read-mux being sent "back out" to the CPU. 
# 

# Those are the only two possibilities, and we can tell which 

# to use just by looking at the masters' writen-signal : 
# 

my $master_write_n = &Get_Sys_Signal ( $$Sys {master } , "writen"); 



ScMux ("principal„data_drive_value, type-unary, declare-1, 
w = $$Sys{master_data_width} , 

(-$master„write„n) --> dt)s_adjusted_write_data 

— > dl__read_data_mux_output 

") ; 



################ 

# When to drive? 

# Like every other tri-state bus, we drive data during actual 

# bona-fide write-operations . We also drive data during the 

# "driveback" phase, as -determined by a signal named: 
# 

# data„driveback_asserted 

# which (we presume) gets comupted by the wait-state generator. 
# 

^ **★* Interaction: Dynamic Bus Sizing 

# And, of course, there's a bit of strangeness when a device 

# on the principal databus is dynamically- si zed. The easiest 

# way to think about this: Set aside dynamic -sizing for a 

# moment, and think only about narrow peripherals on the 

# principal databus (be they dynamically sized or no) . 

# Narrow peripherals, by definition, only drive low 

# bits (e g LS-byte or LS-halfword) of the databus. So, 

# when reading from (say) an 8-bit device on a tri-state databus, 

# the high-order bits [31.. 8] aren't driven by anyone. There's 

# no harm in -us-driving these bits, now, is there? If we 

# don't, then they'll just read as <undefined> ('Z', m 

# simulation), and that's not really any help to anyone. 

# So let's suppose we decide to be good citizens and "nail-down" 

# the high-order address bits when a narrow peripheral is 

# accessed on the principal tri-state bus. This gives us a warm 

# feeling inside, and, as an added bonus, makes dynamic bus 

# sizing work for devices on the principal bus (the high-bits 

# get driven from the appropriate dbs-holding registers. Yay. 

# So, despite the heft of this comment, the actual solution is 

# both simple and tidy: 

&PBM_Wire ( " do_drive_principal„data_bus_by te_0 " , 1 , 

" (-Smaster.write.n) || data_driveback_active" ) ; 

&PBM_Wire ( " do_drive j>r incipal_data_bus_by te_l " , 1 , 

"do_drivej>rincipal_data_bus_byte_0 1| dbs_8_active" ) 

&:PBM_Wire ( " do__drive_principal_data_bus_bytes_2_and_3 " , 1 , 
"do_drive_principal_data_bus_byte_0 | | 
dbs_16_active || dbs_8„active" ) ; 

# Assign principal databus in bytewi se -chunks . 

&PBM_Assign( "$$Sys{Principal_Tri_State_Data_Bus}_data[7 : 0] " , 
" (do_drive_principal_data_bus_byte_0 ? 
principal_data_drive_value [7:0] : 
8 'bZ ) 

") ; 



&PBM_Assign ( ^^ys { Principal„Tri_State_Data_Bus [15:8] 
" (do_drive_principal_data_bus_byte__l ? 
principal_data_drive__value [15:8] : 
8 'bZ ) 

") ; 



if {$$Sys{master_data_widtli) ==32) { 

&PBM_Assign ( " $$Sys {Principal_Tri_State_Data_Bus}„data [31 : 16] " , 
" (do_drive_:principal_data_bus_bytes_2_and_3 ? 
principal_data_drive_value [31 : 16] : 
16 'bZ ) 

") ; 

} 

} 

################ 

# "memis32bits" 
# 

# Somebondy needs to tell the master wtien it's fetcliing 

# 32-bit data — that's just one of the inputs that an Avalon master 

# might require. 
# 

# I couldn't say for sure that this really belongs in the "Read Data Mux" 

# generator, but I can't thinlc of where else to put it, so here 

# it is. 
# 

# Note that 16-bit dynamically- sized devices appear as 32 bits 

# -unless- "if etch" is asserted, in which case they don't, 8-bit 

# dynamically- si zed devices always just appear as 3 2 -bits wide. 
# 

# It might be more efficient to say when something -doesn't- return 

# a 32-bit value. But For now, I do the logic-true computation: 
# 

my $ifetch_signal = &Get_Sys_Signal { $$Sys {master} , "ifetch"); 

my @memis32bits_terms = ("I'bO"); 
foreach $Mod (&Get„Sys_Slave_List ($Sys) ) 
{ 

if ($$Mod{Data_Width} > 16) { 

push (@memis32bits_terms , $$Mod{ intemal__active_signal } ) ; 
} else { 

if ($$Mod{is_dynamically_sized} ) { 
if ($$Mod{Data„Width} <= 8) { 

push (@memis32bits_terms, $$Mod{intemal_„active_signal} ) ; 
} else ( 

push ( @memi s 3 2 b i t s_t e rms , 

" {$$Mod{intemal_active_signal} && (-$if etch_signal ) ) " ) ; 

} 

} 

} 

} 

&:PBM_Assign (ScGet_Sys_Signal ( $$Sys (master) , "memis32bits " ) , 
join (" II @memis32bits_terms) ) ; 



################################################################ 

# PBM_Emit_Wait_State_Generator 
# 

# Given a ref to the %Sys-hash, we generate all the logic 

# to build the read-data mux path. The logic gets 

# dumped- into the currently-selected output file. 



################################################################ 

sub PBM_Emit_Wait_State_Generator 
{ 

5 my ($Sys) = (@„) ; 

ScEmit^Comment ( " \n Wait-State Generator \n"); 

# This function seems preternatural ly-concerned with the read- 

# and write-strobes . Assign their signal-names to some 
10 # handy local variables: 

# 

my $sys_readn = &Get_Sys_Signal ( $$Sys {master} , "readn"); 

my $sys_writen = &Get_Sys_Signal ( $$Sys {master} , "writen" ) ; 

15 

################ 

# Peripheral-Controlled Wait 

# 

# If the currently-selected peripheral has a wait-request 
20 # signal, and it's asserting it, then we definitely want to 

# wait. This is pretty easy to compute: 
# 

my @periph_controlled_wait_terms = ("I'bO"); # I'bO fixes empty lists. 
^25 foreach $Mod (&Get_Sys_Slave_List { $Sys) ) 

^ my $request„signal = &Get_Sys_Signal ($Mod, "waitrequest " ) ; 
m ############### 

p30 # @periph„controlled_wait„terms is one of the very few things 

# (only one at the moment) that gets an 

# extemal„active_signal . We cut off the external select 

S # after the peripheral lowers its wait pin. It doesn't get to 

# change its mind later on in the same bus cycle. 

L35 

y push (§periph_controlled_wait_terms , 

™ "$$Mod{external_active_signal} && $request_signal && 

(-$sys_writen) " 

m ) if $$Mod{Write_Wait_States} eq "peripheral_controlled" ; 
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push {@periph_controlled_wait_terms , 

"$$Mod{external_active_signal} && $request_signal && (~$sys_readn) " 
) if $$Mod{Read_Wait_States} eq "peripheral_controlled" ; 



ScPBM_Wire { "periph_wait_asserted" , 1 , 

join ( " II " , @periph_controlled_wait_terms) ) ; 



################ 

# Calculate minimum wait states. 
# 

# Each module has a certain minimum number read/write wait-states, 
55 # perhaps even including zero. This is the suim of the 

# user-supplied wait-states and, IN /EDITION, 

# any setup- and hold-times the module may require. 
# 

# It may seem a bit strange, but even modules with 

60 # "peripheral_controlled" wait-states can also have a 

# minimum number of fixed wait-states — that's because they may 

# also require setup/hold time. 
# 



# The minimum nu^^ of wait-states we calculate here^^d save 

# as part of each %Mod-hash) DOES NOT INCLUDE delays due to 

# dynamic bus sizing or principal -da tabus driveback. 
# 

# Here we just compute the minimiKn number of clocks -In A Single 

# Bus Cycle-. If the peripheral requires multiple bus cycles 

# (via dynamic bus sizing) or requires an extra clock for databus 

# drive-back, that's not our problem here. 
# 

# The values we compute here (minus 1) get loaded into the 

# wait-state counter when any of these peripherals are selected. 

# while we're looping through the values, take note of the 

# largest number we'll see--this number (less 1) will be the biggest 

# value we ever load into the wait-state counter. 
# 

^ *★★* Hold-time policy: 

# Giving a peripheral extra hold-time doesn't make much sense 

# following a read-cycle --though one can contrive a case where 

# you need it. We could define it either way— hold-times apply 

# only to write-cycles, or they apply to both read- and write-cycles . 

# I've defined it so that hold-times only apply to write-cycles. It 

# makes computation of the "bus„cycle_data_ready " signal simpler. 
# 

# Deal with nasty case of no wait-states whatsoever, whch will 

# result in a zero-bit mux/counter. To deal with that case, we 

# just always assume at least one wait-state: 
# 

my $max_counter_value = 1; 

foreach $Mod (ScGet_Sys_Slave_Iiist ( $Sys) ) 
{ 

my $min_read = $$Mod {Read„Wait„States} ; 
my $min_write = $$Mod{Write„Wait_States} ; 

$min_read = 0 if $min_read eq "peripheral_controlled" ; 
$min„write = 0 if $min_write eq "peripheral_controlled" ; 

$min_read += $ $Mod{Setup„Time} ; 

$min_write += $$Mod{ Setup_Time} + $ $Mod {ho ld_time_full_c locks } ; 

$$Mod {read_min_wait_states} = $min_read; 
$$Mod{write_min_wait_states} = $min_write; 

$max_counter_value = 

&Find_Max ( $max„counter_value , $min_read, $min_write) ; 

} 

my $wait_counter_bits = &Bits_To_Encode ( $max_counter_value) ; 

################ 

# Counter-load mux 
# 

# Select what value goes into the wait-state counter 

# based on the peripherals' active-signals (and, of course, 

# whether we're reading or writing) . 
# 

# Notice that we load the counter with the modules' number of 

# wait-states MINUS ONE. 
# 

# Trick: All these muxes are very similar, so we use the same 



# descri^^^n-string with a different word at^^^ front, 

# which gives each a different output - s ignal : 
# 

my $counter_inux_string - "counter_load_value, 

w - $wait_counter_bits , 

type = unary, 

— > 0, 

n . 

my $write_counter_mux_string = "write_" . $counter_mux_string; 
my $read„counter_mux_string = "read„" . $counter_mux_string; 

foreach $Mod (&Get_Sys_Slave_rjist ( $Sys ) ) 
{ 

my $read_load_val = $$Mod {read_min_wait_states} - 1; 
my $write_load_val = $$Mod{write_min_wai testates} - 1; 

$read_counter_mux_string . = " $$Mod{ interna l_active_s ignal} 

$read__load_val, " 

if ($read_load_val >= 0) ; 
$write_counter_m\ix_string . = " $$Mod{ intemal_active_s ignal } 

$write_load_.val, " 

if {$write_load_val >= 0) ; 

} 

ScModif ied_Mux ( $read_counter_mux_string) ; 
ScModif ied_Mux ($ writ e_counter_mux_s t ring) ; 



ficMux ( "$coTinter_mux_string, declare=l, 

(-$sys„writen) --> write_counter_load_value , 
( •^$sys_readn) - -> read_counter„load_value , 

" ) ; 



################ 

# Wait-state co\inter. 
# 

# There are two interesting questions about this counter: 
# 

# — When should it load? 

# — When should it count? 
# 

# When to load: 
# 

# This counter gets loaded at the beginning of every bus-cycle 

# for which a fixed wait is required. We already have a signal 

# which tells us when it's the beginning of a bus-cycle, so we 

# need some additional logic to tell us if a fixed-wait is required. 

# We build that logic herein below, before the counter proper. 
# 

# **** When to count: 
# 

# This counter "sticks" at zero. This makes the whole scheme 

# much easier to manage /understand. Consequently, the counter 

# is only enabled when its current value is nonzero. 
# 

# The only other thing that can stop this counter from a-countin' 

# is a wait-request from the active peripheral. This 

# has the effect of extending the current Bus Cycle — setup-time, 

# hold-time, and all. 
# 

# Note that there is a question of interpretation here: Do 

# we want to allow a peripheral to extend a bus-cycle during its 



# own setup-time? Or should we not listen to it unitl we actually 

# issue it an active read/write strobe? This is largely a question 

# of definition. I chose to -always- listen to peripheral-controlled 

# waits, even during setup/hold periods. Because it makes the logic 

# easier. So there. 
# 

my @fixed_wait_active_terms = ("I'bO"); # I'bO fixes empty- strings . 

foreach $Mod (&Get_Sys_Slave_Iiist ($Sys) ) 

if ($$Mod{read_min_wait_states} > 0) { 
push (@f ixed_wait_active_terms, 

" ( (■>-$sys_readn) && $$Mod{internal_active_signal} ) " ) ; 

if ($$Mod{write_min_wait_states} > 0) { 
push {@f ixed„wait_active_terms, 

« ( {-$sys_writen) && $$Mod{ internal_active„signal} ) " ) ; 

} 

} 

# This signal stays true during the entire bus-cycle 

# for which a fixed (counter) wait-state applies. 

LsM.Wire ("fixed_wait_active", 1, join (" || @f ixed„wait_active„terms) ) 

# The counter itself, per-se. 

# I use one call to "&Delay" to build a whole counter. Nobody else 

# seems to appreciate the mighty "&Delay" function— the fools. 
# 

&PBM_Wire ( " counter_ne_zero " ) ; 

&PBM_Wire ( "wait_co\int_enable" , 1, " (-periph.wait.asserted) && 

(counter_ne_zero) " ) ; 

&PBM_Wire ( "bus_cycle_start V ) ; # declared here, computed later, 
S:PBM_Wire ( "wait_load„enable" , 1, "bus_cycle_start && 

f ixed_wait_active " ) ; 

# Optimization: Avoid emitting the counter-register if the maximvim 

# counter load-value happens to be zero. This often happens 

# when we have a bunch of one-wait -state peripherals in the 

# system. In this case, the single wait-state is controlled 

# by the "wait_load_enable" signal, and we can do away with the 

# counter per-se in its entirety. A clever synthesis tool might 

# figure this out on its own, but... why risk it? 
if ($max_counter„value <= 1) C 

&PBM_Wire ( " wait_counter " , 1 , " 1 ' bO " ) ; 
} else { 

ScDelay ("out = wait_counter , 

in = (wait_.co\inter - 1) , 

enable = (wait_load_enable | | wait_count_enable) , 
sync_set = wait_load_enable, 
set_value = count er__l oad_va lue , 
width = $wait„counter_bits, 

reset = , 

&:PBM_Assign (" count er_ne_zero" , "wait_counter != $wait_counter_bits\ ' bO " ) 
&PBM_Wire (»fixed_wait_asserted", 1, " count er_ne_zero |1 wait_load_enable 



################ 



# Registered chip-selects - 
# 

# This is a nuissance, but at least it's easy. 

# ^ - 

# While we're listing all the reasons to extend a bus cycle, 

# let us not forget registered chip-selects. They blow! 

# Whenever the registered (delayed) version of a chip-select 

# differs from the current (un-delayed) version, we view 

# this as a bad thing. We extend the current bus cycle until 

# the signals agree (i.e. we wait 1 clock). 

@reg_select„wait„tentis = ("I'bO"); # Ah, the old "I'bO" trick, 
foreach $Mod (ScGet_Sys_Slave_List ( $Sys ) ) 

next unless $$Mod{Uses_Registered_Select_Signal } ; 

# Modules -might- have more than one registered select signal, 

# but we don't really care. They all have the same time -behavior . 

my $reg_signal = 5cGet_Sys_Signal ($Mod, "registeredselectn" ) ; 
push (@reg_select_wait_terms, " ( (-$reg_signal) 

$$ModCintemal_active_signal} ) " ) ; 
} 

&PBM_Wire ( " reg_select_wait_asserted" , 1 , 

join ( " II " , @reg_select_wait_terms) ) ; 

################ 

# Bus-Cycle Status . 

# 

# One of the major responsibility of the wait-state generator 

# is to tell the rest of the world (not the least, the CPU) 

# where we are in the bus cycle: Beginning, middle, or end. 
# 

# So. How do we know when a bus cycle begins? The only thing 

# we know for sure is that one bus cycle begins when another one 

# ends — it's like a Zen koan, isn't it? 

# But seriously. A bus-cycle always ends when there is no longer 

# any reason to extend it. Said more prosaically, the signal 

# "extend_bus_cycle" will always be zero during the last clock 

# of any bus-cycle. 

# So, our only means for deciding that this is the -beginning- ot 

# a cycle is to notice that " extend_bus_cycle" was false (0) . 
# 

# — Bonus reason, 

# Well, there's another way, too, that we can tell if this is 

# the start of a bus-cycle: If the CPU (master) is -idle- 

# (both read-strobe -and- write strobe inactive) . Masters 

# sometimes do this. If so, we consider that whole long 

# time the "start" of the bus-cycle. 
# 

# ★*** Reasons To Extend. 
# 

# There are three "ordinary" reasons to extend a bus-cycle, and 

# one "special" one. Let's start with the ordinary ( slave„driven) 
# 

# 1) The peripheral, itself, can request wait-states. 

# 2) We can have a fixed (counted) number of wait-states, 

# due to both traditional wait-states and setup/hold times. 



# 3) That who^^orry business about registered ch^^elects. 

# 

# And here's the "special" reason 

# *4) Data has to percolate through the principal databus drive-back 

# register. 

I But the only way we know when it's time to do (*4) is when 

# the bus-cycle is no longer extended for any of the other reasons {1..3) 

# But (*4) still counts as extension of the current bus-cycle. 

# Therefore, we have to account for {1..3) and (4) separately. 

# That's OK — I'm an amateur accountant. 
# 

# AS long as the master is just sittin' there, we take that to 

# mean a cycle "is in the process of starting". 

&PBM_Wire ( "master_is_idle" , 1, ^ „ x .. x r r n 

M" .&Get_Sys_Signal($$Sys {master}, "readn" ) . ) 
" (" . &Get_Sys_Signal{$$Sys {master} , "writen") 



" ) " ) ; 



&PBM_Wire ( " slave_wait__asserted" , 1, 

reg_select_wait„asserted | \ 

f ixed_wait_asserted | | 

periph__wait_asserted " ) ; 

# The slave gets its chance to wait, or talk, or whatever. Then 

# it's over — for good. 

# Orion hates &Delay because he never knows which of sync_set or 

# sync_reset or any of the other options gets priorxty. 

# reg slave_phase is defined above because the outgoing chip 

# selects need to be gated by it. 

ScVprint ( " 

always @{posedge elk) 
begin 

if ((-reset_n) |1 (bus_cycle_end) ) 
begin 

slave_phase <= {1 {I'bl}}; 

end 

else begin ^ . * 

if (-slave_wait_asserted & --master.is.idle) begin 

slave_phase <= {1 {I'bO}}; 

end 

end 

end 

# Don't extend a cycle when the master is idle I 
&PBM_Wire ( " extend_bus„cycle " , 1 , 

" (slave_wait_asserted && slave j^hase) 1 | 

(data_driveback_asserted ) ") ; 

# And a bunch of different names for the same thing (used elsewhere) : 

&PBM_Assign ("bus_cycle_end", " -extend_bus_cycle && -master_is„i 

5cPBM_Assign ( "bus_cycle_data_ready" , "bus_cyc legend" ); 



■) 



# Generate a privately-named version, then assign to global wire: 
&Delay ("out = bus_cycle„start_reg, 

in = bus_cycle_end, 

sync_set = master„is__idle, 
set = reset. 



&PBM_Assign ( "bus_cycle_start " , "bus_cycle_start_reg" ) ; 



################ 

# Data drive-back timing 

# We are responsible for coming up with this nasty-little signal 
# 

# -- data_driveback_asserted. 
# 

# this is true when: 
# 

# 1) This is a read-cycle. 
# 

# 2) The currently-selected peripheral is -not- on the 

# "principal" databus 

# 3) There is no longer any other reason to extend the current 

# bus cycle ( slave_wait__asserted is zero) . 
# 

# 4) We're not still gathering-up a data-value as part of a 

# multiple-bus-cycle dynamic-bus- sizing operation. 
# 

# ... and, lest we forget (which we did) . . . 

# .... 

# 5) "data_.driveback__asserted" wasn't true last time, otherwise 

# conditions (1) . . (4) above will persist forever, and the 

# master will hang-up indefinitely. 

# First, come up with a signal that tells us about (2) : 
# 

my @driveback_active_terms = ( " 1 ' bO " ) ; 
if ($$Sys{Principal_Tri_State_Data_Bus} ) { 
foreach $Mod (&:Get_Sys_Slave__List {$Sys)) { 
if ( ($$Mod{Uses_Tri_State_Data_Bus} ) && 

($$Mod{Tri_State_Data_Bus} eq $$Sys {Principal_Tri_State_Data_Bus} ) ) 

{ 

next ; 

push (@driveback_active_terms, $$Mod{internal_active_signal} ) ; 

} 

} 

&Delay C^out = data_driveback_last_time, 
in - data_driveback_asserted, 
reset = , 
") ; 

&PBM_Assign ( "data_driveback_active" , join(" 1| " , @driveback_active_terms ) ) 

&PBM_Assign ( "data„driveback_asserted" , " 

data_driveback_active && 
( - $ sy s_readn ) &Se 
(-slave_wait_asserted) && 
(-dbs_wait_asserted) && 
{-data_driveback_last_time) ") ; 

################ 

# Transaction status 
# 

# The wait-state generator is responsible for the trans act ion- level 

# timing as well as the bus-cycle-level timing. Recall that a transaction 



# can take multi^^^bus cycles. 

# And, once again, we are faced with the same question: How do 

# we know when a transaction starts? It starts when another 
5 # transaction ended (search for "Zen koan, " above). 

# 

# At this time, there's only one way a transaction will keep going 

# even when a bus-cycle has ended — if we're in the middle of a 

# dynamic-bus-sizing operation. 
10 # 

ScPBM_Wire ( " ex tend_bus_ trans act ion" , 1 , 

"extend_bus_cycle | | dbs_wait_asserted" ) ; 

# And a bunch of different names for the same thing (used elsewhere) 
15 # 

ScPBM^Wire ( "bus_transaction_end" , 1 , " -'extend_bus_transaction" ) ; 

# Generate a privately-named version, then assign to global wire: 
ScDelay ("out = bus„transaction_start_reg, 
20 in = bus_transaction„end, 

set = reset, 
" ) ; 

&PBM_Assign ( "bus_transaction_start " , "bus_transaction_start_reg" ) ; 
25 # Lookie here: The --FINAL — wait-request signal to the master: 

o # 

,n &PBM_Assign (&Get_Sys_Signal ( $$Sys {master} , waitrequest) , 

^ "extend__bus_transaction" ) ; 

So ^ 

u ##########################################################*##### 

^ # PBM Emit_Setup_Hold_IjOgic 

□ ^ 

gi # Given a %Sys-hash (reference), emits all the logic to implement 

s 35 # "custom" readn / writen-strobes . 
Q # 

# **** Custom Read / Write strobes 
^ # 

L, # If your module requests setup- or hold-times, then it 

ry40 # gets its own private readn- or writen-signal , which is only 
B # active for a sub-portion of the bus cycle (unlike the masters' 

M # control signals, which are asserted for the entire cycle) . 

# 

# Each "custom strobe" is generated by an S-R flip-flop. We 
45 # need to assert the strobe at a particular point in the cycle, 

# then deassert it at some later point. We use the counter-value 

# (and the load-counter signal) to determine when to assert /deassert 

# the custom write-strobe (i.e. when to set/reset the flip-flop). 
# 

50 # We can only use this scheme because we previously guaranteed that 

# all "custom" strobes have at least one clock's worth of setup time. 

# This gives us enogh time to compute the S/R inputs to the 

# custom-strobe register, (see "Funny setup/hold rule" in 

# &Check_Avalon__Rules) . 
55 # 

################################################################ 

sub PBM_Emit_Setup_Hold_IiOgic 

{ 

my ($Sys) = (@_) ; 
60 &Emit_Comment ( " \n Setup- / Hold-Time Logic \n" ) ; 



################ 



# First, do full-^rock setup/hold times. 

# previous rule-checks guarantee no overlap with fractional case. 

# But check anyway. 
# 

foreach $Mod (ScGet_Sys_Slave_List ($Sys) ) 

^ # All the modules we care about will have setup-times, 
next unless $$Mod{Setup_Time} > 0; 

&Debug (0, "Generating setup/hold-logic for $$Mod{name} " ) ; 

$$Mod{Hold_Time} /half/ or die " ^ , . ^ ■ r 

Module $$Mod{name}: internal hold-time consistency check violation 

# Come up with an expression that says when to 

# assert the strobe (separate for read- and wr ite-st robes ) 

# The strobe is actually asserted on the clock -after- the 

# $read/write_assert_expr goes true, because we have to 

# propogate through the custom-strobe register. 

my $master_read_expr =" . ficGet_Sys„Signal ( $$Sys {master} , 

my $master_write_expr^ =" . &Get_Sys_Signal { $$Sys {master } , 

my @read_assert_terms 
$master_read_expr) ; 

my @write_assert_terms = 

$master_write_expr) ; 

1) 



" r eadn " ) 
^writen" ) 



) 



( $$Mod{ intemal_active_signal } 
( $$Mod{ internal_active_signal } 



if ($$Mod{Setup_Time} == 

^ # Because of the prop-delay (above) we have to order 

# our strobe on the first clock of the bus-cycle. Fortunately, 

# there's a signal just for that purpose: 
# 

push (@read_assert_terms, bus_cycle_start ) ; 
push (@write_assert_terms, bus_cycle_start) ; 

} else { • . ^ 4_ 

# If we got to here, notice that Setup_Time is 2 or greater. 

# In this case, we have to use the output of the wait counter. 

# Recall that the wait-counter counts down, so this makes 
the math a bit of a head-scratcher . 



# 
# 



Justifying this numerical expression is a bit tricky-- 
I used little text-tables to "simulate" some example 
# count sequences : 

Example: Tsu = 2 , Th = 0 , min_wait-states = 2 

wait-counter 1 expr true? 1 output write-strobe 



# 
# 
# 



--load- 
1 
0 



assert 
deassert 



idle 
idle 
ACTIVE 



# Example: Tsu = 2 , Th = 0 , min_wait-states = 5 

# wait-counter 1 expr true? | output write-strobe 



# 
# 

# 
# 
# 
# 
# 



— load- 
4 
3 
2 
1 
0 



assert 



deassert 



idle 

idle 

ACTIVE 

ACTIVE 

ACTIVE 

ACTIVE 



# ExampleT^^u = 2 , Th = 3 , min_wait-states = 



# wait-counter | expr true? | output write-strobe 

# + + 

# --load-- - idle 

# 4 assert idle 

# 3 deassert ACTIVE 
#2 - idle 

# 1 - idle 

# 0 - idle 



# 

my $read_assert_count = 

$$Mod {read„min_wait_states} - 1 - ( $$Mod{ Setup_Time} - 2); 
my $write_assert„count = 

$$Mod{write_min_wait_states} - 1 - ( $$Mod{ Setup_Time} - 2); 

push (@write_assert_tenns, " (wait_counter == $write_assert_count ) 
push (@read_assert_terms, " (wait_counter == $read_assert_count ) 

} 

ficDebug ( 0 , " \@read_assert_terms is : " , ©read_assert_tentis) ; 
ScDebug (0, " \@write_assert_terms is:", @write_assert_terms) ; 

my $read_assert_expr = join {" && @read_assert_terms ); 
my $write_assert_expr = join {" && @write_assert_terms) ; 

# Judging from the tables (above) , the expression for when to 

# deassert the strobe is pretty easy. We still have to 

# do a special-case when hold-time is zero, because testing for 

# (wait_counter ==0) is problematic — it's zero at the beginning 

# of the cycle I 
# 

# Also remember: As a matter of POLICY, we don't use any hold- 

# time for read-cycles. We may want to revisit this policy later. 
# 

my $read_deassert_expr = "bus_cycle_end" ; 
my $write„deassert_expr = "bus_cycle_end" ; 
$write_deassert_expr = 

" (wait_counter == $$Mod { ho ld_time_full_c locks} ) " 
if ($$Mod{hold_time_full_clocks} > 0) ; 

# One of these days, we're actually going to have to build 

# the strobe-output registers. Recall that readn/writen strobes 

# are logic-negative (assert — > 0) . Provide an asynchronous 

# "set" so they power-up inactive. 
# 

# FUTURE: Make these "firm flip-flops" if we determine that 

# these are off -chip. 
# 

my $readn_strobe = &:Get_Sys_Signal ($Mod, "readn"); 
ScDelay ("out = $readn_strobe, 

sync_reset - ( $read_assert_expr) , 

sync_set = ( $read_deassert_expr ) , 

set = reset, 

") if $readn„strobe; 

my $writen_strobe = &:Get_Sys_Signal ($Mod, "writen" ) ; 
ScDelay ("out = $writen_strobe , 

sync_reset = ( $write_assert_expr) , 

sync_set - ( $write_deassert_expr ) , 

set = reset, 

") if $writen_strobe; 




} # End: foreach $Mod. 



################ 

# Now generate narrow write-strobes where a fractional hold-time 

# was requested. 
# 

my $has_f ractional„hold_times = 0; 

# logic-positive "name" for master strobe, to ease understanding: 
# 

my $master_write = "{-". &:Get_Sys_Signal ( $$Sys {master } , " writen" ) . " ) " ; 

my $made_do_shorten_write„strobe = 0; 
foreach $Mod (&iGet_Sys„Slave_L.ist {$Sys)) 
{ 

next unless $$Mod{Hold_Time} /half / ; 

ScDebug (0, "Generating narrow write-strobe for module $$Mod{name} " ) ; 
$has_f ractional_hold_times++ ; 

$$Mod{Setup_Time} == 0 or die " 

Module $$Mod{name}: internal hold-time consistency check violation" 

if ( ! $made_do_shorten_write_strobe) 
{ 

ScPBM_Wire ( "do_shorten_write_strobe" ) ; # forward-declared 
#here . 

$made_do_shorten_write_strobe = 1; 

) 

&:PBM_Assign (&Get_Sys_Signal {$Mod, "writen"), 

{$master_write && '-do„shorten_write„strobe) " ) ; 

} 

if ( ($has_fractional_hold_times) ) { 

&:Emit_Comment (" A little dab of shortening for the write-pulse" ) ; 
ScDelay ("out = write_second_half , 
in - $master_write, 

edge = negedge , 
reset = reset, 
") ; 

&:PBM_Assign ( "do_shorten_write_strobe" , 

"write_second_half && bus_cycle_end" ) ; 

} 



} 



################################################################ 

# Generate_PBM 
# 

# Given a %Sys-hash (reference) , we do everything required to 

# generate a PBM, including opening the output-file, blorting 

# all logic into it, and subsequently closing the output file 

# again . 
# 

################################################################ 

sub Generate_PBM 

{ 

my ($Sys) = (@_) ; 

# Open the output file: 
# 

&PBM_Progress ("Creating PBM module : $$Sys {pbm_f ile} . " ) ; 

open (AIiTERA_FIIjEHANDLE2 , "> $$Sys {pbm_f ile} " ) or die "can't 
$$Sys{pbm_f ile} : $ ! " ; 

my $old_out = select (AIiTERA_FILEHANDLE2 ) ; 
print " $GLOBAIi_COPYRIGHT_NOTICE\n" ; 



&Emit_Module_Header ( $$Sys (pbm_name} ) 

&PBM_Emit_Simple_Assignments ($Sys) ; 

&PBM_Emit_IRQ_Prioritizer ($Sys) ; 

&PBM_Emit_Address_Decoder {$Sys) ; 

&PBM_Emit_Read„Data_Mux ($Sys) ; 

&PBM_Emit_Dynainic_Bus_Sizer ($Sys) ; 

&PBM_Emit_Wait_State_Generator {$Sys) ; 

&PBM__Eniit_Setup_Hold_Logic {$Sys) ; 

ScVprint ( " \n endmodule // $Sys {pbin_name} \n" ) ; 



close {ALTERA_FILEHANDLE2) ; 
select ($old_out) ; 

my $synth_list_ref = $$Sys { synth_f ile_list} ; 
push (@$synth_list_ref , $$Sys {pbm_f ile} ) ; 

) 

################################################################ 

# Generate_Core 
# 

# Given a %Sys-hash (reference) , we do everything required to 

# generate a system-level "core" module, including opening the output- 

# blorting all logic into it, and subsequently closing the output file 

# again . 

sub Generate„Core 
( 

my {$Sys) = (@_) ; 

# Open the output file: 
# 

&PBM_Progress ("Creating Core module: $$Sys {core_f ile} . " ) ; 
open (ALTERA_FILEHANDLE , "> $$Sys (core_f ile} " ) 

or die "can't open $$Sys{core_f ile} : $1"; 
my $old_OUt = select (ALTERA^FILEHANDLE ); 
print "$GLOBAL_COPYRIGHT_NOTICE\n" ; 

&Emit_Module_Header ( $$Sys {core_name} ) ; 

&Core_Emit_Wire_Declarations ($Sys) ; 
&Core_Emit_Instances ($Sys) ; 

ScVprint ("\n endmodule // $$Sys {core_name} \n" ) ; 

close (ALTERA_FILEHANDLE) ; 
select ($old_out) ; 

my $synth_list_ref = $$Sys { synth_f ile_list } ; 
push (@$synth_list_ref , $SSys {core_f ile) ) ; 

} 

################################################################ 

# Generate_Wrapper 
# 

# Given a %Sys-hash (reference) , we do everything required to 

# generate a system wrapper-module, including opening the output-file 

# writing its contents, and subsequently closing the output file 

# again. 
# 

# This function actually does a very simple thing: Create a 

# wrapper-module with a single black-box instance in it. It looks 

# scary and complicated because it's tri-lingual, and the language 




# constructs to do this simple thing are more structurally different 

# than reason would dictate. 

!############################################################### 

5 sub Generate_Wrapper 
{ 

my ($Sys) = (@_) ; 

# Open the output file: 

10 # 

&PBM_Progress {"Creating Wrapper module: $$Sys {wrapper_f ile} . " ) ; 
open (WRAPOUT, "> $$Sys {wrapper_f ile} " ) or die 

"can't open $$Sys{wrapper_f ile) : $1"; 
my $old_out = select (WRAPOUT) ; 



15 



^ 25 



ffi # Some languages require a little opening dance before the 

f=^. 30 # instantiation: 

if ($$Sys{hdl_language} =~ /'"vhdl/i) { 
^ &Emit_VHDIi_Component ( $$Sys {core_name} ) ; 

2 &Vpr int ( " BEGINXn" ) ; 

35 } elsif ($$Sys{hdl_language} Z'^ahdl/i) { 

Q ScVprint ( "VARIABLEXn" ) ; 

rn &Vprint (" $core_instance__name : $$Sys {core_name} ; \n\n" ) ; 

ScVprint ("BEGINXn"); 

I 40 

# The instantiation per-se: 

&Instantiate_And„Connect ( $$Sys {core_name} , 

$core_instance_name, 0, 
45 $$Sys{hdl_language} ) ; 

# And then, of course, everyone requires a little c losing -dance : 
if {$$Sys{hdl__language} =- /vhdl/i) { 

&Vprint ( "END behavior; \n" ) ; 

} elsif ($$Sys{hdl_language} =- /^ahdl/i) { 
ScVprint ( " END; \n" ) ; 



50 



my $core_instance„name = " the_$$Sys {core_naine} " ; 
&Emit_Top_Comment ($$Sys{name} , $$Sys {hdl_language} ) ; 



20 # AHDL is funny, and requires that we do a semi-C-like "extern" 

# (FUNCTION) declaration of the thing we're about to instantiate: 



&Declare_Ports_For ($$Sys{core_name} , 0, $$Sys (hdl_language} ) 
if $$Sys{hdl_language} =~ /'^ahdl/i; 

&Emit_Module_Header ( $$Sys {name} , $$Sys {hdl_language} , 1); 



} elsif ($$Sys{hdl_language} Z'^verilog/i) { 
55 ScEmit_Comment ( " \n exemplar attribute $core_instance_name NOOPT TRUE \n" ) ; 

ficVprint ("\n // synopsys translate_on \n"); 
&Vprint ("\n endmodule // $$Sys {name} \n" ) ; 

} 



60 close (WRAPOUT) ; 

select ($old_out) ; 

} 



^^^#################################^^# 



###################l^##################################tf¥###### 

# Generate_Inc_File 
# 

# If we're generating an AHDL wrapper, then it's customary to 

# also make an ".inc"-file. This is, I suppose, the AHDL-equivalent 

# of a C-language header (".h") file. 
# 

# This function generates such a wrapper for the system if 
# 

################################################################ 

sub Generate_Inc_File 

{ 

my ($Sys) = (@_) ; 

if ($$Sys{hdl_language} !- /^ahdl/i) { 

warn ("Suspicious call to Generate__Inc_File . 

(language is $$Sys {hdl_language} , not AHDL)"); 

return; 

} 

$ $ Sy s { inc_f i 1 e } = " $ $ Sy s { sy s t em_di r ec tory } / $ $ Sy s { name } . inc " ; 

&PBM_Progress ("Creating AHDL include-f ile : $$Sys { inc_f ile} . " ) ; 
open (INCOUT, "> $$Sys { inc_f ile} " ) or die 

"can't open $$Sys { inc_f ile} : $!"; 
my $old_out = select (INCOUT) ; 

&Emi t_Top_Comment ( $ $Sys {name } , $ $Sys {hdl_language } ) ; 
&Declare_Ports_For ($$Sys{name} , 0, $$Sys {hdl_language} ) ; 

close (INCOUT); 
select ($old_out) ; 

} 

################################################################ 

# Generate_Symbol 
# 

# Given a ref to the %Sys-hash, this routine generates a Quartus 

# BSF-file (schematic symbol) suitable for representing %Sys in a 

# schematic. The actual work of symbol-layout and geometry is done 

# by Aaron Ferrucci ' s mighy " ScGenerate_BSF " function in the library 

# module "mk_bsf.pm". 
# 

# We get to say how the ports are arranged by building a list of 

# port-descriptions. We hand this off to Aaron, and he gives us back 

# a string, which is the entire contents of a valid BSF-file (not yet 

# created). We then create the file, write Aaron's string into it, 

# and we ' re done . 
# 

################################################################ 
#### 

# Segment -ordering 
# 

# The top-to-bottom order that the symbol -segments is a little 

# bit important, and there are many subtle issues, both subjective 

# and practical, that come into play. One could write an entire 

# program, I'm sure, just f iddling-around with the perfect ordering. 

# But it's pretty clear that whatever hash-ordering comes out of 

# "keys" is probably not what the user wanted. 

# I'm going to sort thus: 
# 

# — If you're the master, you're first. 



# Any module with "use_tri_state_bus" takes priority. 

# — alphabetical by class-name 

# — alphabetical by module name. 
# 

# We're sorting a list of %Mod-refs, so $a and $b are like "$Mod" 
# 

sub segment_sort 
{ 

return -1 if $$a{Is_Bus__Master} ; 
return 1 if $$b{Is_Bus„Master} ; 

# No one was the master. The guy with the tri-state databus wins. 

return -1 if $$a(Uses_Tri_State__Data_Bus} && ! $$b{Uses_Tri_State_Data_Bus } ; 
return 1 if ! $$a{Uses_Tri_State_Data_Bus } && $$b{Uses_Tri„State_Data_Bus } ; 

# It's a tie! Whoever has the alphabetically-first class-name wins: 
my $class_result = $$a{class} cmp $$b{class} ; 

return $class_result if $class_result != 0; 

# It's still a tiel Whoever has the alphabetically-first module name wins: 
return $$a{name} cmp $$b{name} ; 

} 

sub Generate_Symbol 
my ($Sys) = (@_) ; 

&PBM_Progress ("Generating Symbol $$Sys{name} .bsf " ) ; 

# There will -always- be a group at the top with the unwavering 

# elk/reset ports on it. 
# 

my @symbol_segments = ("elk | 1 ] input, 

reset_n j 1 | input,**); 

# It sure would be nice if there were, say, a database of all the 

# widths and directions of every port on the system-module. 
# 

# HEY! It's our lucky day! 

# Someone already did "ScIiist_Ports_For " on the system-module. Get 

# handy hashes of directions and widths: 
# 

my $width_hash = &:Get_Port_Widths ($$Sys {name} ) ; 

my $dir„hash = &:Get_Port_Directions ( $ $Sys {name} ) ; 

# Put all shared-port groups first: 

foreach $bus_name ( $$Sys { tri_state_bus_list ) ) { 
my @bus_ports = ( ) ; 

my $shared_port_table = $$Sys {shared_port_table} ; 
foreach $ share d_port_name (keys (%$shared_port_t able) ) { 

my $w = $$width_hash{$shared_port_name} ; 

my $d = $$dir_hash { $shared_port_name} ; 

push (@bus_ports, " $shared_port_name ] $w | $d" ) ; 

} 

# A null string here should not happen, but don't risk it: 
my $segment_description = join (",\n", @bus_ports) ; 

push (@symbol_segments, $segment_de script ion) if $segment_description; 

} 

# Now go through the system, module -by-module, and make 

# a segment for each one's external (non-shared) ports. 

# Note that we even include the master. Nioses don't have any 

# external ports, but who knows what the future may bring? 



# 

foreach $Mod (sort segment_sort &Get_Sys_Module_List ( $Sys ) ) { 
my @mod_ports = ( ) ; 

foreach $Port ( ficGet_Module_Port_List ( $Mod) ) { 
next if $$Port Cis_shared} ; 

next unless $$Port {is_external) ; 

my $pin_name = $$Port {system_signal ) ; 
my $w = $$width_hash{$pin_name} ; 

my $d = $$dir_hash {$pin_name}; 

push (@mod_ports, "$pin_name | $w | $d" ) ; 

} 

# Avoid asking for a "segment" for modules that don't have any ports: 
my $segment_description = join (",\n", @mod_ports) ; 

push (@symbol__segments, $segment_description) if $segment_description 

} 

# Mr. Ferrucci, if you please... 
# 

my $bsf_contents = &Generate_BSF ( $$Sys {name} , @symbol_segments) ; 

# Do the usual file-opening mechanics.: 
# 

my $bsf_f ilename = " $$Sys{system_directory} /$$Sys {name} .bsf " ; 
open (BSFOUT, "> $bsf_f ilename" ) or die 

"Generate_Symbol : Couldn't open $bsf_f ilename for output. $!"; 
print BSFOUT $bsf _contents ; 
close BSFOUT; 



################################################################ 

# Sys_Gen_Housekeeping 
# 

# Well, this is a fine how-do-you-do, isn't it? 
# 

# There are a handful of annoying little things we need to do 

# to prepare for the great, glorious business of system-generation. 
# 

# Perhaps most importantly, we use a lot of the handy- dandy 

# logic-generation routines from " gener a tor_f unctions .vpp" (e.g. &Mux) . 

# That's swell, but this here file (that you're reading) is a 

# Perl -module- which gets "use"d. That's pretty civilized, and 

# there are several good reasons for doing it that way: 
# 

# * Perl line-numbers and error-reporting actually work. 
# 

# * We don't have to "eval" this file TWICE through Vpp's 

# two-pass process . 
# 

# But, since this logic-generation program doesn't get Vpp'd, 

# how can we be sure that "generator_f unctions .vpp" ever got loaded? 

# Well, we can be sure by -loading it ourselves-. We do so 

# by calling ScVpp on our own behalf — not to generate logic, but 

# just to load a library of handy Perl functions. Truth 

# is stranger than fiction. 
# 

# And that's not all. All of the generator-functions have an 

# oddball output-behavior: They don't actually print anything into 

# the output file unless a special vpp-variable says it's "safe". 

# That variable is "$vpp_pass", which must be '2' for any of the 

# generator-functions to print. So, sneakily, we set this 

# global variable here, after we've read-in the library using 



# ScVpp. Because this is sneaky, it's also implementation -dependent 

# and error-prone. This will break some day when somebody 

# changes the way Vpp works inside, I guarantee it. Global variables 

# truly are evil . 
# 

# FUTURE WORK: 

# I respectfully suggest that the approach used by "generator_f unctions .vpp" 

# could use a good overhaul. Phrasing all that stuff as a real Perl 

# module would have several advantages — not the least of which would 

# be eliminating the need for this kludge you see here. 
# 

################################################################ 
sub Sys_Gen_Housekeeping 
( 

my ($Sys) = (@_) ; 
my @Synth_File_List = ( ) ; 

$$Sys{synth_f ile^list} = \@Synth_File_List ; 
$PBM_VERBOSE = $$Sys {verbose} ; # More evil globals . 

# run Vpp, but just to "import" the generator-functions library: 
&:Vpp ("-Q", 

"-D" , $$Sys(system_directory} , 

"-H" , "$$Sys{sopc_directory}/bin/vpp/generator_f unctions .vpp" 
) ; 

# Aren ' t I sneaky? 

# 1 IBANGl I ... Ouchl My f oot 1 
# 

$vpp_pass = 2; # this lets all the vpp-libraries actually print. 

} 

; ################################################################ 

# Generate„PBM__And_System 
# 

# Given a reference to the system-level PTF section (and 

# an %arg-hash that we inherit from mk_systembus) , this 
) # function does everything necessary to: 

# 

# * Create an HDL implementation of the system PBM 

# * Create an HDL implementation of the system-level "core" module. 

# * Create an HDL wrapper. 
45 # 

# This task involves rummaging- through the PTF data, opening all the 

# appropriately-named files in the appropriate places, writing all the 

# HDL-code into them, and tying a bow around the whole mess. 
# 

50 # Once you've done this, the only thing left for you to do is 

# synthesize it and include it in your design. 
# 

# This function returns (by reference) the constructed database 

# known as "%Sys." This way, our caller can snoop on all the 
55 # excellent work we've done on his behalf. 

# 

################################################################ 

sub Generate_PBM_And_System 

{ 

60 my ($arg, $db_Sys) = (@_) ; 



my %Sys; undef %Sys; 

%Sys = %$arg; # Start off by knowing everything that 



# ink_systeinbus knows. 



ry 



&Sys__Gen„Housekeeping 



(\%Sys) 



&Get_System_Data_From_PTF ( \%Sys , $db_Sys ) ; 
&Check_Avalon_Rules (\%Sys) ; 

&Create_SystenuPort_Lists (\%Sys) ; 



5cGenerate_PBM 
10 ficGenerate_Core 

ficGenerate_Wrapper 

&:Generate_Inc_File 

&Generate_Symbol 



(\%Sys) 
(\%Sys) 
(\%Sys) 
(\%Sys) 
(\%Sys) ; 



if $Sys{hdl_language} /'^ahdl/i; 



15 



return (\%Sys); #caller may want to know new info too; 



20 



1; # Perl modules have to say "1' 



tables_2D.pm 



sub Build_Hash_From_Table 

5 ^ my Stable = shift or die "ERROR Build_Hash_From„Table : no table 
specif ied\n" ; 

my %Hash; 

10 $ table s/\#.*$//mg; #crush comments 

$table =- s/^\s*\n//mg; #crush extra new lines 

#$table =- s/'^\s*(.*?)\s*$/$l/mg; #crush end and begin spaces 



15 



3 

Us 



m 



my @line_array = split ( / \n/ , $table) ; 

#first line is keys for rest of array 

my $old_f irst__line = shift (@line_array) ; 

my $first_line = $old_f irst_line; 



20 #convert spaces between words to underscores 

$first_line s/ {\w) \s+ ( \w) /$l\_$2/g; 

my @key_array = split ( /\ j / , $f irst_line) ; 

_ 25 #second„line is dividing line, check to see no words live there 

O my $second_line = shift (@line_array) ; 

^ die "Build_Hash_From_Table, second line should be dividing . line and 

^ is not allowed to have words in it" 

^ if ($second_line =~ /\w/); 

□ 30 

foreach $line (@line_array) 

^ $line .="";# add space so splitting \ | \n gives us the right 
# size of array. 

35 

my @tmp_key„array = @key_array; 
my @value_array = split ( / \ | / , $line) ; 

my $value_si2e = scalar (@value_array) ; 
40 my $key„size = scalar (@key_arr ay ) ; 

die ("ERROR Build„Hash_From_Table, line\n ($line) ( $value_size) \n" 
"splits to a different size than first line\n" . 
" ($old_f irst_line) ($key_si2e) \n" ) 
45 if ($value_size != $key_size) ; 



#First column is hash index. 

my $f irst„hash_index = shift (@value_array) ; 
50 $first_hash_index =- s/^\s* ( . *?) \s*$/$l/ ; 

shift (@tmp_key_array) ; 

#All other columns are added under hash index 

foreach $value (@value_array) 

C 

55 my $name = shift ( @ tmp_key_ar ray ) ; 

$value s/'^Xs* (.*?)\s*$/$l/; 

$name =- s/'^\s* { . *?) \s*$/$l/ ; 

$Hash{$f irst_hash__index} {$name} = $value ; 

} 

60 } 

return (\%Hash) ; 

} 




10 } 



sub Get_Table_Row_Nc 
^ my $hash = shift or die "ERROR Get_Table_Row_Naines , no hash specif ied\n" ; 

die "TYPE MISMATCH ERROR Get_Table_Row_Names , ref hash is 
(" .ref ($hash) . ") \n" . 

"Not (HASH) \n" 

if (ref($hash) ne "HASH"); 
return (keys %$hash) ; 



15 



20 



sub Get_Table_Coluinn_Names 

^ my $hash = shift or die "ERROR Get_Table_Column_Names , no hash specif ied\n" ; 

die "TYPE MISMATCH ERROR Get_Table_Column_Names , ref hash is 
(" .ref (Shash) , " ) \n" . 

"Not (HASH) \n" 

if (ref($hash) ne "HASH"); 



Q 



my ©array = &:Get_Table_Row_Names ( $hash) ; 
print "debug @array\n" ; 
my $row = shift (@array) ; 
print "debug $row\n" ; 
25 my @return_array = keys % {$hash->{$row} } ; 

print ("DEBUG @retum_array DEBUG\n"); 
return (@return_array) ; 



^ sub Get_Table_Row_Column 

Ly 30 { 

0 my $hash = shift or die "ERROR Get_Table_Row_Column, no hash specif ied\n" ; 
^ my $row = shift or die "ERROR Get_Table_Row_Column, no Row specif ied\n" ; 

□ my $column = shift or die "ERROR Get_Table_Row_Column, no Column 

01 specif ied\n" ; 
: ^ 35 

return ( $hash-> { $row} { $col\amn} ) ; 

y } 

y s 

sub Get_Table_XY 

fy 40 { 

Q my ($x,$y) = @„; 

return (&Get_Table_Row_Col\amn ( $y , $x) ) ; 

} 

45 sub Table_Row_Coliamn_Is_Def ined 

^ my $hash = shift or die "ERROR Table_Row__CoIumn_Is_De fined, no hash 

specif ied\n" ; ^ . r» 

my $row = shift or die "ERROR Table_Row_Column_Is_De fined, no Row 

50 specif ied\n" ; , 

my $column = shift or die "ERROR Table_Row_Column_Is_De fined, no 

Coliomn specif ied\n" ; 

return (defined ( $hash-> { $row} { $column} )) ; 

55 } 

sub Table_.XY_Is_Def ined 
{ 

my ($x, $y) = @_; 
60 return (&Table_Row_Column_Is_Def ined($y, $x) ) ; 

} 



1; 



v2vhd . pm 



#Copyxight (C) 2000 Altera Corporation 

############################################################################### 
# 

# V2VHD and accompanying functions takes a verilog file and converts it to a 
vhd file . 

# 

# This works with most synthesizable verilog code. 

# Here is what is not supported and known ways to work around it: 

# 0) Verilog numbers must not be more than 32 bits wide 

# 1) No Procedure /Tasks allowed. 

# 2) Asynchronous set /resets must follow elk in always declaration 

# i.e. always @(posedge reset or posedge elk) not supported, 

# always ©(posedge elk or posedge reset) is. 

# 3) Asynchronous set /resets must be first declared i.e. 

# always @ (posedge elk or posedge reset) 
I # begin 

# if (reset) 

# //asynchronous stuff here. 

# else 

# //synchronous statements here 
> # endif 

# 4) Params may not define width, i.e. output [Width - 1: 0] foo not supported 

# 5) Params must be able to convert to types of natural or string 

# 6) Parameters must be set using defparam Instance .par am= value not #value 

Instance ^ • x v 

3 # 7) Instantiation must connected by Instance (.port (connection)) not 

Instance (connection) 

# 8) No case statements allowed. Use a lot of if statements xnstead. 

# 9) verilog and my code is case sensitive, vhdl isn't. 
#10) don't name a wire/module/ instance a vhdl reserved word. 

5 #11) Integers are forced to be 32 bits wide 

#12) verilog /f imky_@ ! #naming_convention_with_slash not supported 

#13) timing statements are not supported i.e. a <= #23 b; will be treated as a 
<- 

#14) ' $readmemb, $readmemh and $write are the only special $variables supported 
■0 #15) It's currently possible to name a wire = tmp_logic later on in the module 

or some n 4. • 

# other name that get_exclusive name doesn't know about yet. The solution 

is to ^ . 

# run through first and gather up all known names then do Exclusive name on 

45 the known name 

# set 

############################################################################### 
#Ways to make code more readable 

# 1) Put comments back in 

50 #2) Find a way to convert boolean to std_logic_vector . 

# 3) Make wire assignments a list with keys = rhs, value = Ihs 

# then when we make a new wire we can look for key rhs before making a new 
wire . 

# 4) Find a better way to concatenate /reduce names, sign extend names 

55 #5) Fix condition where wire tmp_logical is declared later on after wire name 
is 

# created. 

# Known Bugs : 

# is^real should replace equivalences on parenthesis names. 

60 ##############.################################################################# 
# 

# read_file ( $f ile_index, $complete_f ilename) 
# 



# read_file returns contents of the file named $comp:^fc_f ilename . 

# Sounds like a cakewalk except that Verilog has a means of including files 

# much like C++ does. 
# 

5 # So everytime read_f ile sees : 
# 

# " include f oo 
# 

# it calls: 

10 # &read_file ( $f ile_index+l , f oo) ; 

# and sticks the result directly in its string, which it returns when it 

# reaches the end of its file. (Recursive fiinctions are like that). 
# 

15 # This file uses a global list called $include_list . 

# $include list is used to ensure that infinite ^include loops don't happen 

# 

20 sub read_file 

my ($f ile„index, $complete_f ilename, $path) = @_; 
my $f ile_contents; 

25 $complete_f ilename trl\\|\/|; 

$path tr I W 1\/ I ; 

^ #wam "path, filename $path, $complete_f ilename \n" ; 

CO $path = unless $path; 

ffi 30 open ($file_index, "<$path\/$complete_f ilename") 11 

Q die "Unable to open $complete_f ilename , $ I " ; 

Lj, whi le ( < $ f i le_index> ) 

S ^ if (0)#(s/'^\s*\^include\s+\M.*?)\"//) 

35 { 

1^ my $fn = $1; . ^ ^ ^-i \ n 

y #print "in file $ comp let e_f ilename , found include, 51\n ; 

$fn =- trl\/l\\l ; 
H- if ($fn /"((WW) I (\w\:))/) 

^M^^ ^ #full path name isnt specified. Use previous directory location. 

2 $fn = $path.$fn; 

^ $include_list{$complete_f ilename} .= if 

45 ($include_„list{$complete_f ilename} ) ; 

$include_list{$complete_f ilename} .= $fn; 

#print "include_list for $complete_f ilename is 
" . $include_list{$complete_f ilename} . 

#" check value is $ comp le t e_f ilename \n" ; 

&check_f or_inf inite_include_loops ( $fn, $complete_f ilename) ; 
$file_contents .= &read_f ile ( $f ile_index+l , $fn, $path) ; 

} 

else 
55 { 

$f ile_contents . = $_; 

} 

} 

close ($file_index) ; 
60 return ( " \n$f ile_contents\n" ) ; 

#^############################################################################# 
# 



# check_for_inf init^^hclude_loops 
# 

# I'm getting sick of recursive fiinctions. Here's another one. 
# 

# This one hunts down the tree structure in $included_f ile{list} and makes sure 

# that files don't refer back on themselves via 'includes. 
# 

# It is okay for multiple 'includes of the same file as long as that file 

# doesn't include something which includes something which includes the orignal 
file. 

# 

# To check, we put a stake in the groiind ( $check„value) and traverse the 
'include files 

# If we ever see our stake again, we know we've walked in a circle. 

############################################################################### 
# 

sub check_f or_inf inite„include_loops 
{ 

my {$included_f ile, $check__value) = @_; 

#print "c„f_i_i„l, if, $included_f ile, cf, $check_value\n" ; 
if ( I$include_list{$included_file}) 

return; #never heard of this file 

before 

) #no infinite loop here. 

foreach $key ( split (/ \ ,/, $include_list { $included_f ile) ) ) 

# I've seen this guy somewhere before 
( # make sure I'm not 

circling. 

if ($key eq $check_value) 

die "ERROR: FOUND INFINITE INCLUDE LOOP i \nFILE $check_value 
EVENTUALLY INCLUDES ITSELF !\n"; 
} 

else 
{ 

#print "checking $key against $check_value\n" ; 

#no smoking gun yet, check what this file includes. 

#keep the same $check_value; 

&check_for_inf inite_include„loops ($key, $check_value) ; 

} 

} 

return; 

} 

sub Kill_Comments 
{ 

my {$line) = 

#Kill multi_line_comments 
my $tmp_line; 

while ($line =- s | ( . *?) \/\* ( . *?) \*\/ M s) 
{ 

. $ tmp_l ine . = $ 1 ; 

} 

$tmp_line .= $line; 

#Kill single_line_comments 

$line = ""; 

while ($tmp_line s | ( . *?) \/\/ . *?\n | \n | s) 
( 

$line .= $1; 

} 



$ 1 ine . = $ tmp_Mire ; 

return ($line) ; 

} 

sub Process_Coniinents 
{ 

ray ($line) = @_; 

# Comments 

# VHDL does not have a means for making multi line comments 

# That means that we have to convert the lines to verilog single line 
comments (//) 

while ($line s | ( . *?) \/ \* ( . *? ) \*\ / | $1 1 s) 
{ 

my $commented_line = $2; 

#There better not be nested comments in here! 
die "BAD COMMENT, $commented_line , NESTED COMMENTS!" 
if {$commented_line =- /\/\*/) ; 

# Convert all single line comments (//) in the comment to (/-/) so we 

don' t 

# confuse ourselves later. 

while {$commented_line =- s | \/\/ | \/\-\/ 1 ) { ; } 

$commented„line = join (" \n\ / \/ split (/ \n/ , $commented_line) ) ; 
############### 

# Right now we just crush multi-line comments. We could get fancier 

later 

# If you wanted to keep these comments, uncomment the next line. 

# $line .= "\/\/$commented_line\n" 

} 

############### 

# Now we just have single comments left. For these, we can just convert 

# the verilog single line comment // to the vhdl single line comment — . 

# We also need to convert all ticked statements, e.g. ("define, "ifdef, 
"endif, etc.) 

# to their non-ticked coimterparts , (define, ifdef, endif, etc.) And since 

we 

# later split commands on semi-colon (; ) Crush ; so that we won't have to 
worry about it . 

# crush single-line comments 

while ($line =- s | ( . *?) \/\/ ( . *?) \n( . *) j $1 1 s) 
{ 

my $comment = $2; 
my $rest = $3 ; 

#warn "found single line comment named $comment, $l\n" ; 

#Keep comments with special word "exemplar" in them for Leonardo 
Spectrum. 

#But convert comment character to vhdl comment character so that we don't 
#get stuck in an infinite loop. 

if ($comment /'^\s*exemplar/i) 
{ 

#wam "putting $comment back into line\n" ; 
$line .= " \-\-$comment\n" ; 

} 

$line .= $rest; 



############### 

# Just kill comments for now 

# while ($comment s/ ( \ " | \ ;)//){; } 



# $line .= "\-\-$coinment" ; 

} 



return ($ line) ; 

} 

############################################################################### 
# 

# Process_Verilog_Directives takes verilog code as its sole string argument: 

# It then processs all things in the file that have " associated with it except 

# for 'include 

# such " thingees include 

# 'define foo 3 

# 'ifdef, 'else, 'endif 

# 'foo 

# It returns an equivalent verilog string devoid of all "marks. It replaces 

# all 'foo with its definition if defined. (No error message is printed if foo 

# has not been defined). It does the correct thing on 'idef, 'else, 'endif 

# statements, (including nested ifdefs) . 

############################################################################### 
# 

sub Process_Verilog_Directives 
{ 

my ($line) = 

my $defined_line = ""; 

undef %defined; 
undef %def inition_of ; 
my % defined ; 
my %def inition_of ; 

my @nested_ifdef s = (1); #start off -including code, 
my $I_Should_Keep_This_Part; 

$line = " ".$line; #a space is added so that first time through, split 
/ ' / , we pass through 

tall of the gates and emerged unscathed as the first part of $def ined„line ; 

#print "line is $line\n" ; 

foreach $tick (split ( / \ ' /s , $line) ) 

{ 

$I_Should_Keep_This„Part = eval (join ('&&', @nested_ifdef s) ) ; 
#print ("tick is $tick, isktp is $I_Should_Keep_This_Part , nifdef = " 
#.join ( • I ' ,@nested„ifdefs) . "\ndefined line now is $def ined_line 

\n"); 

die "unmatched 'endif" if ((scalar (@nested_ifdef s) ) == 0) ,- 

if ($tick =^ /^ifdef\s+(\S+) ( .*) /s) 

{ 

$defined{$l} = 0 unless ( $def ined{ $1} ) ; 

$I_Should_Keep_This_Part = ($def ined{$l} && 

$I_Should_Keep_This__Part) ; 

push (@nested_ifdef s, $I_Should_Keep_.This_Part) ; 
$def ined_line .= $2 if ($I_Should_Keep_This_Part) ; 
next ; 

} 

if ($tick =- /'^elseXs+C .*) /s) 
{ 

die ("saw 'else before 'ifdef") unless ((scalar (@nested_if def s ) > 

1) ) ; 

$I_Should_Keep_This_Part = pop (@nested_if def s) ; 

$I_Should_Keep„This_Part = ( ! $I_Should_Keep_This_Part ) && eval (join 
(•&&', @nested_if def s ) ) ; 



push (@nested_ifdefs, $I_Should_Keep„This_Part) ; 
$defined_line .= $1 if ( $I_Should_Keep_This_Part ) ; 
next ; 

} 

if ($tick /^endif \s+( . *) /s) 

^ die ("saw ^endif before ^ifdef in $line\n" ) unless {(scalar 

(@nested_ifdef s) > 1) ) ; 

pop (@nested_ifdef s) ; • ^ ^ 4= x x 

$I_Should_Keep_This„Part = eval (join ('&&', @nested_ifdef s) ) ; 

#print "endif says isktp is $I_Should_Keep_This_Part , nif " oom 

( • 1 ' ,@nested_ifdef s) ; 

$defined„line .= $1 if ( $I„Should_Keep_This_Part ) ; 

next ; 

} 

if ($tick =- /\Adefine\s+(\S+)\s*(\S*)\s*$/m) 
{ 

if ( $I_Should„Keep_This_Part ) 

^ #print "definition of $1 is $2, vpp pass is $vpp_^ass" ; 
#die "$1 is defined in 2 places" if ($def ined{$l} ) ; 
$defined{$l} = 1; 
$def inition__of {$1} = $2 ; 
$tick s/'^(.*?)\n(.*)/$2/s; 
$def ined_line .= $tick; 

} 

next ; 

} 

if ($tick =^ /^{\S+) {,*) /B) 
{ 

$tick = $definition_of {$1} .$2; 

$defined_line .= $tick if ($I_Should_Keep_This_Part) ; 
next ; 

} 

if (Stick /'^Xs + Zs) 
{ 

#this should only be the first one. 

$defined_line .= $tick if ($I_Should_Keep„This_Part) ; 
next ; 

} 

die "missing ^endif" if ((scalar (@nested_ifdefs) ) > 1) ; 



return ( $def ined_line) ; 



} 



sub date„time 

^ my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdet) = local t ime ( time) 
$mon++; 

$year += 1900; 

my $d = sprintf ("%04d.%02d.%02d",$year,$mon,$mday) ; 
my $t = sprintf ("%02d:%02d:%02d",$hour,$min,$sec) ; 

return " $d $t" ; 



############################################################################### 
# 

# Verilog_Nuinber_To_Bit_String 

5 # Verilog„Niimber„To_Bit_String takes a verilog number of the form 5 ' hA 

# and turns it into a quoted bit string "01010". 

#^############################################################################# 
# 

sub Verilog_Number_To„Bit_String 
10 { 

my {$verilog_number) = @_; 
my $integer_value = 0; 
my $ width; 

15 $verilog_number s/ ^\s* ( . * ? ) \s*$/$l/ ; 

die "ERROR NO WIDTH SPECIFIED FOR VERILOG NUMBER $verilog„number \n" 
iinless ($verilog_number =- s/'' ( \d+) \ ' // ) ; 

20 $ width = $1; 

die "width is greater than 32 bits. I intend to fix this, but for now, you 

are out of luck\n" 

if ($width > 32) ; 
# If there is an 'x' or 'z' in the n\jucnber, return 
f25 # a bitstrecim of x or z with width $width 

if ($verilog_number /([zx])/i) 

\M { 

K my $tmp_string = $1 x $width; 

So return ( " \ " $tmp_string\ " " ) ; 

rj 

^ if ($verilog_number / '^b { [ 0-1] +) $/i) 

1^5 foreach $bit (split (//,$1)) 

0^ $integer__value = $integer_value * 2; 

N $integer_value += 1 if ($bit == 1) ; 

ru } 



:40 } 



if ($verilog_number =~ /'^dC [0-9] +) $/i) 
{ 

$ integer_value = $1; 

45 } 

if ($verilog_number /'^o ( [ 0-7 ] +) $/i) 
{ 

$integer_value = eval ( " 0 " . $1) ; 

50 } 

if ($verilog_number /''h( [0-9a-f ] +) $/i) 
{ 

$integer_value = eval ( " Ox" . $1) ; 

55 } 

die ( "ERROR Verilog_Number_To_Bit_Size_And_Bit_String : \n" 
."NUMBER $verilog_number NOT UNDERSTOOD I " ) 
if ($integer_value eq ""); 

60 

if ($integer_value >= 2**32) 
{ 



#waim " verilog_nuinber $verilog_number int_value ( $integer_value) 
bigger than 2**32\n"; 
my @bit_array; 
while ( $integer_value > 0) 
( 

unshift (@bit_array, ( $integer__value % 2) ) ; 
$integer_value = $integer_value >> 1; 

} 

my $bit_string = join ( " " , @bit_array) ; 

#wam "test way to do it yields $bit_string\n" ; 



#Orion, warn if number is >= than 2>>$width 

my $retum_string; 
my $ ma s k_va lue ; 

foreach $mask_bit (reverse ( 0 ($width-l) ) ) 
{ 

if ($integer„value & (1 « $mask_bit) ) 
{ 

$return_string .= "1" ; 

} 

else 
{ 

$return_string .= "0" ; 

} 

} 

#return ( " \ ' $retum_string\ ' " ) if ( $width == 1 ) ; 
return { " \ " $retum_string\ " " ) ; 



sub VN2BS {return { &Verilog_Number_To_Bit_String (@_) ) ; } 

sub Process_Concatenation 
{ 

my ($ string, 

@Module_Inf o) = @_; 
my ( 

$Width_List, 

$Signal_List , 

$pWire_Assignments , 

$Equivalence_List) = @Module__Inf o ; 

my ($begin, $middle, $end) = &Co\int_Parentheses ( $string, ' \ { ' , ' \ } ' ) ; 
#wam " PC : middle ( $middle) \n" ; 
#wam %$Width_Liist ; 
#warn " PC ; end\n" ; 

die "ERROR Process_Concatenation, NO VALUE BETWEEN SQUIGGLY BRACKETS 
( $string) \n" 

if ($middle eq ""); 
while ($middle s/\ { | \ ) / /g) { ; } #e.g. {a, b, c , {a, e} , f , g} -> {a, b, c , a, e, f , 

my ( $expanded_ar ray ,$ width) 

ScExpand_Array_Of_Bit_Vectors„Into_Separated_Bits ( " , " , $middle , @Module_Xnf o) ; 
#warn "P_C, return_width is $return_width, width is $width\n" ; 
$string = "$begin"; 

if (scalar (split ( /\ , / , $expanded_array) ) == 1) 
{ 

my $tmp_string = $expanded__array 
while ($tmp_string s/\'/\"/){;} 

#Turn indexed bits into bit array of size 1 

while ($tmp_string =~ s/ \ [ \s* ( \d+) \s* \ ] / \ [ $1 : $1\ ] /s ) { ; } 



$string .= $tmp_string; 

} 

else 
{ 

$string .= " std_logic_vector\ ' " ; 

$string .= "\("; 

$string .= $expanded_array ; 

$string .= " \)$end"; 

} 

#wam "PC: Concatenation = $string\n" ; 

return (ficReplace ("Concatenation = $string" , $width, @Module_Inf o) ) ; 

} 

############################################################################### 
# 

# Expand_Array_Of„Bit_Vectors_Into_Separated_Bits 
# 

# Does exactly what it says. e.g. 

# &Expand_Array_Of__Bit_Vectors_Into_Separated_Bits {A{3 DOWNTO 2), "0010") 

# returns " A[3 ] , A[2 ] , ' 0 ' , » 0 ' , • 1 ' , ' 0 ' " 

# We convert brackets to VHDL Parentheses at the end of the module 
############################################################################### 

# 

sub Expand_Array_Of_Bit_Vectors_Into_Separated_Bits 
{ 

my ( $ separator , 

$Comma_Separated_String , 
@Module_Inf o) = @_; 

my ($Width_List , 
$ S ignal_Li s t , 
$pWir e_As s ignmen t s , 

$Equivalence_List) = @Module_Inf o ; 

my $ string = " " ; 
my $width = 0; 

foreach $name ( split (/ \s*\ , \s* /s , $Comma_Separated_String) ) 
{ 

$name =- s/'^\s* ( . *?} \s*$/$l/s; 
#wam "eabvisb name ($name)\n"; 

$name = &V2VHD_Equa t ion ($ name, @Module_Info) ; 



#Convert Bit String into bits, i.e. "10110" => •1','0','1','1','0' 
if (&Replace„Equivalences ($name, $Equivalence__Iiist ) 

/"(\" |\') ( [01XZ]+) \l$/i) 
{ 

foreach $bit (split ( / / , $2 ) ) 
{ 

$string .= "$separator " if {$string); 
$string .= "\'$bit\'"; 
$width++ ; 

#warn " eaobvisb bit_string bit is $bit, width is $width\n" ; 

} 

} 

else 
{ 

my ($lef t, $right) ; 



($naine, $left, Sright) = &Vector_Range ( $naine , $Width_Iiist ) ; 



if ($left eq {$left = &Width_Of ( $name , $Width„Iiist) ; ) 

if ($right eq 

^ $naine = &Add_Intennediate_Signal ( " tinp_$name 

$name" , $lef t , @Module_Inf o) ; 

$left = eval ($left - 1) ; 
$right = 0; 

} 

$left = eval{$lef t) ;$riglit = eval ( $right ) ; 

foreach $index (&Order ( $lef t , $right ) ) 

{ 

$width++; 

$string "$ separator \n\t" if ($string); 
$string .= " $naine\ [ $index\ ] " ; 

#warn " eaobvisb ( $naine ($ index )$ separator) added to string, width 
is $width \n" ; 

} 

} 

} 



return ($string, $width) ; 

} 

####^########################################################################## 
# 

# Vector_Order 

# Inputs, $left, $right 
# 

# Vector_Order (0,4) returns (0 TO 4) 

# Vector Order (3,1) returns (3 DOWNTO 0) 

# 



sub Vector_Order 
{ 

my {$lef t_index, $right_index) = @_; 
return " ($left_index) " 

if ($right_index eq ""); 
if ( ($left_index >= $right_index) || ( $right_index == 0)) 

{ 

return " ($left_index DOWNTO $right_index) " ; 

} 

else 
{ 

return " ($left„index TO $right_index) " ; 

} 

} 

^####^######################################################################### 
# 

# Order 

# Inputs, $left, $right 
# 

# Order (0,4) returns array (0,1,2,3,4) 

# Order (3,1) returns array (3,2,1) 

###########################################################################*### 
# 

sub Order 
{ 

my ($left, $right) = @_; 



my @Vector_Array ; 

die "ERROR Order: LEFT VALUE ($left) NOT A NUMBERXn" 
unless ($left =^ s/'^Xs* ( \d+) \s*$/$l/s) ; 

die "ERROR Order: RIGHT VALUE ($right) NOT A NUMBER\n" 
unless {$right =- s/"\s* ( \d+) \s*$/$l/s) ; 

if ($right > $left) {@Vector_Array = ( $lef t . . $right ) ; } 
else{ @Vector__Array = reverse ( $right . . $lef t) ; } 
return {@Vector_Array) ; 



############################################################ 

# Width_Of 
# 

# Returns the width of a variable, verilog number, or vhdl bit_stream. 

# eg. Width_Of (4'h2) = 4; Width_Of "01010" = 5; 

# Returns if the width is not known. 
# 

############################################################ 

sub Width_Of 

{ 

my {$var, $Width_List, $pParameter) = @_; 

#KILL SPACES! KILL! KILL! 
$var s/'^Xs* ( .*?) \s*$/$l/s; 

#A verilog n\xmber is nice enough to tell you its width 

#at the very beginning. Usually a pain, but in this case it is great 
if {$var =- /'^ (\d4-) \ • [bdoh] ( [\d+a-fxz] ) /i) 

#warn " WIDTH_OF found verilog number $var, returned width of $l\n" ; 
return ($1) ; 

} 

#Count the bits in a vhdl bit stream 
if ($var /-(\" |\' ) ( [01XZ3+)\l/i) 
{ 

my $width = scalar (split (//,$2)); 

#warn " WIDTH_OF found vhdl number $var, returned width of $width\n" 
return ($width) ; 

} 

my ($name, $left, $right) = &Vector_Range ( $var , $Width_List, $pParameter) 
#warn "Width_Of $var after Vector_Range, left, right -> $left, $right\n" 
return if ($left eq ""); #Not Known; 

return "$left" if ($right eq ""); #Known, but not a vector, 
return (abs{$left - $right) + 1); #vector width arithmetic 

} 

############################################################ 

# Vector_Range 
# 

# Returns the name and (left and right value) of the vector range for a 

# verilog or vhdl vector. 

# if 

# reg [4:0] foo; 

# ScVector_Range (foo [3:2]) = (foo, 3, 2) 

# &Vector_Range (foo) = (foo, 4,0) 

# &Vector_Range (foo [2]) = (foo, 2, 2) 

############################################################ 

sub Vector_Range 

{ 

my ($var, $Width_List, $pParameter) = @_; 



my $name; 
my $left; 
my $right; 

$var s/'^\s*(.*?)\s*$/$l/s; 

#If our var is foo [3:2] return (foo,3,2) 

#We're not sophisticated enough to deal with (>1) -dimensional 
#vectors. If you need a multi -dimensional vector width, 
#there is a keyboard in front of you, start typing. 

if ($var =~ /(\w+)\s*\[(.*?)\]/s) 
{ 

#warn " Width_Of brackets, inside brackets is $2\n" ; 
$name = $1; 

{$left,$right) = split ( /\s*\ : \s*/s, $2) ; 

$left = eval($left) ; 

$right = $left if ($right eq ""); 

$right = eval ($ right ) ; 

return ( $name , $lef t , $right) ; 

} 

#If our var is foo (3 DOWNTO 2) return (foo, 3, 2) 
if ($var =^ /(\w+)\s*\((.*?)\)/s) 

#warn " Width_Of brackets, inside brackets is $2\n" ; 

$name = $1; 

my $index - $2; 

($lef t, $right) = split ( / \s* (DOWN) ?TO\s*/s , $index) ; 

$left = eval($left); 

$right = $left if ($right eq ""); . 

$right = eval($right) ; 

return ( $naine, $lef t , $right ) ; 

} 

#No indecies are specified, that means use the whole 
#variable. Fortunately, we have already saved all 
#variable widths in %$Width_Iiist 

($left, $right) = split ( / \ , / , $$Width_List { $var } ) ; 
$name = $var; 

return ($name, $lef t , $right ) ; 



############################################################################### 
# 

# Replace_Parameters 

# Replaces all text in $val with $$pParameter {text} 

# Currently not being used 

sub Replace_Paraineters 
{ 

my ($val, $pParameter) = @_; 

while ($val s/ (.*?)( \b [a-zA-Z\_] \w* )(.*)$/ $1/ s ) 
{ 

last if ($2 =- /integer/i) ; 

my $param_substitution = $$pParameter {$2 } ; 

die "ERROR PARAMETER SUBSTITUTION: PARAMETER $2 NOT DEFINED\n" 

if ( $param_substitution eq ""); 
$val .= $param_substitution. $3 ; 

} 

return (eval {$val) ) ; 



############################################################################### 
# 

# Get_Port_Name_Direction_And_Type 

# Takes a vhdl port string and returns Name, Direction, Type and Vector Range 

# i.e. SIGNAL data_f rom_cpu : OUT STD_LOGIC_VECTOR 

# returns ( "data_f rom_cpu" , "OUT" , " STD_IiOGIC_VECTOR { 3 1 DOWNTO 0) " ) 
# 

sub Get_Port_Name_Direction_And_Type 
{ 

my ($string) = @„; 

my $possible_variables = ' SIGNAL [VARIABLE | SHARED \s+VARI ABLE ' ; 

if ($string /'^\s* ($possible_variables) \s+ (\w+) \s* : \s* ( \w+) \s* ( . * ) $/is) 

{ 

my ($name, $direction, $type) = ($2,$3,$4); 
return ($ncLme, $direction, $type) ; 

} 

else 
{ 

die "ERROR Get_Port_Name_Direction_And_Type, IMPROPER STRING $string\n" ,- 

} 

} 

############################################################################### 
# 

# Declare_Signal 
# 

# takes, $name, $pSignal_Width as arg\iments, returns 

# SIGNAL $name : STD__LOGIC_VECTOR ($left DOWNTO $right) 

# or 

# SIGNAL $name : STD_LOGIC_VECTOR ($left TO $right) 

# depending on pSignal_Width 

sub Declare_Signal 
{ 

my {$name, $pSignal_Width) = @_; 

my {$left, $right) = split { / \ , / , $$pSignal_Width{ $name} ) ; 
die "Declare_Signal, bad inputs { $name, $lef t , $right ) \n" 

if (($name /\W/) || ($left =- /\D/) || ($right =- /\D/)); 
my $Signal_Declaration; 

if ($left < $right) 

{ 

$Signal_Declaration = "SIGNAL $name : STD_LOGIC_VECTOR ($left TO 
$right);"; 
} 

else 
{ 

$Signal_Declaration = "SIGNAL $name : STD_LOGIC_VECTOR ($left DOWNTO 
$right) 
} 

#wam "DECLARE_SIGNAL RETURININGG $ Signal_Declaration\n" ; 
return { $Signal_Declaration) ; 

} 

############################################################################### 
# 

# Convert_Signals_To_Shared_Variable 
# 

# Takes a string and a pointer to Signal_List. 

# Converts every word ( \b ( [a-zA-Z] \w* ) \b) in the Signal_List from a SIGNAL 

# to a SHARED VARIABLE. Returns an array of all words changed. 

# This function is only needed to handle blocking statements. 

sub Convert_Signals„To_Shared_Variable 
{ 



my ($line, $Signal_List) = @_; 

die "ERROR Convert_Signals_To_Shared_Variable, Signal_List IS NULL\n" 

if ( ! $Signal_List ) ; 
my @retum_array; 

while ($line s/ \b ( [a-zA-2] \w* ) \b/ / ) 
{ 

my $var iable = $ 1 ; 

#warn "variable is $variable, line is ($line)\n"; 
push (@return_array, $ variable) ; 

my $tmp_Signal_List = $$Signal_List { $var iable } ; 

die "ERROR VARIABLE CONVERSION: of ($variable) FAILED 

($tmp_Signal_List) \n" 

linless ($tmp_Signal„List s/'" ( \s* ) (SIGNAL j SHARED VARIABLE) /$1SHARED 

VARIABLE/ S) ; 

$$Signal_List{ $var iable} = $tmp_Signal__List ; 

} 



sub Process_Register_Assigiunent 
{ 

my ( $line , @Module_Inf o) = 
my ( $Width_Li s t , 
$Signal_List , 

$pWire_Assignments) = @Module_Inf o ; 
my $lhs; 
my $rhs ; 
my $lhs_width; 
my $after_line; 

#Process $readmem (b | h) , $write, etc 

#warn "line is $line\n" ; 

if ($line s/^ ( \s* ) ( \$ . *?) \s*$/$2/s) 

{ 

return ($1 . &Process_Dollar_Verilog_Statements ($line, @Module_Inf o) ) ; 

} 

#Search for delay patterns 

$line s/ ( .*) \#\s*\S*(.*) /$1 $2/s; 

# "#" delay kind of broken due to differences between languages 

# representation of delays, so just forget about them for now 
if (0)#($line =^ s/ ( .*) \#\s*( .*) /$l/s) 

{ 

my $wait„amount = $2; 

my ( $ tmp , $ de lay_amount , $ res t_o f _1 ine ) ; 

if ($wait_amount =- /'^\(/) 
{ 

{ $tmp, $wait_amount , $rest_of_line) = &C ount_Paren theses ( $wait_amount ) ; 
$line .= $rest_of_line; 

} 

else 
{ 

$wait_amount s/'^ { \S+) { . * ) $/$l/s ; 
$line .= $beginning_of_line . $2 ; 

} 

#If there is only a delay statement, e.g. (#32;) return "wait for 32 ns;" 

if ($line =- /'^\s*\;/s) 

{ 

return ("WAIT FOR $wait_amount ns;"); 

} 

else 
{ 

$after_line = "AFTER $wait_amount ns" ; 



} 



#There are two kinds of verilog assignments that can be made 

# 1) blocking assignment made immediately 

# 2) non-blocking "<=" assignment made after all other items in that 

# times tamp are equated 

if ($line /-{.*?) (\<\=|\ = ) ( .*)$/s) 
{ 

ray ($lhs, $operator, $rhs) = ($1,$2,$3); 
my $ tmp_pWir e_As s ignment s ; 

my $line = &:V2VHD_Equation_Wrapper ("$lhs 

$rhs" , $Width_Iiist, $Signal_riist, \ $tmp_pWire_Ass ignment s ) ; 

#warn "P_R_A: After Wrapper wire assignments are $ $pWire_Ass ignment s \n " ; 

if ($operator eq "\=") 
{ 

$line s/'^( .*?) \<(\=.*?) $/$l:$2/s; 

#warn " found blocking statement ( $lhs$operator$rhs) Ihs is ($lhs)\n"; 
############### 

# BLOCKING STATEMENTS are tricky. 

# Verilog has this concept of "blocking and non-blocking" statements. 

# VHDL has module scoped SIGNALS that can only be non-blocking and 

# process scoped VARIABLES that must be blocking. To convert 

# verilog blocking statements into an equivalent VHDL blocking 

statement, 

# we must first convert the Ihs of the blocking assignments within 

our process 

# into VARIABLES. At the end of our process, we transform all our 

VARIABLE 

# names into temporary variable names and assign the original SIGNAL 

names 

# equal to the temporary variable names. Perhaps an example will 

keep my 

# confusing explanation from spinning your head any longer. 
# 

# always @ (posedge elk) 

# a = a + 1; 
# 

# will become: 

# PROCESS BEGIN 

# WAIT UNTIL elk = "1"; 

# number_l_l_bits__wide := "1"; 

--all machine generated equations 

# a_2_bits_wide : = std_logic_vector ' ( ' 0 ' , var iable^a ( 0 ) ) + 

--must preceed assignment and be 

# std_logic_vector • ( ' 0 ' 

n\imber_l_l_bits_wide(0) ) ; — of type VARIABLE 

# variable_a := a_2_bits_wide ( 0 DOWNTO 0) ; 

# a <= variable_a; 

# END PROCESS 

# 

############### 
############### 

# First, we convert any machine generated wire assignments t 

variable 

# assignments within the line since they need to be evaluated before 

# the "effective immediate" (ly) variable assignment. 

# in the above exsimple, number_l„l_bits_wide and a_2_bits„wide are 



# "machine generated" . 

my $machine_generated„commands = " " ; 
#wam "tmp_WA ( $ tmp_pWire_Assignments) \n" ; 
5 my (@blocking_commands) = split ( / \ ; / , $tmp^Wire_Assignments) ; 

foreach $block_command (@blocking_commands) 
( 

$block„command =- s/'^ (.*?) \< ( \= .*?)$/$!: $2 ; /s; 
&Convert_Signals_To_Shared_Variable($l, $Signal„List ) ; 
10 $machine__generated_commands .= " $block_command" ; 

} 

$ 1 ine = $machine_generat ed_commands , $ 1 ine ; 
############### 

15 # Now we'd like to translate all left hand side arguments in the 

process 

not 

20 non-vhdl 
$line . 



# into tmp names. Unfortunately, we only know what's in this line, 

# what is in the entire process. So for each chip design, we put a 

# sentence that says "Please Convert $signal_name To A Variable" in 
# We'll do the conversion later. 



25 while ($lhs =^ s/\b( [a-zA-Z] \w*) \b//) 

{ 

$line .= "Please Convert $1 To A Variable"; 

} 



% 30 } 

7^ else {$$pWire_Assignments .= $tmp_pWire_Assignments ; } 

G if ($after_line ne "") 

01 { 

« 35 $line =- s/\;\s*$//s; 

Q return ("$line $af ter_line; " ) ; 

^ } 

else 

{ 

40 return ("$line"); 

} 

} 

else 
{ 

45 return 
} 

} 



n n 



sub Get_Exclusive_VHDIj_Name 
50 { 

my ( $name, $List ) = @_; 



$name tr/A-Z/a-z/; 

#First make $name into a vhdl acceptable name 
55 #wam "eatme 2, $name\n" 

# i f ( $GIiOBAIi_DEBUG ) ; 

#Say goodbye to everything that is not a word character in name, 
while ($name =^ s/\W+//){;} 



60 



#Convert spaces to underscores 
while ($name s/ \s-i-/\_/s) { ; } 



#But not too many underscores, vhdl will not let you have two underscores 
in your name or 

#any underscores at either end 
while ($name =^ s/ ( \_) {2 , } / \_/s) { ; } 

while ($name =~ 's/'^\_+ ( . *?) \_+$/$l/ ) C ; } 

#vhdl does not like names to begin with numbers 
$name =- s/'' ( \d) /number_$l/ ; 
#wam "eatmeXn" ; 
#warn "IN GETXNAME\n" 

# i f ( $GLOBAL_DEBUG ) ; 
while {$$Iiist{$name} ne "") 
{ 

#wam "G_E_N name $name already taken. Trying tmp^SnameXn" 
#if ($GLOBAL__DEBUG) ; 
$name = "tmp_$name"; 

} 

#warn "G_E_N name $name not taken. \n" 

# i f ( $GLOBAIi_DEBUG ) ; 

#Keep Place holder at this name. 
$$List{$name} = "Taken"; 
return ($name) ; 

} 

############################################################################### 
# 

# Convert_Integers_To_Std_IjOgic_Vector 
# 

# Convert_Integers„To_Std„Logic_Vector takes left, operator, right as inputs. 

# If left/right are integers, it converts them to a bit vector. 

# If the widths of left or right is not known, it sets the unknown width ecjual 
to the known width. 

# (Perhaps it should not do this?) 
# 

# It does not use the operator now, but it maybe useful later. 

sub Convert_lntegers_To_Std_IiOgic_Vector 
{ 

my ($lef t , $operator , $right , $Width_List , $Ec[uivalence_List) = @_; 
my $left_width = &Width_Of ( $lef t , $Width_List ) ; 
my $right_width = &Width_Of {$ right , $Width_List ) ; 

#Check that widths are equal if both are known. 

if ( ($left_width) && ( $right_width) ) 

{ 

if {$left_width != $right_width) 
{ 

my $tmp_left = &Replace_Equivalences ($lef t , $Equivalence_List ) ; 
my $tmp_right = &Replace_Equi valences ($right , $Equivalence_Liist ) ; 
#warn ("WARNING EXPRESSION ($left $operator $right) \n" 

#. "WIDTH OF $tmp_left ( $lef t_width) != WIDTH OF $tmp_right 
( $right_width) ! \n" ) ; 
} 

> 

else #Wam if neither width is known. 
{ 

if ( ! ($left_width | ] $right_width) ) 
{ 

die ("CV2SLV VECTOR WIDTHS ( $lef t_width) ( $right_width) UNKNOWN FOR 
EXPRESSION ARITHMETIC OPERATION ($2) ($3) ($4)\n"); 
} 

else #If only one width is known, convert the unknown width. 



{ 

if ($lef t_width) #right width is unknown. 
{ 

if ($right =~ /'^Xs* { \d+) \s*$/s) #number => verilog decimal number 
with width $left_width 
{ 

#wam ("right width is unknown, left width is $left_width\n" . 
#"sending $lef t_width\ ' d$l to VN2BS"); 
$right = &VN2BS ( " $lef t_width\ ' d$l" ) ; 

} 

} 

else #left width is unknown. 
{ 

if {$left =- /''Xs* (\d+) \s*$/s) ttnumber => verilog decimal number 
with width $right_width 
{ 

#warn ("left width is unknown, right width is $right_width\n" . 
#"sending $right_width\ ' d$l to VN2BS"); 
$left = &VN2BS("$right_width\'d$l") ; 

} 

} 

} 

} 

#Now determine the proper width. 
#take max 

my $max_width = $right„width; 
$max_width = $left„width 

if ($left_width > $right_width) ; 

return ($max_width, $lef t, $right) ; 

} 

############################################################################### 
# 

# Replace_Equivalences 

# Replaces all tmp names in Equivalence List. Since some names 

# In Equivalence_List refer to other names in the same E<3uivalent_List , 

# Replace_Equivalences is Recursive. See big comment before sub V2VHD_Equation 

# for an explanation of the bigger picture. 

sub Rep lace_Equi valences 
{ 

my ($ string, $Equivalence_Ijist) = 

my $new_string; 

my $replacement_value; 

while ($string ne "") 

{ 

if ($string s/-" ( [\W\ " \ ' \d] +) //s) {$new_string .= $l;next; } 

if ($string s/^(\w+)//s) 

{ 

my $word = $1; 

$replacement_value = $$E<iuivalence_List { $word} ; 

if ($replacement_value eq "") 

{ 

$new_string .= $word; 

} 

else 
{ 

my $new_replacement_value 
&Replace_Equi valences ( $replacement_value , 

$Equivalence_List) ; 



############### 



#parentheses get replaced if there is additional replacement levels 
iinside the parentheses, e.g. verilog statement 

# (a+b) -> (binary) => parentheses. 

# When replacing, 

# parentheses => (binary) -> (a+b) 
# 

# (a) => parentheses 

# When replacing 

# parentheses => a //no parentheses 

if ( ($word /parentheses/ i) && 

($$Equivalence_List {$replacement_value} ) ) 
{ 

$new_replacement_value = " \ ( $new_replacement_value\ ) 

} 

$new_string . = $new_replacement_value ; 

} 

} 

} 

return ( $new_string) ; 

} 

sub Vestigual_Replace_Equi valences 
{ 

my ( $string, $tmp_Equivalence_List) = @_; 

my %Equivalence_List = %$tmp_Equivalence_List ; 

my $values_were_changed = 1 ; 
while ($ value s_were_changed) 
{ 

$values_were_changed = 0 ; 

foreach $key (keys {%$Ectuivalence_List ) ) 

{ 

my $value = $$Equivalence_List { $key} ; 

#Put parentheses around value if key was parenthesized 
#And it needs it 

if ( ($key /Parentheses/) && ( $$Equivalence_List { $value} ) ) 
£$value = " \ ( $value\ ) " ; } 

while ($string =- s/\b$key\b/$value/ ) 
{ 

#warn "key is $key\n value is $value\n string is $string\n" ; 
$values_were_c hanged = 1; 
undef $$Equivalence_Ijist {$key} ; 

} 

} 

} 

#Now crush parentheses around single objects 

#while ($string s/ \ ( ( [ \sa-zA-z\ " \ ' ] [ \s\w\ " \ ' 3 * ) \ ) /$l/s ) { ; } 

#wam "Replace_Equivalences , done, string is $string\n" ; 
return ($string); 

} 

############################################################################### 
# 

# ReadMem takes a verilog $readmem(b | h) (<f ilename> , <memory>) 

# instruction and then hardwires _memory_ to the values in _filename_. 

# This isn't as flexible as a true conversion of readmem would be (<filename> 

# could be parameterizable and be different for multiple instances of the 

# same module. In the future, this should be replaced with a real vhdl 



# equivalent, but it is so much easier to parse filenames with perl than with 
vhdl 

sub ReadMem 
{ 

my ( $mem_r adix , 
$ da t_f i 1 ename , 
$mem_name , 
@Module_Inf o) = @_; 

my ( $Width__Ijist , 
$Signal_List , 
$pWi r e_As s ignment s , 

$Equivalence_List) = @Module_Inf o ; 
my $return„string; 

my ($left, $right, $up, $down) = split ( / \s*\ , \s*/s, $$Width_List {$mem_name} ) ; 
my ($width) = &:Width_Of { $mem_name, $Width_List) ; 
open (DAT, "< $ da t _f il ename " ) or 

open (DAT, "< nios_system_sim\/$dat_f ilensime" ) or 
die "Cannot open $dat_f ilename ($!)\n"; 
my $dat„contents; 
while (<DAT>) 
{ 

if (s/'^(. *?)\/\/. *$/$!/) {;} 
$dat_contents . = $„ 

unless (/^\s*$/s) ; 

} 

close (DAT) ; 

my @Address_Data_Pairs = split (/\@/, $dat_contents) ; 

foreach $address_data ( @Address_Data_Pairs ) 

{ 

my ($address, ©data) = split ( / \s+/ s , $address_data) ; 
#wam "address is $address. data is @data\n" ; 
my $integer__address = eval (" Ox$ address ") ; 
foreach $datum (@data) 
{ 

if ($mem_radix eq "b" ) 
{ 

$dat\jm = "\"$datum\" " ; 

} 

else 
{ 

$datiHn = &VN2BS("$width\'$mem_radix$datum") ; 

} 

$retum_string .= " $mem_name ( $integer_address) <= $datuin; \n" ; 
$integer„address++ ; 

} 

} 

return ( $retum_string) ; 

} 

############################################################################### 
# 

# Process_Dollar_Verilog„Statements 
# 

# Converts verilog $readmemb, $readmemh and $write statements 

# to the appropriate vhdl equivalent 
# 

sub Process_Dollar_Verilog_Statements 



my ( $equation, @Module_Inf o) = @_; 

my { $Width_List , 
$Signal_Iiist , 
$pWire_Assignments , 
) = @Module_Inf o; 

my $ re turn_str ingu- 
lf ($equation 
/'^\s*\$readmem(b|h) \s*\ { \s*\ " \s* { \S+) \s*\ " \s*\ , \s* ( \w+) \s*\ ) \s*\ ; \s*$/is) 
{ 

my ( $mem_radix, $dat_f ilename, $mem_name) = ($1,$2,S3); 
re turn ( ScReadMem ( $mem_radix , 

$dat_f ilename, 

$mem_name , 

@Module_Inf o 

) 

) ; 

} 

if ($equation /'^\$write\s*\ (\s*\" ( . *?) \"\s*\ , \s* ( . *?) \s*\) \s*\ ; /is) 
{ 

my ($quote, $values) = ($1,$2); 

my @values_array = split { /\s*\ , \s*/s , $values) ; 

my (astring_array = ( " " ) ; #put null in first spot and index from 1 . . 
$string_lengtti 

my $string_length = 0; 

while {$<3uote) 

{ 

$ s t r ing_l eng t h+ + ; 

if ($<iuote =- s/- ( [\%\\] \w) //) 

{ 

die "ERROR \$$equation ONLY \%C IS CURRENIiTY SUPPORTED AS DATA 

TYPE! \n" 

unless ($1 =- /\%c/i); 
push 

(@string_array, " character 'val (CONV_INTEGER{ " . shift ( @values_array) ."))"); 
} 

else 
{ 

$guote s/^ (.)//; 

push (@string_array, " \ ' $1\ * " ) ; 

} 

} 

# make a string signal of width $string_length 

my $string_name = &Get_Exclusive_VHDL_Name { " string_name" , $Width_List ) ; 
$$Signal„List{$string_name} = "SIGNAL $string_name : STRING (1 TO 
$string_length) ; " ; 

$$Width_List {$string_name} = "1, $string_length" ; 

#wam "string_array is @string__array\n" ; 

foreach $index ( 1 . . $string_length) 

{ 

$return_string .= " $string_name ( $index) < = 

$string_array[$ index] ; \n" ; 
} 

$return__string .= " write (output , $string_name) ; \n" ; 
return ($ re turn_st ring) ; 

} 



die "ERROR Process_Dollar_Verilog_Statements , STATEMENT ($equation) NOT 
UNDERSTOOD \n" ; 
} 

sub V2VHD_Equation_Wrapper 
{ 

my ( $equation, @Module_Inf o) = @_; 

my ( $Width„Iiist , 
$Signal_List , 
$pWi r e_As s i gnmen t s , 

$Equivalence_.List) = @Module_Inf o ; 
my %E_List; 

my $pE_List = \%E_Iiist; 
$pE_List - $E<iuivalence_List 
if ( $Equivaleiice_List ) ; 

my $string = &V2VHD_Equation (@_, $pE_List ) ; 
$string = &Replace_Equivalences ( $string, $pE_Iiist ) ; 

#Undef the tmp names so that we can use them again next time 
#Do not undef if $Equivalence_List was non-null because 
#we've been recursively called, 
if ( ! $Equivalence_Iiist) 
{ 

foreach $key (keys {%pE_List ) ) 
{ 

#undef ($$Width_List{$key}) ; 
$$Width„Iiist{$key) = 

} 

} 

#kill std„logic_vector • on Ihs concatenations 
while ($string s/''\s*std_logic_vector\ ' / /s) { ; } 

#convert assignment operator to <= 
$string s/ \= {1 ) \s*/\<\= /s; 

#warn " Final Answer: $string\n" ; 
return ($string) ; 

} 

############################################################################### 
# 

# Replace 
# 

# Replace replaces a complicated expression with a simple exclusive name. 

# See V2VHD_Equation comment , 

# e.g. 

# &Replace ("foo = a + b" , 4 , @Module_Inf o) ; 

# would get an exclusive name for foo, set 

# $Equivalence_Xiist {&:Get_Exclusive_Name (f oo, $Width_List ) } = a + b; set 

# $Width_List {<the exclusive name for foo>}= 4 

# and return the exclusive name for foo so that V2VHD_Eqnaation can substitute 
it 

# into equations . 

sub Replace 
{ 

my ($eciuation, 
$ width, 

@Module_Info) = 



my ($Width_List, 
$ S ignal„Li s t , 
$pWi re_As s ignmen t s , 

$Eciuivalence„List) = @Module__Inf o; 

#die "ERROR Replace: width is ( $width) in equation ( $ec[uation) \n" 
#unless $ width; 

my ($replacement_name, @tmp_replacement_value) = split 

(/\s*\ = {l} \s*/s, $equation) ; 

my $replacement_value = join (" = " , @tmp_replacement_value) ; 

$replacement_name ~ 
S,Get_Exclusive_VHDL_Name ( " $replacement__name " , $Width_Lis t ) ; 

$$Eciuivalence_List {$replacement_name} = $replacement_value; 
$ $ Widt h_Iii s t { $ rep lacemen t_name } = $ width ; 
return ( $replacement„name) ; 

} 

############################################################################### 
# 

# Find_In_Order 
# 

# searches $equation for each term in a "|" separated regexp, 

# searches in order and returns the first exp that matches . 

# returns a \ escaped string so that $equation can be 

# patterned matched. 

sub Find„In_Order 
{ 

my ($equation, $regexp) = @_; 
$regexp s/ ( [ ^ | ] ) $/$l ] /s ; 

my $tmp_regexp = $ regexp; 
my $exp; 

while ($tmp_regexp ^~ s/^ ( . *? [ "\\ ] ) \ | / / ) 
{ 

$exp = $1; 

#wa2m "FIO looking for ($exp)\n"; 

if ($equation /($exp)/) 

{ 

Sexp = $1; 

#warn "FIO found ($exp) IN EQUATION ($ equation ) \n" ; 
last; 

} 

} 

die "ERROR Find_In_Order : ($regexp) NOT FOUND IN ($ equation ) \n" 

unless ($exp ne " " ) ; 
$exp s/ (\W)/\\$l/gs; 
return ($exp) ; 

} 

############################################################################### 
# 

# V2VHD_Equation 
# 

# Verilog and VHDL have similar operators, but of course they are 

# different because as Buddah says, "Life is- Suffering" . 
# 

# Fortunately, since the operators do pretty much the same thing, we 

# dont have to evaluate too many verilog expressions. For most 

# operators, we just need to translate verilog arithmetic into vhdl 

# arithmetic. 
# 

# Verilog and vhdl handle numbers differently, so we need to convert 



# numbers from verilog (32,4'hF,0) into their corresponding vhdl 

# std_logic_vector bit strings " 10000 1111" 00 " . We also need to 

# determine the bit width of the niimber. We do that based upon the 

# closest known width operating on the number, i.e. (foo[4:0] == 0) 

# means 0 probably has width of 5 . 
# 

# VHDL really like "types" and that gets us in a little trouble. A 

# naive translation of the verilog expression: 

# wire co\JLnter_ne_zero = ! (counter [3 : 0 ] =~ 0) 

# Would be: 

# SIGNAL counter_ne_2ero: STD_LOGXC; 

# co\inter_ne_zero <= NOT (counter (3 DOWNTO 0) = "0000") 
# 

# Unfortunately, the result of (counter(3 DOWNTO 0) = 0) is type 

# boolean, not std_logic. If there were an easy way to type change a 

# boolean to std_logic, it would be easy to say: 

# counter_ne_zero <= NOT (To__std__logic (counter (3 DOWNTO 0) = 
"0000") ) 

# 

# But I have not found an easy way to do so. To work around this, I 

# declare a tmp signal tmp_counter_ne_zero . (I make sure this signal 

# isnt already used by someone else first.) It gets assigned to using 

# the vhdl WHEN, ELSE statement: 



# SIGNAL tmp_counter_ne_2ero : STD_LOGIC_VECTOR (0 DOWNTO 0) ; 

# tmp_counter„ne_zero <= "1" WHEN (counter (3 DOWNTO 0) = "0000") ELSE 
"0"; 

# — Now we are back in happy std_logic_vector land: 

# counter_ne_zero <= NOT ( tmp„counter_ne_zero) ; 
# 



# All types are converted to STD_LOGIC_VECTOR inside the Entity (VHDL for 
module) 

# We convert types to/ from STD_LOGIC at the beginning and end of the entity. 

# e.g. 

# module foo(c); 

# output c; 

# //more verilog code here 

# endmodule 
# 

# turns into 

# ENTITY foo IS 

# PORT ( 

# SIGNAL a : IN STD_LOGIC ; 

# SIGNAL b : INOUT STD_LOGIC; 

# SIGNAL c : OUT STD_LOGIC ; 

# ); 

# END foo; 

# ARCHITECTURE behavior OF foo IS 

# SIGNAL tmp_a : STD_LOGIC_VECTOR ( 0 DOWNTO 0); 

# SIGNAL tmp__c : STD_LOGIC_VECTOR ( 0 DOWNTO 0 ) ; 

# — INOUT signals are kept as STD_LOGIC_VECTOR 

# --other signals here 

# BEGIN 

# — verilog code translates to vhdl here 

# c <= tmp_c (0) ; 

# tmp_a(0) <= a; 

# END behavior 
# 

# IMPORTANT IMPORTANT 

# INOUT STD_LOGIC_VECTOR (0 DOWNTO 0) signals are not converted to STD_LOGIC 

# INOUT signals are not so easy to convert to STD_LOGIC 

# sometimes the INOUT signal looks like an output 

# sometimes its an input. Eventually, I could declare two tmp_signals. 

# Convert the signal on the rhs of all equations to be the input version 



# signal and convert all signals on the Ihs to be the output signal. 

# Determine what signal is driving. Then say: 

# inout_signal = (Driving) ? tmp_output„inout : I'bz; 

# tmp_input_inout = inout_signal . 

# For now you'll just have to deal with a STD_LOGIC(0 DOWNTO 0) INOUT. 

# Everything instantiating the module will hook up to it correctly. 

# END IMPORTANT IMPORTANT 
# 

# V2VHD_Equation can recursively and iteratively call itself. 

# The main idea is that complicated expressions 

# can be turned into simpler expressions through replacing 

# expressions with exclusive words. (see subroutines Replace and 
Replace_Equivalences ) 

# Converting an expression with V2VHD_Equation simplifies th 

# e.g. 

# verilog: c <= a + b + |c; 

# Gets turned into 

#1) c <= a + b + reduction; //$Equivalence_Liist (reduction} 

"(c(msb) or c (msb - 1) ... or c(lsb))" 

# //$Width_List {reduction} = 1; #as if 
reduction were a verilog signal. 

#2) c <= addition + reduction //$Equivalence_List {addition} = "a + b" ; 

# //$Width_Ijist{reduction} 

max(width(a) ,width(b) ) +1; 

#3) c <= tmp_addition / /$Equivalence„List { tmp_addition} = addition 

+ reduction; 

^ //$Width_List {reduction} 

max (width ( addition) , width (reduction) ) + 1; 

# 

# V2VHD would then return c <= tmp_addition 

# V2VHD_Equation_Wrapper is the top level call to V2VHD_Equation . calls 
&Replace_Eq[ui valences after 

# V2VHD_Eq[uation. Rep lace_Equi valences will replace every 
Icey (%Equivalence_L.ist) with $Equivalence_Ijist {$key} . 

# Using c <= tmp_addition from the example before. Rep lace„Egui valences will 
do: 

#0) c <= tmp_addition 

# 1) c <= addition + reduction; 
#2) c<=a+b+ reduction; 

#3) c <= a + b + (c(msb) or c (msb - 1) ... or c(lsb)); — voila, a valid vhdl 
equation 

sub V2VHD_Equation 
{ 

my ($equation, 

@Module_Info) = @„; 

my ( $Width_List , 
$ S ignal_Iii s t , 
$pWire_Assignments , 

$Equivalence_Iiist) = @Module_Inf o ; 

my $ width; 
my $left; 
my $right; 

while ($equation s/ \s+//sg) { ; } ; 

#Convert all verilog niombers to equivalent word name. 

while ($equation =- s/ (.*?)( \d+\ ' [bodh] [ \da-fx2] +)(.*) /$l/si) 

{ 

my ($replace_this) = &VN2BS($2); 
$width = &:Width_Of ($2, $Width_List) ; 



$replacement_name = ficReplace ( "Verilog_Nuinber 

$replace_tl:iis" , $ width, @Module_Info) ; 

$equation .= " $replacement_naiae $3"; 

#warn " verilog number equation now is $equation\n" ; 

} 

#Convert vector [max_index:min_index] to equivalent word name, 
while ($equation =- s/'^ (. *?\b) { \w+) \s* ( \ [{.*?) \ ]}(.*) /$l/s) 
C 

my $replace_this = $2 ; ; 

($replace_this, $left, $right) = &Vector_Range ( " $2$3 " , $Width_List ) ; 
my $rest = $5; 
#Worry about memories 

my ($1, $r, $up, $down) = split ( /\s*\ , \s*/s , $$Width„List {$2 } ) ; 

if ($up ne " " ) 

{ 

#It ' s a memory 

#wam "equation is $equation\n" ; 

warn " \nVERILOG TO VHDL CONVERSION: " . &date„time . " USING MEMORY 

$2\n" ; 

$replace_this .= " {CONV_INTEGER (unsigned ( $4 )))" ; 
($left, $right} = ($l,$r); 

} 

else 
{ 

$right = $left if {$right eq ""); #If only one value, 
#$replace_this .= &Vector_Order$lef t , $right ) ; 

$replace_this .= " [ $lef t : $right ] " ; #we'll change vector order when we 

# rep lace_e qui valences 

> 

#warn "in brackets, (@Module_Inf o) \n" ; 

$replacement__name = ^Replace { "Verilog_Bracket 

$replace_this" , " $lef t , $right " , @Module_Inf o) ; 

$equation .= " $replacement_name $rest"; 

} 

#WRONG WRONG WRONG WRONG WRONG 
#THE ORDER BELOW IS WRONG 

# Now the order of operators we have (according to verilog 13 64 and Samir 
Palnitkar's book) 

# to handle are 

# 1) Parentheses, Replecation and Concatenation 

# 2) Unary (+,-,!,-) 

# 3) Multiply, Divide, Modulus (*,/,%) 

# 4) Add, Subtract, Shift ( + ,-), «, » 

# 5) Relational (<, <=, >, >=) 

# 6) Equality (==, 1=^) 

# 7) Binary Bitwise (Sc,'^,|) 

# 8) Logical (&&, | ] ) 

# 7) Reduction (&,^,|) 

# 9) Conditional (?:) 
#10) Assignment (=) 

#WRONG WRONG WRONG WRONG WRONG 

#THE ABOVE ORDER IS WRONG 

#AND IS A BUG IN THE 1364 spec. 

#SEE THE FOLLOWING POST FROM ALT . COMP . LANG . VERILOG 

#... Based on the information obtained from "private sources" (a member 
#of the 13 64 WG) I concluded that the TAble 4-4 is, indeed, 
#wrong, and, maybe, the table in Thomas and Moorby 2nd is not 



#r ight , ei ther . 

#ALti unary operators have precedence higher than ANY binary operator, 
#while the precedence among unary operators is non-essential. 
#So, Table 4-4 gives erroneous precedence for -& and -| UNARY 
#operators placing them where such BINARY operators should have 
#been had they existed. It is still to be determined whether 
#binary ^-i"^ has the same precedence as & (T&M) or lower (IEEE 
#Draft) , and that can be easily accomplished with Verilog-XL 
iwhich I'm going to do shortly. 
# 

#Regards to all, 
#Sergei Sokolov 



my $unary_operators = ' \+ | \- | \ ! | \-- ' ; 

iny $reduction_operators 

•\&{i}|\-\&{i} |\-{i}|\-\'^{i}l\"\-{i}l\Ui>|\-\Ui> 

my $all_unary_operators = join ( • | • , $unary_operators , $reductxon_operators) ; 

my $relational_equality_operators = ' \<\= | \< | \>\= 1 \> | \= {2 } | \ ! \= ' ; 

my $arithmetic_operators = '\*|\/1\+|\-'; 

my $binary_bitwise = ' \&{1} | {1} | \ | (D I X-X'^ 1 \"\- ' ; 

my $shift_operators = •\<\<|\>\>'; 

#It's a pain to differentiate between \Sc\& and \&:, so change 

#logical operators to something easier to discern. The " marks 

#are the verilog escape character, so we know some verilog typer 

#won't accidentally type 'AND' accidentally. 

while ($equation s/ \& {2 } /\ ' ANDW ) { ; } 

# Similar argument for | ] 

while ($equation s/ \ j {2 } / \ ' ORW ) { ; } 

my $logical_operators = ' 'AND' pOR' ' ; 

#1 also hate those === and !== operators which (for all synthesizable 
#code does just the same thing as == and 1= 
while ($equation =- s/ \ ! \= { 2 } / \ ! \=/ ) { ; } 
while ($equation =^ s/\={3} /\=\=/) { ; } 

my $binary_operators_with_same__width_operands_and„shif t_operators = j oin 
$arithmetic_operators , 

$binary_bi twise , 
$shif t„operators , 

$relational_.equality„operators , 

$ logical_operators 
) ; 



my $operator_order = join ( ' J ' , $all_unary_operators , 

$binary_operators_with_same_width_operands_and_shif t_operators , 

$logical_operators) ; 

# la) PARENTHESES 
{ 

my ($before_paren, $inside_paren, $af ter^paren) = 

&:Count_Parentheses ( $equation) ; 

while ($inside_jparen ne "") 
{ 

############### 

# if there is one or more operators inside the parentheses, then 
process it (them) . 



# otherwise strip the parentheses and continue. 

# i.e. (counter - 1), process it. 

# (counter) , return counter 
if ($inside_paren =- /$operator_order/ ) 

#wam "replace_this fo\ind ( $inside_paren) in ( $eq[uation) \n" ; 
#Recurse equation (DAMN DAMN equation!); 

my $replace_this = &V2VHD„Equation($inside_paren, @Module_Info) ; 
#warn "Parentheses converted ( $inside_paren) to ( $replace_this) , 
($$Width__List {$replace_this} ) \n" ; 

die "ERROR V2VHD_Equat ion: replace„this returned ( $replace_this) \n" 

unless ($replace_this s/^\s* { \w+) \s*$/$l/s) ; 
my $replacement_name = &Replace (" Parentheses = $replace_this " , 

$$Width_Iiist{$replace_this} , 
@Module_Info) ; 

$equation = " $bef ore_paren $replacement__name $af ter_paren" ; 
#wam "equation now is $equation\n" ; 

} 

else 
{ 

#wam " parentheses, no operator f ound\n" ; 
#put parentheses around 

$equation = " $bef ore_paren $inside_paren $af ter_paren" ; 

( $bef ore_:paren, $inside_paren, $af ter_paren) 

ScCoun t__Paren theses ( $equat ion) ; 

#wam " parentheses equation now is $equation, width is $width\n" ; 

} 

} 

# lb) REPLECATION AND CONCATENATION 
( 

#Replicate first 

#warn " replecation equation was $equation\n" ; 
while ($equation s/'^ ( . *?) \ {\s* ( \d+) \s* (\ { . *) /$l/s) 

{ 

my $bef ore„curly_brace = $1; 
my $repeat_niamber = $2; 

my ($b,$m,$e) = &:Count_Parentheses ( $3 , ' \s*\ { ' , ' \ } \s* ' ) ; 

#warn "bme is ($b) , ($m) , ($e) \n" ; 

$m = {"$m\," X $repeat_number) ; 

$m =- s/\,\s*$//s; #lose last comma. 

$e s/^\s*\}//s; 

$equation = " $bef ore„curly_brace $b\{$m\}$e"; 
#warn " replecation equation now is $equation\n" ; 

} 

#A11 other curly_braces ({,}) (including the replecation we handled 
above) are concatenation 

my ($before_curly_brace, Sinside_curly_.brace, $af ter_curly_brace) 

&Count_Paren theses ($equation, ' \ { ' , ' \ } ' ) ; 
while ($inside_curly_brace ne 
{ 

#wam "BPC ($inside_curly_brace) \n" ; 
#warn %$Width_tiis t ; 

my $replacement_name = &Process_Concatenation 

("\{$inside_curly_brace\} " , @Module_Inf o) ; 

$equation = " $bef ore__curly_brace $replacement_name 

$af ter_curly_brace" ; 

($before_curly_brace, $inside_curly_brace, $af ter_curly_brace) 

&:Count„Parentheses ($equation, ' \ { ' , ' \ } ' ) ; 

} 

} 



# 2) UNARY OPERATORS 

^ ###########################################################^ 

# In addition to the normal unary operators 

# Verilog has these weird but useful unary operators . called reduction 
operators 

# a = |foo[3:0] => a = foo[3] | foo[2] 1 foo[l] | foo[0]; 

# It turns out that these operators are quite useful. 

# However it is difficult to distinguish between the unary reduction 

operator i ^ -, i ■ - 

# and the binary "or" operator. a = c | foo or a = c + 1 f oo looks quite 

like a = | foo. 

# Here is how we differentiate. If the first non spaced character before 
the possible 

# reduction character is a word (\w) then consider it a binary operator. 

If it is a . . J 

# non word character, consider it a unary operator. This is good even 

for equations with 

# parentheses because we've already converted parentheses to words. 

# Consider: a = (c + b) \ foo 

# Above, we've already converted (c + b) to tmp^arentheses so the 

equation we see is 

# a - tmp_parentheses ] foo //binary or 

# 

while {$equation =- / ( $all_unary_operators) / ) 

I ^ my $operator = &Find_In_Order ( $equation, $all_unary_operators ) ; 

last unless ($equation 

s/^ ( . *? [""XwXs] ) \s* ($all„unary_operators) \s* (\w+) (\s* . *) /$l/s | | 

$equation 

s/^{\s*) ($all_unary_operators) \s* (\w+) (\s*.*)/$l/s); 
5 my $beginning = $l; 

$operator = $2; 
my $name = $3; 

$width = &Width_Of ($name, $Width_List) ; 
my $rest = $4; 
} my $replace_this; 

if ($operator =~ /'"$unary_operators$/ ) 

{ 

if ($operator eq "\1") 
{ 

45 if ($width == 1) {$replace_this = " (NOT $name) " ; } 

else{$replace_this = "\{$name \= \"".("0" x $width) . " \ " \ ) " ; } 
$width = 1; 

} 

else 

50 { 

$operator =- s/\-/NOT/; 
$replace_this = " {$operator $name) ; 

} 

} 

55 else 
{ 

my $value_to_r educe = $name; 

my $reduction_operator = $operator; 

60 $reduction_operator = "OR" if ( $reduction_operator /^\|{1}$/); 

$reduction_operator = "AND" if ( $reduction_operator =~ /'"\&:{1}$/); 

$reduction_operator = "NOR" if ( $reduction_operator 
/'^\'-{l}\| {1}$/) ; 



$reduction_operator = "NAND" if ( $reduction_operator 

$reduction_operator = "XOR" if ($ redact ion_opera tor /''X'" { 1} $ / ) ; 
$reduction_operator = "XNOR" if ( $reduction_operator 
/"\'^{l}\-$/) ; 

$reduction_operator = "XNOR" if ( $reduction_operator 
/"\-\"{l}$/) ; 

my ( $value_to_reduce , $vec_lef t , $vec„right ) 

&Vector„Range ( $value_to_reduce , $Width_List) ; 
if ($vec_right ne "") 
{ 

#We can just expand the bit vectors if width is left, right 
because reduction is simple i.e. |a 

( $replace_this , $ tmp) = 
&Expand_Array__Of_Bit_Vectors_Into_Separated_Bits ( " $reduction_operator " , 

$value_to_r educe , 

@Module_Info) ; 

} 

else 
{ 

#else it's not so simple, so generate a signal = to rhs and 
then reduce the signal 

#warn "reduction operator $reduction_operator , vtr $vtr, 

$tmp_width\n" ; 

#We need to first make an intermediate signal since there is an 

operator inside 

my ($new_signal_name) = &Add_Intermediate_Signal 
( "reduced_$reduction_operator = $value_to_reduce" , 

1, 

@Module_Info) ; 
( $replace_this , $tmp) = 
&Expand_Array_Of_Bit_Vectors_Into_Separated„Bits ( " $reduction_operator " , 

$new_signal_ncime , 

@Module_Inf o) ; 

} 

#Tum indexed bits into bit array of size 1 

while ($replace_this s/\ [\s* { \d+) \s*\] /\ [$1 : $1\] /s) { ; } 

$width = 1 ; 

$replace_this = " ( $replace_this) " ; 

} 

my $replacement_naine = &Replace ("unary = $replace„this" , 

$width , 

@Module_Inf o) ; 
$e<5uation .= " $replacement_name $rest" ; 

} 

} 

# 3,4, BINARY OPERATORS 

# 5,6 RELATIONAL (<, <= , >, >=) AND EQUALITY (==,1=) 

# AND LOGICAL 
{ 

#warn " pre-relational equation is $equation\n" ; 

# di e " bows wop i 

$binary_operators_with„same_width_operands_and_shif t_operators\n" ; 

while {$equation 
/ ($binary_operators_with_scime_width_operands_cind_shif t_operators) /s) 

C 



my $operator = 

&Find_In_Order (Sequation, $binary_operators_with„same_width_operands_and_shif t_o 
perators) ; 

die "BINARY_OPERATOR ($operator) not found in ( $equation) \n" 

unless {$equation s/'^ (.*?)( \w+) \s* ( $operator) \s* ( \w+) {.*) /$l/s) ; 
my $lef t_operand = $2; 
$operator = $3; 

#warn "operator now is $operator\n" ; 
my $right_operand = $4; 
my $rest - $5; 
my $replace_this ; 

if (&Is_real ($lef t_operand) && &:Is_real { $right_operand) ) 
{ 

#warn " relational equation is real\n" ; 

#If both are real numbers, evaluate using perl's 

#binary operators . 

if ($operator eq "\^AND\^") 

{ 

if {($2 ==0) II ($4 == 0) ) {$equation .= "0";} 
else {$equat ion .= "1";} 

} 

else 
{ 

if ($operator eq "\^OR\^") 
{ 

if (($2 1= 0) II ($4 != 1) ) {$equation .= "1";} 
else {$equation .= "0";} 

} 

else 
{ 

my $evaluatedExpression = eval ( " $lef t_operand $operator 

$right_operand" ) ; 

# Programming^ Perl p. 87: 

# 'The equal and not-equal operators return 1 for true, and 

for false 

# just as the relational operators do) . ' 

# Translate all forms of "false" to 0: 

$evaluatedExpression = "0" if ( ! $evaluatedExpression) ; 
$equation .= $evaluatedExpression; 

} 

} 

$equation .= $rest; 
next ; 



#shif t_operators operate on integers, all other operators need their 
integers to be converted to bit_vectors . 

if ($operator =- /^$shif t_operators$/ ) 
{ 

if (Scls_real ($lef t_operand) ) 
{ 

$replacement_name = eval " $lef t_operand $operator 

$right_operand" ; 

# Translate all forms of "false" to 0: 

$replacement_name = "0" if ( I $replacement_name) ; 

} 

else 
{ 

my ($name, $lef t , $right) = 

5cVector_Range ($lef t_operand, $Width_List) ; 

$width = &Width_Of ($lef t„operand, $Width_List) ; 



pi 

ru 



TO SHIFT\n" 
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die "ERROR V2VHD_EQUATI0N ($equation) HAS UNKNOWN width. UNABLE 
if ($left eg " " ) ; 

die "ERROR V2VHD_EQUATI0N ($equation) HAS NON- INTEGER SHIFT 
unless ($rigl:it„operand s/'^Ns* ( \d+) \s*$ /$l/s) ; 



if ($right eq 

10 { 

$naine = £cAdd_Intermediate_Signal ("shift = $lef t_operand" , 

$ 1 e f t_op e r and_l e f t_i ndex , 
@Modu 1 e_In f o 
) ; 

15 $left— ; 

$right = 0; 

} 

############### 
20 #C [3:0] » 1 = c [3:1] ; 

#c [0:3] » 1 = c [0:2] ; 

my @array = &Order ( $lef t , $right ) ; 
my $zeros; 

m 25 while { ( $right„operand — ) && ($width != 0) ) 

3 ^ 

if ($operator eq " \<\< " ) { $zeros .= "0"; $width++;} 
else{ 

if {$operator eq " \>\>" ) {pop ( @array) ; $width — } 
^ 30 else {die "ERROR V2VHD_EQUATI0N, UNKNOWN SHIFT 

ASSIGNMENT ( $operator) \n" ; } 
^ } 

} 



Q 35 my $expand_this_string; 

if (©array) 
{ 

$lef t = $array [0] ; 

$right = $array[-l]; #last value in the array 
p 40 $expand_this_string = " $name\ [ $lef t\ : $right\] " ; 

M= if ($zeros ne "") 

{ 

$expand_this_string . = " , \ " $zeros\ " " ; 

} 

45 #wam "sending $expcLnd_this_string to EAOBVISB\n" ; 

( $replace__this , $width) 
&Expand_Array_Of„Bit_Vectors„Into_Separated_Bits ( " , " , 



$ expand_thi s_s t r ing , 
(aModule_Info 



) 

$replace_this = " std_logic_vector ' ( $replace_this) \n" ; 



55 } 

else 



{ 

$replacement„name = "0"; 

} 

} 

my $replacement_name = &Replace {" shift 

$replace_this " , $width, @Module_Inf o) ; 



$equation .= " $replacement_name $rest" ; 
next ; 

} 

if ($operator =- /'^$logical_operators$/ ) 
{ 

#operator transforms 

#warn "found lo ( $lef t_operand, $operator , $right„operand) \n" ; 
$operator = "AND" if {$operator eq "\^AND\^"); 
$operator = "OR" if ($operator eq "\^OR\'"); 

$replace_this = 
" ( " . &Process_If_Condition { $lef t_operand, @Module_Inf o) . " ) $operator ( " 

.ScProcess_If_Condition($right_operand,@Module_Info) . " ) " ; 
$width = 1; 

my $replacement_name = 5cAdd_Intermediate__Signal ("logical = \"1\" 
WHEN ($replace_this) ELSE \"0\"", 

$widtti, 

@Module_Info) ; 

$equation ,= " $replacement_name $rest" ; 
next ; 

} 

#warn "calling CV2SLV ( $lef t_operand, $operator , $right_operand) \n" ; 

( $width, $lef t_operand, $rigl:it_operand) 
&:Convert_Integers_To_Std_Logic_Vector ( $lef t_operand, 

Separator, 

$right_operand, 

$Width_Liist, 

$Equivalence_Iiist) ; 

if (Separator =- /''$arithmetic_operators$/ ) 
{ 

# VHDL thinks c = a + b results in c_.width = max (a_width, b_width) . 

# But that is clearly wrong. In reality, c_width 
max (a_width, b_width) + 1 . 

# So we use reconcile widths to give us signals (new_a, new_b) that 
have widths (a_width+l , b_width+l) ; 

# We use reconcile known widths to get us a signal of the correct 

width . 

my $new_width; 

if ($operator =~ /{\+|\-)/) 

{ 

$new_width = $width + ,1; #Max_width from 
Convert__Integers_To_Std_Logic_Vector above. 

$lef t_operand = &Reconcile_Known_Widths ( 

$lef t_operand, 
$lef t_operand, 
$new_width, 

&Width_Of ( $lef t_operand, SWidth_List ) , 

@Module_Inf o 
) ; 

$right_operand = &Reconcile_Known_Widths ( 

$right_operand, 
$ r i gh t _op e rand , 
$new_width, 

&Width_Of ($right_operand, $Width_List) , 



&Width_Of ($lef t_operand, $Width_tiist ) 



ScWidth_Of ($lef t_operand, $Width_List) 



@Module_Info 
) ; 

} 

if ( Separator /\*/) 
{ 

$new_width = 
&Width_Of ( $right_operand, $Width_Ijist ) 
} 

if ( Separator /\//) 
{ 

$new_width = 
&Width_Of {$right_operand, $Width_List) ; 
} 

#wam "worop is " . &Width_Of ( $right_operand, $Width_List ) , " , nw is 
$new_widtti\n" ; 

$ width - $new_width; 

#wam "width is ($width)\n"; 

#$replace_this = " $new_lef t_operand $operator $new_right_operand" ; 
$replace_,this = " $lef t_operand $operator $right_operand" ; 
my $replacement_ncLnie = &Replace { "arithmetic 

$replace_this" , $ width, @Module_Inf o) ; 

$equation .= " $replacement_name $rest"; 
next ; 

} 

#relational operator transforms 

if ($operator =- /'^$relational_equality_operators$/ ) 
{ 

############################################################ 

# Convert boolean { in) equality . Since the output of a conditional 

is a boolean 

# and we only understands std_logic, we need to replace the 
conditional with 

# a wire named something like tmp_std_logic . 

# Then we set tmp_std_logic <= '1' when (condition) else '0'; 
# 

# N.B. In the future, since we convert everything to 
std_logic_vector , we might 

# be able to convert the boolean to std_logic_vector 

my $tmp_left = 

&Replace_Equivalences ( $lef t_operand, $Eq[uivalence„Ijist ) ; 

my $tmp_right = 

&:Replace_EqTJiivalences { $right_operand, $Eqtuivalence_Dist ) ; 



my $ tmp_output_name ; 

#warn "operator ($operator) is relational_operator\n" ; . 
if {$operator s/ \s* \= { 2 } \s* / \= /s) 

" $tmp_lef t\_eq_$tmp_right" 
if ($operator 
" $ tmp„lef t\_ne_$tmp_right " 

/\s*\<\s*/s) 



if ($operator 
" $tmp_lef t\_lt_.$tmp_right " 

if ($operator 
" $tmp_lef t\_le_$tmp_right" 

if ($operator 
" $tmp_lef t\„gt_$tmp_right " 

if ($operator 
" $ tmp_le f t \_ge_$ tmp_r ight " 



s|\s*\!\={l,2}\s*| \/\= 



/\s*\<\=\s*/s) 

/\s*\>\s*/s) 

/\s*\>\=\s*/s) 



{ $tmp_output_name 
s) { $tmp_output_name 
{ $ tmp_output_name 
{ $ tmp_output_name 
{ $tmp_output_ncime 
{ $tmp_output_name 



if ( $ tmp_output_name ) 



{ 

my $boolean = " $lef t_operand $operator $right_operand" ; 
$tmp_output_naine = &Add_In termed! a te_Signal ( " $tmp_output_name = 
WHEN \($boolean\) ELSE \"0\"", 

@Module_Info) ; 



$equation ,= " $tmp_output_naine$rest " ; 
#wam "ton, ( $eciuation) \n" ; 

} 

next ; 

} 



$operator = "XOR" if ($operator /''\''$/) 

$operator = "AND" if ($operator =- /^\Sc$/) 

$operator = "OR" if ($operator /'^XlS/) 

$operator = "XNOR" if ($operator /^\^\-$/); 

$operator = "XNOR" if ($operator =- /'"\''\^$/); 

my $replacement_ncime = &Replace ( "binary_operator = $lef t_operand 
$operator $right_operand" , 

$width, 

@Module_Inf o) ; 
$equation .= "$ replacement _name$ rest " ; 

} 

} 

#CONDITIONAL ? : 

While ($eciuation s/ ( \s*) {\w+) \s*\?\s* { \w+) \s*\ : ( \s* ) / " $1$3 WHEN 

\ {" .&Process_If_Condition($2,@Module„Info) ."\) ELSE $4"/sge) 
{#warn "found conditional ( $2 ) \n" 
; } 



# ASSIGNMENT 

# The following is copied very closely from the 
$binary_operators_with_same_width_operands case above 

# Assignment gets a little bit nasty because \mlike verilog, VHDL requires 
that the left and right sides of 

# assignments be the same width. So we need to chop off or add bits to the 
right hand side of the assignment. 

# We do that in &:Reconcile_Widths . 
{ 

my $tmp_eq[uation = $equation; 

if ($equation =^ s/^ ( . *?) (\w+) \s* (\={1} ) \s* (\w+) ( . *) /$1$2 $3/s) 
{ 

my $lef t_operand = $2; 
iny $operator = $3; 
my $right_operand = $4; 
my $rest = $5; 

{ $width, $lef t_operand, $right_operand) = 
&Convert_Integers_To„Std_Logic_Vector ( $lef t_operand, 

$operator , 

$right_operand. 



$Width_List, 



$Equivalence_List ) ; 



#warn " lef t_operand, operator, right_operand, rest, width, 
replace_this IS $lef t_operand, $operator, $right_operand, $rest, $width, 
$replace_this\n" ; 

$right„operand = &Reconcile_Widths ( $lef t_operand. 



$right_operand, 
@Module_Inf o 
) ; 

#waim " ro is $right„operand\n" ; 
#operator transforms 

#$replace_this = "$operator $right„operand" ; 

$equation . = " $right_operand$rest " ; #replace_this$rest " ; 

#warn " assignment equation now is $equation\n" ; 



} 



#We also need to match up Ihs with values following ELSE statements 

#1 put a ^ ^ mark before all processed ELSE words to keep us from an 
infinite loop. 

#Again, we need to Reconcile„Widths . 

while ($equation 
s/^{,*?) (\w+) (\s*\={l} .*?ELSE(\s+l ['^N^Xw])) (\w+) (.*)/$l/s) 

{ 

my $lef t_.operand - $2; 
my $in„between = $3; 
my $right_opercind = $5; 
my $rest - $6; 

( $width, $lef t_operand, $right_operand) 
&Convert_Integers_To_Std_Logic_Vector { $lef t_operand, 

II II 



$right_operand , 

$Width_List, 

$Equivalence_List) ; 

#wam " Conditional Assignment: lef t_operand, in_between, 

right_operand, rest, width, replace_this IS $lef t_operand, $in_between, 
$right„operand, $rest, $width, $replace_this\n" ; 

#Do the same width reconciliation deal as above, (if needed) 
$right_operand = &Reconcile_Widths { $lef t_operand, 

$right_operand, 

@Modul e_In f o 

) ; 



#in_between transforms 

$replace_this = "$ lef t_ope rand $in_between \ ' \ ' $right_operand" ; 
$equation .= " $replace_this$rest" ; 

#warn " ELSE assignment equation now is $equation\n" ; 

} 

#crush "marks 

while ($equation =~ s/W/g){;} 

} 



Sequation s/'^Xs* ( . *? ) \s*$/$l/s ; 
retum ( $equation) ; 

} 

############################################################################### 
# 

# Reconcile_Widths and Reconcile_Known_Widths 
# 

# A big difference between verilog and vhdl is that verilog is more lenient 
when it 

# comes to width assignments . 

# eg. foo[7:0] = ook[3:0] => foo[7:4] = {0,0,0}; foo[3:0] = ook[3:03 



# eg. foo[3:0] = ook[7:0] => foo[3:0] = ook[3:0]; 

# Not so for vhdl. It requires lef t„side_width = right_side_widtl:i. Thus this 
function. 

5 # Reconcile_Widths, takes as input a left and right operands. It forces the 

# right operand to the same width as the left operand. 

# If the left operand width is smaller than the right operand width 

# Reconcile„Widths creates a signal_of _right_side_width <= right_side; 

10 # then sets left_side <= (signal_of_right_side„width) ( ( lef t_side_width -1) 
DOWNTO 0) . 
# 

# If the left operand width is bigger than the right operand width, 

# Reconcile_Widths creates a signal_of _right__side_width <= right_side, 

15 # It sets left_side <= std_logic • ( ' 0 ' x ( $lef t_side - $right_side) , 
signal_of_right_side_width) ; 

# eg. foo[7:0] = ook[3:0] becomes foo(7 DOWNTO 0) <= &V2VHD_Eciuation (foo[7:0] 
= {4'd0,ook[3:0] }) 

20 # 

# Reconcile„Widths wraps around Reconcile_Known_Widths 

# Reconcile„Known_Widths can also be used when one is comparing the right_side 
to a left_side 

# that is not in %$Width_List . e.g. when instantiating a Module. 

025 #############################################################*#*#*#**#*#*^***** 

^ # 



m 

t 5 



sub Reconcile_Widths 
{ 

30 my ($lef t„operand, 

$right_operand, 
@Module_Info) = @_; 



1^ my ($Width_List , 
y35 $Signal_Iiist, 

01 $pWire_Assignments , 

M= $Equivalence_List) = @Module„Inf o; 

n 1 

^ my ($left_width) = &Width_Of ( $lef t_operand, $Width_List ) ; 

2 40 my {$right_width) = &Width_Of ( $right_operand, $Width_List ) ; 

die "ERROR Reconcile„Widths : WIDTH OF ( $lef t„operand (" 
&Replace„Equivalences($left_operand, $Equivalence_List ) . ")) NOT KNOWN! \n" if 
{$left_width eq ""); 

45 die "ERROR Reconcile_Widths : WIDTH OF ( $right__operand (" 

6cReplace_Equivalences($right_operand, $Equivalence_L.ist ) . ")) NOT KNOWN !\n" if 
($right_width eq ""); 

return (&Reconcile_Known_Widths ( $lef t_operand, 
50 $right_operand, 

$left_width, 
$ r ight_width , 
@Module_Info 
) 



55 



} 



sub Reconcile_Known_Widths 
{ 

60 my { $ lef t_operand , 

$ r ight„operand , 
$left_width, 
$ r ight„width , 



@Module_Info) = @_; 

my { $Width„List , 
$Signal_List , 
$pWire_Assigninents , 

$Equivalence_List) = @Module_Inf o ; 

#wam ("RNW, $lef t_operand, 
# $r ight„operand , 
#$lef t„width, 
#$right_width\n" ) ; 

#We may not know the left or right operand on pass 1, 

#die "Reconcile_Widths, left_width not known" if ($left_width eq ""); 
#die "Reconcile_Widths, right_width not known" if ( $right_width eq ""); 
return ( $right_operand) if ($left_width eq ""); 
return ( $right_operand) if ( $right_jwidth eq ""); 

my $tmp_signal; 

if ($left_width == $right_width) 
{ 

#wam " $lef t_operand has same width as $right_operand, returning\n" ; 
return ( $right_operand) ; 

} 

else 
{ 

$tmp_signal = ScAdd_Intermediate_Signal 

( " $lef t_operand\_$right_width\_bits_wide = $right_operand" , 

$right_width, 
@Module_Info) ; 

} 

if ( $left„width < $right_width) 
{ 

#warn " RW: Iw < rw.\n"; 

$right_operand = "$tmp_signal ( ($left_width - 1) DOWNTO 0)"; 

} 

if ( $left_width > $right_width) 
{ 

my $width_dif f erence = $left_width - $right_width; 
my $filler = "\'0\', " x $width_diff erence ; 

my {$EAOBV, $ junk) = 

&:Expand_Array_Of„Bit_Vectors_Into_Separated_Bits ( " , " , $tmp_signal , @Module_Inf o) ; 
$right_operand = " std_logic_vector\ ' ( $f iller$EAOBV) " ; 

} 

return ( $right_operand) ; 



############################################################################### 
# 

# Add_Intermediate_Signal takes a vhdl string signal "a" or "a = b" and 
returns 

# the correct signal name to use. If signal is of the form "a = b" it replaces 

# equivalences of b and adds a <= b to wire_assignments 

sub Add_Intermediate_Signal 
( 

my ($ signal, 
$ width, 

@Module_Info) = @_; 



my ( 



10 



$Width_Iiist, 
$Signal_Ljist , 
$pWire_AssigrLments , 

$Equivalence_List) = @Module_Inf o; 

my ($signal„lhs, @signal_rhs) = split (/\s*\=(l}\s*/s, $signal) ; 
my $signal_rhs = join ( " \=" , @signal_rhs) ; 

$signal_rhs = fi:Replace_Eciui valences ( $signal_.rhs , $Eciuivalence„List) 
if ($Eq[uivalence_List && $signal_rhs) ; 

die "ERROR Add_Intermediate_Signal: ILLEGAL WIDTH {$width) IN SIGNAL 
ASSIGNMENT ($signal) \n" 

unless (($width s/'^Ns* { \d+) \s*$/$l/ ) && ($width > 0) ) ; 

15 #just return signal^rhs if only one value is on the rhs . 

#eg. foo = bar, just return bar 
if ($signal_rhs =- s/'^Xs* { \w+) \s*$/$l/s) 

{ 

tOrion, do width checking here 
20 return ( $signal_rhs) ; 

} 

# rename signal„lhs 

^ $signal_lhs = &:Get_Exclusive_VHDL_Name ( $signal_lhs , $Width„List) ; 

y25 if ($signal_rhs ne 

£0 $$pWire_Assignments .= " $signal_lhs <= $signal_rhs ; \n" ; 

Q } 

Q 

U30 $$Signal_List{$signal_lhs} = "SIGNAL $signal_lhs : 

f-^ STD_LOGIC_VECTOR(" . ($width - 1)." DOWNTO 0);"; 
S $$Width_List{$signal_lhs} = ($width-l) . " , 0" ; 

return ( $signal_lhs) ; 

L } 

m ##############################################################################^ 

M # 

rU # Is__real returns 1 if the value passed to it is a real number, i.e integer >= 

-40 ######################################################################^#*#^*^** 
# 

sub Is_real 
{ 

my $value = shift (@_) ; 
45 return (1) if ($value /^\s*\d+\s*$/s) ; 

return (0) ; 

} 

############################################################################### 

50 # 

# Count^Parentheses 

# so i have a string always @ (blow(me) ( leonardo | synplicity) ) blerg (boof) 

# I want to perform computations on the string surrounded by the 
55 # beginning and last parentheses. I call Count_Parentheses and it 

# returns 3 values, the beginning string: "always @", the parenthesized string 

# "blow(me) (leonardol synplicity) " and the last string "blerg (boof)". 

# If I want to search on something other than parentheses, say begin, end, I can 
60 # place their values in $begin__match emd $end_match. 

############################################################################### 

# 

sub Count_Par en theses 
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15 



I s 



my ($string, $begin_match, $end_match) - @_; 
my $begin_string; 
my $paren_string; 
my $ end_s t r i ng ; 

my $begin_match_def ault = '\s*\(\s*'; 
my $end„match_def ault = ' \s*\) \s* ' ; 

$begin_match = $begin_match_de fault unless ( $begin_match) ; 
$end_match = $end_match_de fault unless ( $end_match.) ; 

warn " CP string is $string, \n" 

. " $begin_match, \n $end_match\n" 
if (0) ; 

#if ( $begin_match ne $begin_match_default) ; 

return ( " " , " " , " $string" ) 

unless {$string /'^ ( . * ?) $begin„match { . * ) $/s) ; 



#wam " found first bit $1, \n 

20 rest is $2\n in string $string\n" 
#if ($GLOBAIi_WARNING) ; 

# $begin_match, \n $end_match\n" 

#if ( $begin_match ne $begin„match_def ault ) ; 

q25 $begin_string = $1; 

MX 

^fk^ my $paren_count - 1; 

$end_string = $2; 

30 while ($end_string =- s/ (.*?)( $begin_match | $end_match) (.*) $/$3 /s ) 

_ { 
M my $matcli; 

pi $match = $2; 

$paren_string .= $1; 

□ 35 

if ($match =- /$begin_match/ ) 
$paren_coiint++ ; 

} 

y 40 else 

1=^ { 

$paren_count = $paren_count - 1; 

} 

45 last if ( $paren_count == 0) ; 

#else 

$paren_string .= $match; 

} 

50 #die "mismatched $begin_match, $end_.match in string 

$begin„string$paren_string$end_string" if { $paren_count != 0) ; 
return ( $begin_st ring, $paren_st ring, $end_st ring) ; 

} 

55 sub Handle_Next_If__Else_Line 
{ 

my ($if_body, @Module_Inf o) = (@_) ; 
my ( 

60 $Width_List, 
$Signal_List , 
$pWire_Assignments , 

$Equivalence_Liist ) = @Module_Inf o ; 



my $rest_of_module; 



my $spacing; 

############################################################ 

# following a verilog " if (condition) "always ©(condition), 
statement, there are three things that 

# can follow the statements. 
#1) an if statement 

# 2) a begin - end block 

#3) a one line statement ending with a semi-colon; 
#1) an if statement 

if ($if_body =- (\s*) \bif\s* (\ ( .*) /s) 

my ($tmp, $if_conditions, $tmp_if_body) = &Covmt_Paren theses ( $2 ) ; 
#warn "if statement is ($ if ..conditions ) \n" ; 

$if_body = "$1IF " .&:Process_If_Condition($if_conditions,@Module 
THEN " ; 

($tmp_if_body, $rest_of_module) 
&Handle_Next_If_Else_Line {$tmp_if_body, @Module_Inf o) ; 
$if_body .= $tmp_if_body; 

#If an else statement follows the block 
#Process it. 

if ($rest_of_module =~ / ( \s* ) else ( . * ) /s ) 
{ 

$if_body .= "$1ELSE"; 

($tmp_if_body, $rest_of_module) 
&Handle_Next_If _Else_Line ( $2 , @Module_Inf o) ; 
$if_body .= $tmp_if_body; 

} 

$if_body .= "\n$spacing" . "END IF;"; 
return {$if_body, $rest_of_module) ; 

} 

# 2) a begin - end block 

if ($if_body / ^\s*\bbegin\b/s) 

{ 

#wam "hniel, begin end line, ib is $if_body\n" 
# i f ( $ HNI EL_DEBUG ) ; 

my {$tmp, $tmp_body, $rest_of_module) 

&:Coiint_Parentheses ($if_body, ' \bbegin\b' , ' \bend\b' ) ; 

#if we are in a begin_end block, then process each command. If 
an if statement 

#lurking, then call this function again. 

#my ©commands = split ( /\ ; /s , $tmp_if_body) ; 
my $line; 
$if„body = " " ; 

while {!($tmp_body =- /'^\s*$/s) ) 
{ 

( $tmp, $tmp_body) = &Handle_Next_If_Else_Line ( $tmp_body , 

@Module_Info) ; 

$if__body .= $tmp; 

#wam "begin_end, ib($if_body) \n — tmp^body ( $tmp_body) \n--\n" 
# i f ( $HNI EL_DEBUG ) ; 

} 

#warn "hniel, ib now is ( $if_body) \n" 
# i f ( $ HNI EL_DEBUG ) ; 

return ( $if _body , $rest_of_module) ; 

} 



# 3) a one line statement ending with a semi-colon; 

if {$if_body =^ /'^{\s*) (.*?;)(.*) /s) 

{ 

#wam "hniel, oneline ($2)\n" 
# i f ( $ HNI EIi_DEBUG ) ; 

$if_body = $l.&:Process„Register_Assignment($2,@Module__Info) ; 
#warn " becomes ( $if_body) \n" 

#if ($HNIELi_DEBUG) ; 

$rest_of_module = $3; 

return ($if_body, $rest_of_module) ; 

} 

} 

############################################################################### 
# 

# Process_If_Condition: converts verilog if conditions 

# to VHDL IF conditions. 

# 

sub Process_If_Condition 
{ 

my ($condition, @Module_Inf o) = (@_) ; 
my ( 

$Width_List, 

$Signal_List , 

$pWire_Assignments , 

$Equivalence_List) = @Module„Inf o; 

#wam "PIC, $condition\n" ; 
my %E_List; 

if ($Equivalence_List eq " " ) 
{ 

$Equivalence_Iiist = \%E_Ijist; 
$Module__Inf o [3] = $Equivalence_List ; 

#relational_equality_operators, and transforms copied from V2VHD_E<3uat ion ; 
my $vhdl_relational„equality_operators = ' \<\= | \< [ \>\= | \> | \={1} I \/\= ' ; 

# If there is no relational_equality_operators in the equation, it's 

# implied that the equation != 0. i.e. 

# if (foo) //same thing as if (foo != 0) ; 

# if (!foo) // same thing as if ( 1 f oo != 0); 

my $result = &V2VHD_Equation ($condition, @Module_Inf o) ; 

my $result_width = &Width_Of ( $result , $Width_List ) ; 

#die "ERROR Process_If ^Condition, WIDTH FOR ($result) NOT KNOWN in 
{$ condition) !\n" 

#unless {$result_width) ; 

my $rhs = 0 x $result_width; 

$result = &Replace_Equivalences ($result, $Equivalence_List) ; 
my $return_string = "$result"; 
$return_string = "($result) \/\= \"$rhs\"" 

unless ($result / $vhdl_relational_equality_operators/ ) ; 
#warn "PIC, returns $return_string\n" if $start_special ; 
return ( $return„string) ; 

} 
# 

# Get_Attribute_Types : Returns all attributes defined by VHDL code. 



# Currently, I have just pasted in the attribute definitions from exemplar .vhd 

# into a "HERE" string; 

############################################################################### 
# 

sub Get_Attribute_Types 
C 

my ($pAttribute_List) = @_; 
my $vhdl_string = q[ 

-- Attribute declarations 



attribute 


rec3uired_time 


t ime ; 


attribute 


arrival_time : 


time ; 


attribute 


output_load ; 


real ; 


attribute 


max„load 


real ; 


attribute 


clock_cycle 


. time ; 


attribute 


clock_of f set 


: time ; 


attribute 


pulse_width 


: time ; 


attribute 


input^drive 


: time ; 


attribute 


nobuf f 


: boolean ; 


attribute 


pin_jn.umber 


: string ; 


attribute 


preserve_signal 


: boolean ; 


attribute 


no opt 


: boolean ; 



— New attributes in 2 . 1 release 

Specify pin_numbers for bits of a 1-dimensional array 

type exemplar_string_array is array (natural range <>, 

natural range <>) of character ; 

attribute arrayj)in_number : exemplar_string„array ; 

Buffer_sig attribute to force a (clock) buffer on a signal 

attribute buffer_sig : string ; 

— PAD attribute to force a particular PAD cell on a lO pin 

— Does not work for Xilinx, Orca and Altera, 
attribute pad : string ; 



generators 



type 



ONEHOT 



— Type needed to indicate speed requirements for module 

type modgen_select is (smallest, small, fast, fastest) ; 

— Use this attribute to set speed on signals/variables 
attribute modgen_sel : modgen_select ; 

New attributes in 2 . 2 release 

Attributes for encoding of entimerated types. 

type encoding_style is (BINARY, ONEHOT, TWOHOT, GRAY, RANDOM) 

attribute TYPE_ENCODING_STYLE : encoding_s tyle ; 

— Example of using type__encoding_style for an enumerated 

type state„t is (PLAY, WAIT_FOR_MOVE , END__OF„GAME ) ; 

attribute TYPE_ENCODING_STYIiE of state_t:type is 



attribute TYPE_ENCODING : exemplar_string_array ; 



Example of using TYPE_ENCODING for an enumerated type : 

type state_t is (PLAY, WAIT_FOR_MOVE , END_OF„GAME) ; 

attribute TYPE_ENCODING of state__t : type is 

( "Oil" , "110" , "101" ) ; 

1 ; 

#Crush comments 

while ($vhdl_string =~ s/^ ( . *? ) \-\- . *$/$l/m) { ; } 

my ©commands = split ( / \s*\ ; \s*/s , $vhdl_string) ; 
f oreach $ command ( ©commands ) 

if ($command /^\s*attribute\s+ ( \w+) \s+\ : \s* ( \w+) /s) 
{ 

$$pAttribute_List($l} = $2; 
#wam "Type $1 is $2\n"; 

} 

} 

} 

############################################################################### 
# 

# V2VHD converts from a synthesizable verilog file to a synthesizable vhdl file 
# 

# Still to be done 

# 1) Make multiple behaviour modules for each definition 

# 5) Save comments around modules and always blocks 

# 6) Convert $display statements 

# 7) Make a special altera_verilog library that overloads verilog operators 

# That will make for a much cleaner compiler. 

!############################################################################## 

# 

sub V2VHD 
{ 

my ( $Verilog_String, 
$complete__f ilename , 
$pass , 

$Module_Indexed_Port_Width_Pointer , 
$Module_Indexed_Port__Names_Po inter , 
$Module_Indexed_Parameter_.L.ist_Pointer, 
$Component__List„Pointer) = 

my %Entity_And_Architecture; 
my %Module_Instantiation__Ijist ; 
my @Module_Array; 

#Put the whole shebang including 'included files in $line. 
$complete_f ilename =- tr|\\|\/|; 

my Qtmp^X'ath = split (/ \/ /, $complete_f ilename) ; 

my $ filename = pop (@tmp_path) ; 

my $path = join { " \/ " , @tmp_path) ; 

#warn "path, filename $path, $f ilename \n" ; 

my $line = $Verilog_String; 

$line .= &read_file( • fhOOO $f ilename, $path) ; 

my $all_entity_declarations; 
my $all_architecture_blocks; 
my %Def Param_Iiist ; 

my $vhdl__module = " — $complete_f ilename\n\n" ; 



#Find and process comments 
$line = &Kill__Comments ($line) ; 
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#$line = &:Process_Coinments ($line) ; 

r 

#Find definitions and process ifdefs 

$line = &Process_Verilog_.Directives ($line) ; 

#wam "at beginning, line is $line\n" ; 

my %attribute_type; 

&Get_Attribute_Types ( \%attribute_type) ; 
#Process each module 



while ($line 
s/'" ( ,*?) \bmodule\s+(\w+) .*?\; ( . *? ) \bendmodule\b ( . * ) $/$l$4/s) 
15 { 

my $mo du 1 e_name ; 
$module_naine = $2; 

#wam "module $module_name , pass $pass\n"; 
if ($pass == 2) 
20 { 

push {@Module_Array, $module_name) ; 

} 

==i undef %Parameter_Ijist; 

'"^5 my %Parameter_Iiist ; 

^ my @parameter_order = ( ) ; 

^ my $module„commands = $3 ; 

^ my $Process_Statements; 

P my $Wire_Assignments = " " ; 

M:30 my %Declared„Components; 

Q 

my $instantiation_string; 
my $attribute_string; 

^'35 my %attribute„already_declared; 

H # Clean up module_name 

rU $module^ame =- s/'^Xs* ( , *? ) \s*$/$.l/s ; 

n #wam "module name is $module_name\n" ; 

•^40 warn "VERILOG TO VHDL CONVERSION: " . &date_t iitie . " PROCESSING MODULE 

$modul e_name \ n " ; 

############################################################ 

# We need to know all defparams before we instantiate a module 
45 # So we look for defparams separately and store them in 

# %Def Param_Iiist which is indexed by instance name. 

# When it comes time to instantiate a module, we will have all 

# the information we need. ^ / x 
while ($module_commands s/^ ( . *?) \bdefparam\s+ { . *? ) \ ; ( . * ) /$1$3 /s) 

50 { 

#defparam ins tance_name .parameter - value, 
# instance_nameX.parameterY = valueZ ; 
#print "found defparam $2\n" ; 
foreach $defparam (split { /\s*\ , \s*/s , $2 ) ) 

^ if ($defparam =- /'^Xs* ( \w+) \ . ( \w+) \s*\ = \s* { \S+) / ) 

^ $DefParam_Iiist{$l} .= " , \n" if ( $Def Param_Iiist {$1} ) ; 
$DefParam_List{$l} .= " $2 => $3"; 
60 #warn "adding $2 => $3 to dplist $l\n" ; 

} 

else 
{ 



die "ERROR: defparam statement $defparam not understood!"; 

} 

} 

} 

############################################################ 

# We need to find all exemplar attributes separately of the 

# commands that are split by semi-colon. 

# So we look for exemplar attributes separately and store them 

# When it comes time to instantiate a module, we will have 

# the attribute information that we need. 

# warn "before exemplar check, $module_commands\n \n" ; 

# NO EXEMPLAR ATTRIBUTES ARE RESPECTED, MODULES WITH NO CONTENTS WILL 

# BE CONVERTED TO BLACK BOXES 

while (0) # ($module_commands =- s/^{.*?)\-\- 

\s*exemplar\s+attribute\s+ ( . *?) \s*$/$l/mi) 
{ 

my $attribute_inf o = $2; 

my ( $name, $at tribute, $attribute_value) = split (/\s+/,$2); 
$attribute tr/A-Z/a-z/ ; 

my $att_type = $attribute_type{ $at tribute } ; 

#warn " attribute found : name , attribute , attribute_value 
$name, $attribute, $attribute_value , $att_type\n" ; 
if ($att_type) 
{ 

$attribute_string .= " — attribute $attribute : $att_type; \n" 

unless ( $attribute_already_declared{$at tribute} ) ; 
$attribute_already_declared{ $attribute } ++ ; 

$attribute_string .= " — attribute $attribute of $name: ENTITY 

is $attribute_value; \n" ; 
} 

} 

#wam "after exemplar check, $module„commands\n \n" ; 

#A11 other commands are separated by " ; " and are processed inline with 
each command. 

############################################################ 

# Port_List only contains information for module ports 

# Signal_List only contains information for wires and registers 
# 

# Port_Width, Port„Type contains info for all ports, wires and registers 

# They should probably be renamed All_Nodes_Width/Type or something 
# 

# Port_Type is indexed by verilog ( input , output , inout , reg, wire) its 
result is 

# a " , " separated list of all ports of that type 
# 

# Port_Width is indexed by the port name. Its result is "left, right" 

where 

# left is the first dimension of the array, right is the last dimension. 

# eg. for wire [7:3] foo; $Port_Width{ " f oo" } = "7,3"; 
# 

# Port_List is indexed by the module port_name . 

# Its value is SIGNAL $port_name : ( IN | OUT | INOUT) STD_LOGIC {_VECTOR? ) 
(left DOWNTO right) 

# 

# Signal_List is indexed by the register /wire name 

# Its value is $Signal_List {$port} = "SIGNAL $port : STD_LOGIC (_VECTOR? ) 
(left DOWNTO right)" 



undef %Signal„Ijist ; 
my %Signal_List ; 



xindef %Type__List; 
my %Type_Ijist; 

undef %Port_Ijist; 
undef %Port„Width; 
undef %Port„Type; 



my %Port_Ijist ; 

my %Port_Width; 

my %Port_Type; 

if (0)#($pass == 2) 

^ my $Port„Widtli_Pointer 

$$Module indexed_Port_Width_Pointer{$module_name} ; 

die "ERROR MODULE ( $module_naine ) HAS NOT BEEN PREVIOUSLY SCANNED\n 
if ($Port_Width__Pointer eq ""); 

foreach $key (sort (keys (%{ $Port_Width_Po inter} )) ) 

^ #wam "module_name ($module_name) key ($key)\n"; 
$Port_Width{$key} = "Taken\n"; 

} 

} 

$Module„Indexed_Port_Ncimes_Pointer , 
$Module_Indexed_Paranieter_List_Pointer, 

my @Module_Info = ( \%Port_Width, \%Signal_Iiist , \$Wire__Assigninents) ; 

my $counter = 0; 

my $number_of _commands = 25; 

while ($module_commands =- s/'^ ( . *? ) \ ; ( . * ) /$2/s) 

#Co\mter prints " . " after $number_of_coinmands 
$counter++ ; 
print STDERR " . " 

if ( ($counter % $number_of _commands ) == 0) ; 

my $this_command = $1; 

my $next_commands = $2; 

my $rest_of„module = "$1\;$2"; 

#warn "rom is $rest_of_module \n" ; 

#wam "tc, $this_command\n" ; 

#Search for parameters and determine their type, 

#Types are "NATURAL" if they only contain numbers, else Type 

"STRING" ^ 
if {$this„command =~ ( . *? ) \bparameter\s+ ( . *?) \s*$/s) 

{ 

my $paranieter_equation; 
$parameter_ecxuation = $2; 

my ( $param_lhs , @param_rhs ) = sp 

(/\s*\=\s*/ , $parameter__equation) ; 

my {$param_rhs) = join ( " \= " , @parain_rhs) ; 
my ($parameter_type) = "STRING"; 
$paraineter_type = "NATURAL" 

if ($param_rhs s/^\s* ( \d+) \s*/$l/s) ; 
#wam " $param_lhs , $param_rhs , pt is $parameter_type\n" ; 
#was $Parameter„String .= " $param_lhs : $parameter_type 

$param_rhs\n" ; a v, » 

$Parameter_List{$param_lhs} = " $paramete retype := $param_rhs ; 
#warn "found paramter " . $Parameter__List { $param_lhs} . " \n" ; 

} 



############### 

# Get Signal Definitions 

if ( $this_command 

/{.*?) \b( input I output | inout | reg| wire] integer) \b( . *) / s) 
5 { 

my $direction = $2; 
my $port_list = $3; 
my $lef t__index - 
my $right_index = " " ; 
10 my $width; 

############### 

# (Signal Widths Width > 1) => std_logic_vector 
if {$port_list =~ s/'^\s*\[(['^\:]+)\: (["\]]+)\]\s*{.*)/$3/) 
15 { 

$left_index = eval($l); 
$right_index = eval($2); 

$type 

20 " STD_.LOGIC„VECTOR" . &Vector_Order { $lef t„index, $right_index) ; 

$width = "$lef t_index, $right_index" ; 

} 

else #Width is one. 
{ 

□25 if ($direction =~ /'^inout$/) 

m #all inouts of width one should be considered 

S #std_logic_vector . 

^ $type = " STD__LOGIC_VECTOR (0 DOWNTO 0 ) " ; 

H3O $width = "0,0"; 

t } 

y else 

yi ( 

B if ($direction /""integerS/i) 

□35 { 

m #Convert integers to 32 bit STD_LOGIC_VECTORS 

$width = "31, 0" ; 

p. $type = "STD_IiOGIC„VECTOR(31 DOWNTO 0)"; 

^HO else 

^ { • 

############### 

# everything else is STD_LOGIC . 

# (wires and registers which will 

45 # be converted back to STD_LOGIC_VECTOR in the if ($dir) 
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condition below.) 



# Perhaps this could be cleaned up later 
$type = "STD_LOGIC"; 
$width = "0,0"; 



} 



############### 

55 # wires can be declared and assigned to in the same statement 

# e.g. wire a = b + c; 

# So we strip away everything after the first " = " assignment 

# And put the results in $Wire_Assignments 
my $rhs; 

60 if ($direction eq "wire") 

{ 

my @rhs = ( ) ; 

($port_list , @rhs) = split ( /\s*\= {1} \s*/s, $port_list) ; 



$rhs = join ("=",@rhs); #Put $rhs back together again 

} 

############### 

# Handle memories e.g. 

# reg [7:0] mem_array [512 - 1 : 0] ; 

if ($port_list =- s/'^(.*?)\[(.*?)\:(.*?)\]\s*$/$l/s) 
{ 

my $up_index = eval($2); 

my $down_index = eval($3); 

$ width . = " , $up_index, $down_index" ; 

my $array_order = ScVector_Order ( $up_index, $down_index) ; 
my $mem„type = "memory_type_$array_order " ; 
while ($mem_type =~ s/\s/\_/){;} 

my $memory_type = 

&Get_Exclusive_VHDL_Name ($mem_type, \%Port_Width) ; 

$Type_Iiist{$memory_type} = "TYPE $memory_type IS ARRAY 
$array_order of $type; " ; 

$type = $memory_type ; 

} 

############### 

# Get Port Names and transform names to Port /Signal_Ijist 
$port_list s/^\s* { .*?) \s*$/$l/s; tStrip spaces at either end 
foreach $port (split ( /\s*\ , \s* /s , $port_list) ) 
{ 

die "ILLEGAL PORT NAME $port, $l\n" if ($port /(\W)/); 
$Port_Type{$direction} .= "$port,"; 
$Port__Width{$port} = $width; 

############### 

# If direction is a port, put it in port_list 

if ( ($direction eq "input") 1| 
{$direction eq "output") 1| 
{$direction eq "inout") 
) 

{ 

my %dir_xform; 
$dir_xform{" input"} = "IN"; 
$dir_xform{" output"} = "OUT" ; 
$dir_xform{" inout"} = "INOUT"; 
$dir_xform{ "reg" } = " " ; 
$dir_xform{ "wire" } = ""; 

my $dir = $dir„xf orm{ $direction} ; 

#warn "adding SIGNAL $port : $dir $type\n" 

#if ($direction eq "output"); 

$Port_List{$port} = "SIGNAL $port : $dir $type"; 

} 

############### 

# If direction is an internal signal or (an output which must 

have a tmp 

# signal associated with it) or (an input port of STD_LOGIC) 

# declare it in %Signal_List 

if ( ($direction eq "wire") || 
($direction eq "reg") || 
($direction eq "integer") || 
($direction eq "output") \\ 

( ($direction eq "input") && ($type eq "STD_LOGIC") ) 
) 
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15 assignments 



# Convert all STD_LOGIC to STD_LOGIC_VECTOR ( 0 DOWNTO 0) 
my $tmp_type = $type; 

$ tmp_type = - s / STD_LOGIC $ / STD_LOGIC_VECTOR ( 0 DOWNTO 0 ) / i ; 
############### 

# Do not put a wire/register in signal list if it has already 

# been declared in port list. 

$Signal_List{$port} = "SIGNAL $port : $tmp_type; " 
unless $Port_List {$port} ; 

#wire foo = some value; // Put (foo = some value) in wire 



if ( ($direction eq "wire") && ($rhs ne " " ) ) 
{ 

my $wire_assignment = &:V2VHD_Equation_Wrapper {"$port = 

$rhs" , @Module_Info) ; 

20 $Wire_Assignments .= " $wire_assignment ; \n" ; 

} 

if ( $direction eq "input" \\ $direction eq "output") 
{ 

-as ############################################################ 

# VHDL will not allow you to make equations 
fg # with outputs in the equation rhs . So we 

Qi # make a wire called tmp_$port for each output named 

Q $port . 

[T30 # later we assign the output $port <= tmp„$port and 

change all 

# assignments in the module to use 

# tmp_$port instead of port. 

□35 itiy $tmp_port 

m &Get_Exclusive_VHDIj_Name ( " tmp_$port " , \%Port_Wiclth) ; 

#keep $port as the key so we can wire up tmp_$port and 

f?l $port later 

$Signal_List{$port} = "SIGNAL $tmp_port : $tmp_type;"; 
|==^'40 #warn "added ($Signal_List {$port } ) in addition to. 

^ portlist ($Port_List{$port} ) \n" ; 

} 

} 

} 

45 } 

#next if ($pass == 1) ; 

#cannot do next until we've determined that the entity is a black box 

if ($this_command =- /'^ (\s*) \bassign\b( . *?) \= ( . *) $/s) 
50 { 

my $wire_assignment = " " . &V2VHD_Equation_Wrapper ("$2 

$3«,@Module_Info) ."\;\n"; 

$Wire_Assignments . = $wire_assignment ; 

} 

55 

#get module instantiation 

if ($this_command =^ /(.*?) (\w+) \s+{\w+) \s*\ {(.*) \) \s*$/s) 
{ 

my $module_being_instantiated = $2; 
60 my $instance__name = $3 ; 

my $Connections = $4; 

#warn "connecting 
($module_being_instantiated, $instance_name, $Connections) \n" ; 



############### 

# hack a register into syn_dprain 

if ($module_being„instantiated =- /'^syn_dpram_(\d+)x(\d-f ) \_ruwr$/i) 
{ 

#wam "warning, found syn_dprcLm\n" ; 
my $WrAddress = $Connections ; 
my $WrClock = $Connections ; 

#Orion, make a subroutine that returns what is connected to 



what 



die "WrAddress not found for LPM_ROM $instance_„name" 
unless ($WrAddress 
s/^ . *?\ . \s*WrAddress\s*\ {?\s* (\w+) .*$/$l/s) ; 

die "WrCIock not found for LPM__ROM $instance_name" 
unless ($WrClock 
s/'^.*?\.\s*WrClock\s*\(?\s*(\w+) .*$/$l/s) ; 

itiy $Delayed_Address = &:Add_Intermediate_Signal 

( " dl„$ WrAddress " , 

&Width_Of ($WrAddress, \%Port_Width) , 

@Module_Info) ; 

$Connections =- s/\b$WrAddress\b/$Delayed„Address/ ; 

$Process_Statements .= " — GENMEM WARNINGl 1 ! SUPER HACK MADE FOR 
VERSION 1.0 SIMULATION WARNING! ! ! WARNING ! I ! \n" ; 

$Process_Stateinents .= " — GENMEM- of 

$module_being_instantiated\ .vhd DOES NOT CORRECTLY LATCH WrAddress\n" ; 

$Process_Statements ,= "—SO WE HACK IN A LATCH HERE AND WIRE 
$module_being_instantiated\ .WrAddress to $Delayed_Address\n" ; 

$Process_Statements .= "PROCESS\n BEGINXn WAIT UNTIL 

$WrClock = \"l\";\n $Delayed_Address \<\= $WrAddress ; \n" ; 

$Process_Statements . = "END PROCESS; \n"; 

} 

#wam "VERILOG TO VHDL CONVERSION: " . &:date_time . " : INSTANTIATING 
$instance_name IN MODULE $module_name \n" ; 

#If module_being_instantiated is a black box, declare it as a 

component , 

#else instantiate it normally 

if (1) #$$Component_List_Pointer{$module_being_instantiated} ) 
{ 

#wam "$module_name instantiates black box 
$module_being_instantiated\n" ; 

#warn "here is 

component_list" . ( $$Component_List_Pointer { $module_being_instantiated} ) . "\n" ; 

$Declared_Components { $module_being_instantiated} ++ ; 

$ instant iation_string .= " $instance_name : 
$module„being_instantiated\n" ; 
} 

else 
{ 

if ($pass ==2) 
{ 

$Module_Instantiation_List {$module_name} 
" $module_being_instantiated, " 

unless ($Module_Instantiation_List {$module__name} 
/\b$module__being_instantiated\ , /) ; 

#warn "module ( $module_name) , MIL is now 

($Module_Instantiation_List {$module_name} ) \n" ; 

} 



$instantiation_string .= " $instance_name : ENTITY 
work. $module__being_instantiated\ (behaviorX) \n" ; 



} 

if ($Def Paraiti_List {$instance„name) ) 
{ 

$instantiation_string .= " GENERIC MAP 

\ {\n" , $DefParain_List {$instance_naine} . " \) \n" ; 

#wam " PARAMETERS in 

$instance_name\n" . $Def Parain_List {$instance_naine} . " \n" ; 
} 

############################################################ 

# I initially thought it would be really easy to just hook up the 
ports. 95% of the time it is total cake. 

# But 5% of the time is a royal pain. 
# 

# Here are the major differences between verilog and VHDL port 
instantiation. 

# 

# 1) Verilog does not care that you leave a port unconnected. VHDL 

does . 

# 2) Verilog does not care that the widths of the ports and the 
widths of the connected signal 

# do not match . VHDL does . 

# 3) Verilog considers a bit vector of width 0 and a single bit to 
be interchangable . 

# VHDL considers STD_LOGIC different than STD_LOGIC_VECTOR ( 0 

DOWNTO 0) . 

# 

# Problem 1 is easy to solve: Keep a list of module ports and 
instantiated connections 

# Each Port that does not have an associated connection gets 
wired to "open". 

# 

# Problem 2 is solved in the following manner: 

# If a port is an input, e.g. " . input_signal ({--a , {4{b}}})", 

# use the results from our V2VHD_Equation_Wrapper ( input_signal = 
({^a , {4{b} }}...). V2VHD_Equation 

# is sophisticated enough to deal with all verilog operators and 
can also reconcile widths. 

# 

# For each output connection, e.g. " , output_signal ({-a 

{4{b}}}) 

# We make a tmp_output_signal which has the same width as the 
output port. Then we use V2VHD_Equation 

# again, &V2VHD_Equation_Wrapper ( " ( (^a , {4{b}}}) 
tmp_output_signal" . . . ) . 

# 

# Problem 3 is also solved by having a tmp signal act as the go- 
between . 

# 

# This makes for very ugly vhdl code. When I have time, I'll fix 
it so that the 

# only time we generate a tmp signal is for the nasty 5% of the 

time . 



my $Module_Port_Names_Pointer 
$$Module_Indexed_Port_Naines_Pointer {$module„being_instantiated} ; 

die "ERROR IN INSTANTIATING { $module_being_instantiated) . UNKNOWN 

MODULE \n" 

if ( ($Module_Port_Names_Pointer eq && ($pass == 2)); 

my $Module_Port_Width_Pointer = 

$$Module„Indexed_Port_Width_Pointer {$module_being_instantiated} ; 



#my $Module_Paraineter_Pointer = 
$$Module_Indexed_Paraineter_List_Pointer {$module_being_instantiated} ; 

my %Connection_Iiist ; 

foreach $connection (split ( / \s*\ , \s*/s , $Connections ) ) 
{ 

#last if ($pass == 1) ; 

if ($connection / \ . \s* ( \w+) ( . * ) /s) 
{ 

my $Module_Port_Name; 
$Module_Port_Name = $1; 
#my $Connection_rhs = $2; 

my ($tmp, $Connection„rhs, $tmp2) = &:Count_Parentheses ( $2 ) ; 

die "ERROR INSTANTIATION OF $instance_name IN MODULE 
$module_name NOT UNDERSTOOD ( $connection) $l\n" 

if ($Connection_rhs eq " " ) ; 
$Connection_rlis s/'^Xs* ( . *? ) \s*$/$l/ ; 

$Connection_Iiist { $Module_Port_Name} = $Connection_rhs ; 

#warn " INSTANTIATION ( $module„being_instantiated) adding 

$Connection_rhs, 

$Module_Port_Name ( " . $Connection„List {$Module_Port_Name} . " \n" ; 

die "ERROR INSTANTIATION OF MODULE $module_being_instantiated 
NAMED $instance_name \n" 

IN MODULE $module_name REFERS TO AN UNKNOWN PORT 

$Module_Port_Name\n" 

unless ( $$Module_Port_Width_Pointer { $Module_Port_Name} 

1 I ($pass == 1) ) ; 

} 

else 
{ 

die "ERROR INSTANTIATION OF $instance_name IN MODULE 
$module_name NOT UNDERSTOOD ( $connection) $l\n" ; 

#$module_port_list .= " $connection, \n" ; 

} 

} 

my $module_jport_list ; 

my $pw_array = join {"\n " , keys (%Port_Width) ) ; 

foreach $port ( sort (keys (%$Module„Por t_Names_Po inter ) ) ) 
{ 

my $what_port_connects_to = $Connection_List ( $port } ; 
itiy $port_width - &Width_Of ($what_port_connects_to, 

$Module_Port_Width_Pointer) ; 

if ( $what_port_connects_to eq "") 
{ 

$modulej>ort_list . = " $port => open, \n" ; 

next ; 

> 

my ( $ tmp„name , 
$direction, 

$por t_type ) = 
&Get_Port_Name_Direction_And_Type ( $ $Module_Port_Names_Po inter {$ port } ) ; 

my %E_List; 

my "$port_naane = 

&V2VHD__Equation($what_port_connects_to,@Module_Info, \%E_List) ; 
$port„name =~ s/'^Xs* ( . *?) \s*$/$l/s; 



my $connection_width = &Width_Of ( $port_name , \%Port_Width) ; 

if ( $connection__width eq && ($direction =- /^OUT$/) && 

($pass != 1) ) 

warn "WARNING: INSTANTIATION OF $instance_naine IN MODULE 

$module_naine HAS A PORT NAMEDVn" ; 

warn " { $what^ort_connects_to) THAT HAS NOT BEEN 

DEFINED. ASSUMING A SIGNAL OF WIDTH\n" ; 

warn " ( $port_width) EQUIVALENT TO WIDTH OF MODULE 

( $module„being_instantiated) PORT\n" ; 

warn " ( $port_name ) \n" ; 

$ connect ion_width = $port_width; 

&:Add_Intermediate_Signal {$what_port_connects_to, $connection_width, ^Module 
_Info) ; 

} 

if ($E_List{$what_port_connects_to} ) 

#warn "e_list ( $what_por t ..connect s_to) known\n" ; 

$port_width = &Width__Of ( $what_port_connects_to , \%Port_Width) ; 

} 

#If the port width does not match or if $what_port_connects_to 
contains some funky operators 

#do the safe thing and make a tmp_wire . 

if ( ($connection_width != $port_width) |1 

( $what^ort_connect s_to =~ / \W/ ) ) 
{ 

if ($direction =~ /'"INOUT$/i) 
{ 

#warn (%Port„Width) ; 

die ("ERROR MODULE $module_name , INSTANTIATION 

$instance_name INOUT PORT, \n" , 

. "$what_port_connects_to (width $connectxon_width) 

MUST HAVE THE SAME WIDTH AS $port (width $port_width) \n" ) ; 

} 

if ($direction /^IN$/i) 

$what_port_connects_to = "To_$instance_name\__$port " ; 

$what_port_connects_to = 
&Get_Exclusive_VHDL_Name ( $what jort_connects_to , \%Port„Width) ; 

#wam " instance_name is $instance„name , port is $port, 

mpwn is " . $$Module_Port_Width„Pointer { $port } . " \n" ; 

$Port_Width{$what^ort_connects_to} 

$$Module_Port_Width_Pointer{$port} ; 

$Signal_List{$what_port_connects_to} = &Declare_Signal 

($what_port_connects_to, \%Port„Width) ; 

$Wire_Assignments .= " " . &V2VHD_Equation_Wrapper 

("$what_port_connects_to = " . $Connection_List {$port} , 

@Module_Inf o) . " \ ; \n" 

if ( $pass -= 2 ) ; 

} 

if ($direction =- /'^OUTS/i) 

$what jort_connects_to = "From_$instance__name\_$port " ; 

$what_port_connects_to = 
&:Get_Exclusive_VHDL_Name ($what_port_connects_to, \%Port_Width) ; 



$Port_Width{$what_port_coTinects_to} 

$ $Module_Por t_Width_Point er { $por t } ; 

$Signal_List {$what_port_connects_to} = &Declare_Signal 

($wliat_port_connects_to, \%Port„Width) ; 

$Wire_Assignments .= " " . &V2VHD_Eciuation_Wrapper 

($Connection_List{$port} . " = $what_port_connects_to" , 



if ($pass == 2) ; 



@Module_Inf o) . " \ ; \n" 

} 

} 

$what_port_connects_to .= "(0)" if ($port_type 

/'^STD_LOGIC$/i) ; 

$module_port„list .= " $port => 

$what_port_cormects„to , \n" ; 
} 

#Lose the last comma 
$modulej>ort_list =~ s/\,\s*$//s; 

$instantiation_string .= " PORT MAP \(\n"; 
$instantiation_string . = " $module_port_list \ ) \ ; \n\n" ; 

> 

############################################################ 

# In verilog, you often declare a bianch of wire and assign statements 

# right before you do an always or initial block. It's nice to do it 



this way 



# so that wires that determine the outcome of the always statement 

# are near the actual always statement. 
# 

# We do the same thing in our initial and always blocks . 

# We put all previously assigned wires 

# before the PROCESS statement. And clear out $Wire_Assignments so 

# that the assignments only show up in one place. 
# 

# find initial always statements. 
# 

# assume that a statement always @ (po sedge a or posedge b) 

# always has "a" as the clock and "b" as the asynchronous event. 

# we can get fancier later. 

if ($rest_of_module =- /''\s*\b (always ] initial) \b\s* (.*) $/s) 
{ 

#update heartbeat 
print STDERR " . " ; 
$co\inter = $number_of _commands ; 



#wam "in always statement\n" ; 
my $always_or_initial = $1; 
my $always_statement = $2; 

#warn "found always statement, $always_statement\n" ; 
my $clk; 

my $clk_level = "0"; 
my $edge; 

my $ a synchronous_even t ; 

my $asynchronous_level = "0"; 

my $asynchronous_edge ; 

my $wait_statement ; 



ray $ tmp ; 

my $always_condition; 
my $always_innards = $2; 



my $tmp_always_condition; 



$Process_Statements . = $Wire_Assigninents ; 
$Wire_Assigninents = " " ; 

#Search for always (i(foo) 

if ($always_statement =- /'"\@ ( . *) $/s) 

{ 

#warn "found \@ remaining $l\n" ; 

( $tmp , $always_condition, $always„innards ) 

&Count_Parenth.eses ( $ 1 ) ; 

#convert always condition 

$tmp_always_condition = $always_condition; 
#get clock and clocks edge 

if ($always„condition =- s/ (pos | neg) edge\s+ ( \S+) { . * ) /$3 /s) 
{ 

$clk = $2; 
$edge = $1; 

$clk_level = "1" if ($edge eq "pos"); 

#$wait_statement = "UNTIL $clk = \ '".(Sedge eq "pos")."\'"; 
$wait_statement = "UNTIL $clk = \"".($edge eq "pos")."\""; 

#wam "always condition is ( $always_condition) \n" ; 

} 

else 
{ 

if ($always_or_initial =- /always/i) 

#No clock statement, but possibly a conditional always 
#e.g. always @(a or b or c) 

while ($always_condition s/\s*\bor\b/\ , /i) { ; } 
$wait_statement = "ON $always„condition" ; 
#warn "wait_statement is $wait_statement\n" ; 

} 

} 

} 

my $rest„of_module_innards; 
( $always_innards , $rest_of _module_innards ) 
ScHandle_Next_If „Else_Line ( $always_innards , 

@Module_Inf o) ; 

my %Variable_Conversion_List; 

while ($always_innards =- s/Please Convert (\w+) To A Variable//s 
{ 

#warn "found conversion of {$l)\n"; 
$Variable_Conversion_List { $ 1 } ++ ; 

} 

foreach $VCL (keys {%Variable_Conversion_List ) ) 

#warn "VCL is ($VCL), width of 

" . &Width_Of { $VCL, \%Port_Width) , " \n" ; 

my $tmp_name = ScAdd_Intermediate_Signal ( " VARIABLE_$VCL" , 

ScWidth_Of ($VCL, \%Port_Width) , 
@Module„Info) ; 

ScConvert_Signals_To_Shared_Variable ($tmp__name, \%Signal_List) 
while ($always__innards =- s/\b$VCL\b/$tmp_name/si) { ; } 



\ • $asynchronous_level\ ' THEN" ; 

my $first_if_then_statement = "IF $asynchronous_event 



$always_innards = " $tmp_name := $VCL; \n$always_innards\n 

$VCL <= $ tmp_name ; " ; 
} 

############################################################ 

# &Handle_Next_If_Else_Line has converted everything mside the 
always statement to always_innards and the rest 

# of the module is in $rest_of_module_innards ; So set our top 
level module_commands = $rest_of_module_innards 

# and continue parsing from there. 
$module„commands = $rest_of _module„innards ; 

#get asynchronous signal and edge if it exists 
if ($always_condition /\s+or\s+ (pos | neg) edge\s+ ( \S+) /s) 

{ 

$asynchronous_edge = $1; 
$asynchronous„event = $2; 

$asynchronous_level = "1" if ( $asynchronous_edge eg "pos"); 

#my $first_if_then_statement = "IF Sasynchronous_event = 
elX' THEN"; 
my $first_ 
\ " $asynchronous_level \ " THEN" ; 

my $death_string = "ERROR ALWAYS CONDITION 
$tmp always condition HAS ASYNCHRONOUS SIGNAL ( $asynchronous_event ) \n" 

."BUT DOES NOT HAVE THE SIGNAL IN THE FIRST IF STATEMENT . \n" 
\ "INSIDE ALWAYS BLOCK IS { $always_innards ) . \n" ; 

#Process first if condition 

#make sure asynchronous edge was involved in first if 

computation . 

die ( "$death_string" ) unless ( $always_innards 
s/'" (\s*) IF ( . *?)THEN( . *) $/$l$f irst__if_then_statement$3/s) ; 

my $fic = $2; ^ ^ ^ , . 

die ("$death_string" ) unless {$fic =- /$asynchronous_event/s) ; 
die ( " $death_string" ) unless 
( $always_innards 

s/ ($f irst_if_then_statement . *?) ELSE ( . *) $/$lELSIF $clk\ ' EVENT AND $clk 
\"$clk„level\" THEN$2/s) ; 

$Process_Statements . = "PROCESS ($clk, $asynchronous_event ) \n 
$Process_Statements .= " 

} 

else 
{ 

$Process„Statements .= "PROCESSNn BEGIN\n" ; 
$Process_Statements .= " WAIT $wait_statement ; \n" 

if ($wait__statement) ; 
#$Process_Statements .= " $always_innards \n END PROCESS; \n"; 

} 

$Process_Statements , = $always_innards ; 
$Process_Statements .= " \n WAIT;" 

if ($always_or__initial /initial/) ; 
$Process_Statements . = " \nEND PROCESS ; \n\n" ; 
} #Done with always ©innards. 

} 

#If we've printed status ".", print a new line 
print STDERR "\n" 

if ($counter >= $number_of_commands ) ; 



BEGIN" 



############################################################ 

# Put it all together. 

# Check to see if anything needs to be put inside the architecture block. 

# If nothing does, assume its a black box and instantiate a "component" 

with noopt -L. 1 J 

# attributes and the exact same Parameters and Ports as the entity hooked 

up to the 

# component . 

# P.S. I hate black boxes, 
if 

(1) # ( ($Process_Statements . $Wire_Assignments . $instantiation_string . $attribute_st 
ring) eq " " ) 

^ my $Component„String = 

&Declare_Entity ($module_name, \%Port„List, \%Parameter_List) ; 

while ($Component_String =- s /ElJJTITY/ COMPONENT/ ){; } 

while ( $Component„String =~ s/END\s+$module_name\s*\ ; /END 

COMPONENT\;/) {; } 

my $tmp_cs = $ Component _St ring ; 

$Component_String .= " --attribute noopt: boolean; \n"; 

$Component_String .= " attribute noopt of $module_name : component is 

true;\n"; . . ^ ^ ^ n 

$Component_String .= " --Hard instantiation of $module_name 

megafunction in VHDL with user defined parameters\n\n\n" ; 

$$Component_List„Pointer{$module_name} = $Component„String; 

#else #It is not a black box, declare it as a normal module 
if 

( ($Process_Statements . $Wire_Assignments . $instantiation_string . $attribute_string 
) ne 

^ ############################################################ 

# Unlike Verilog, VHDL recjuires that all entities be defined before 

another ^ ^ - i n n 

# architecture block instantiates said entity. (Sounds like a legal 

verdict doesn't it?) 

# So, we put our port and parameter information into 

$entity_declaration, then put all 

# $entity_declaration at the top of our file. 

my $entity_declaration = 

&Declare_Entity ($module_name, \%Port_Ijist , \%Parameter_List ) ; 

#Everything below goes in the architecture block. 
#1 ■ 11 put a commented out entity declaration in there too so 
#it will be easier for a coder to figure out what is going on 
#Put it all in a string called $architecture_block 

my $architecture_block = "ARCHITECTURE behavior OF $module__name 

IS\n" ; 

my (@Component_Array) = sort (keys (%Declared_Components) ) ; 

$architecture_block .= "attribute noopt: boolean; \n" if 

@Component_Array ; 

foreach $key (@Component_Array) 

{ 

$architecture_block .= ( $$Component_List_Pointer { $key} ) ; 

} 

foreach $type (sort (keys (%Type_List) ) ) 
{ 

$architecture_block .= " " . $Type.List { $type} . "\n" ; 



} 



while ($Wire_Assignments s/W/g){;} #crush tick escape character 
should already be done, but it does not hurt anything 
#wam "wa is $Wire_Assigninents\n" ; 

############################################################ 

# VHDL will not allow you to make equations 

# with outputs in the equation rhs . So we 

# make a wire called tmp_$port for each output 

# and assign the output $port <= tmp_$port . All 

# other assignments in the module are changed to use 

# tmp_$port instead of port. 
# 

# Also, VHDL considers std_logic to be different than 
std_logic_vector (0 downto 0) . Verilog does not. 

# We solve this above by assuming everything is a std_logic_vector { 0 
downto 0) . Here we'll take 

# a port (std_logic) and instantly convert it to tmp_port 
( std_logic_vector ( 0 downto 0 ) ) and set 

# tmp_port(0) <= port; if port is input and port <= tmp_port{0) if 
port is output. 

# Extra tricky, though is that fpga express does not like 'event on 
std_logic_vectors . 

# we'll need to convert 'event signals back to std_logic 

foreach $port„declaration (sort (keys (%Port_List) ) ) 
{ 

my ($port_name, $port_direction, $port_type) = 

&Get_Port_Name_Direction_And_Type ( $Port_Iiist { $port_declaration} ) ; 

my $port_type_is_std_logic = 0; 
$port_type_is_std_logic - 1 

if ($port_type =- s/'"STD_LOGIC$/STD_LOGIC_VECTOR(0 DOWNTO 

0)/i); 

my $tmp_signal_list = $Signal_List { $port_declaration} ; 
if ( $tmp_signal_list 

/^\s* (SIGNAL I VARIABLE I SHARED \s+VARIABLE) \s* (\w+) /is 

# ($port_direction /'"OUT$/i) || 

# ($port_type__is_std_logic) 

) 

{ 

my $tmp_port_name = $2; 

#warn "port_name is $port_name tmp_port_name is $1, 

$ tmp_port_ncime\n" ; 

#add new name to signal list if any Process, Wire, or 
instantiation signal uses it. 

my $port_name_used = 0; 
#Orion, maybe could use /g option here if we knew the special 
variable for how many 

# times /g matched or we could next if we were here for pass 1 

while ( $Process_Statements =- 

s/ \b$port_name\b/$tmp_port_name/s) { $port_name_used++ ; } 

my $event_Process_Statements ; 

#Remember, elk is first in an asynchronous reset statement. 

if ( $port_name_used) 

{ 

while ( $Process„Statements 



s/\b(PROCESS\s*\ (\s*) #$1 = PROCESS 

\( 

$tinp_port_name(\s*\, \s*\w+\s*\) ) # $2 

reset \) " 

(.*?\b) # $3 = reset 

statement 

$tmp_port„name (\ 'EVENT\s+AND\s+) # $4 = 

•event and 

$tmp_port_naine{\s+\ = \s+) \" { [01] ) \" # $5 = " = 

" $6 = new elk logic level 

{\s+.*?\bEND\s+PROCESS) # $7 = rest 

to end process 

/$l$port„naine$2$3$port„name$4$port_naine$5\ ' $6\ • $7 /six) 

{ 

$port_nanie_used = $port_naitie„used - 2; 
die " Incorrect \ ' event substitution\n" 
if ( $port_naiae_used < 0) ; 

} 

while ($Process_Statements 
s/ (\bPROCESS\s+BEGIN\s+WAIT\s+UNTIL\s+) $tmp_port_name ( \s+\=\s+ ) \" { [01] ) \" / 

$l$port_name$2\ ' $3\ ' /six) 
{ $port_name_used = $port_naine_used - 1 ; } 

} 

while ( $Wire_Assigninents =- 

s/\b$port_name\b/$tmp_port_name/s) {$port_name_used++; } 

while ($instantiation_string 
s/ (\ = \>. *?\b) $port_name\b/$l$tinp_port_name/) {$port_name_used++; } 

if ( $port_naine_used) 
{ 

my $tmp_wire_assignment ; 

$tmp_port__name .= "(0)" if ( $port_type_is_std_logic) ; 

if ($port_direction /'^OUTS/ ) { $tmp_wire_assignment 

$port_ncLme <= $tmp_port_name; \n" ; } 

if ($port_direction /'^INS/ ) { $tmp_wire_assignment 

$tmp_port_name <= $port_name; \n" ; } 

#die "DID NOT FIND ($port„name) IN ARCHITECTURE BLOCK 
( $code_in_architecture_block) \n" 

#unless { $code_in„architecture_block 

s/ { . *\; [^\;\ = ] *\b$port_name\b['^\; \ = ] * [ -"X ; ] *\ ; ) ( .*) /$l$tmp_wire„assignment$2/s) ; 

$Wire_Assignments . = $ tmp_wire„assignment ; 

} 

else 
{ 

undef ($Signal_List{$port_name} ) ; 

} 

} 

) 

############### 

# Now because FPGA express hates std_logic_vector 'event and wait 
statements, we need to generate 

# a std_logic signal to be used in all other 'event and wait 

statements 

xvcy %std_logic_xf orm; 

if (0) #No, I refuse to support FPGA express 
{ 

while ($Process_Statements 

s/\b(PROCESS\s*\ (\S*) # $1 = PROCESS \( 

(\w+) (\s*\, \s*\w+\s*\) ) # $2 = elk, $3 = " 

, resetX) " 



5 



statement 

logic level 
end process 



( *7\b) # $4 = reset 

\2 (\ •EVENT\s+AND\s+) # $5 = 'event and 

\2(\s+\=\s+)\"([01])\" # $6 = " = " $7 = new elk 

(\s+. *?\bEND\s+PROCESS) # $8 = rest to 

/$1$2$3$4($2 (0) ) $5$2 (0) $6\ ' $7\ ' $8/six) 



{;} 

#my $std_logic_name 
" ($2(0) ) " ;#&Get_Exclusive_VHDL_Name(std_logic_$2, \%Port_Width) ; 
#$std_logic_xfonn{$l} = $2; 

#$l$std_logic_naine$3$4$std_logic_nanie$5$std_logic_name$6\ ' $7\ ' $8/sixee) 

while ($Process_Statements 
s/ (\bPROCESS\s+BEGIN\s+WAXT\s+UNTIIi\s+) $tmp_^ort_name ( \s+\ = \s+ ) \" ( [01] ) \"/ 

$l$port_name$2\ ' $3\ ' /six) 

{; } 

} 

foreach Ssignal ( sort (keys {%Signal_Iiist) ) ) 

; ^ $architecture_block .= " « . $Signal_Iiist { $signal} . " \n" ; 

} 

$architecture„block .= "BEGIN\n\n"; 

$architecture_block 

) $Process_Statements . $Wire_Assignitients . $instantiation_string , $attribute_string; 
$arcllitecture__block .= "END behavior; \n\n\n" ; 



60 



#last thing convert [a:b] to (a downto b) 

$architecture_block = &V2VHD_Index ( $architecture_block) ; 

$ En t i ty_And_Ar chi t ec tur e { $inodul e_name } 
&Get_Library_Declaration ( $architecture_block) . $entity_declaration . $architecture 
_block; 



0 #$all_architecture_blocks ,= $architecture_block; 

#warn "defined $module_naine\n" ; 

#Now we are finished with the contents of the module. 
45 #Save away valuable information for later regardless of if its a black 

box or not 

$$Module_Indexed_Port_Width_Pointer{$module_name} = \%Port_Width; 
$$Module_Indexed_Port_Names_Pointer{$module_name} = \%Port_Iiist ; 
50 $$Module„Indexed_Parameter_List{$module_name} = \%Parameter_L,ist ; 

} 

############################################################ 

# Now all is done, except that we need to order the modules 

55 # VHDL is particular about the order in which things are declared. 

# Everything must be declared before it is instantiated. Fortunately, I 

# have a list of what is instantiated called %Module_Instantiation_List ; 



my $ r e turn_s t r ing ; 

foreach $entity (&Order_Entities ( \%Module_Instantiation_List , 

@Mo du 1 e__Ar r ay ) 

) 



{ 

$return_string .= $Entity_And_Architecture{$entity} ; 

) 

retuim ( $retum_string) ; 

} 

############################################################################### 

# 

# Order_Entities is a recursive function that takes a hash and an array of 

#^^^t returns an array of entities in order of dependance . The first entity 
returned 

# will not instantiate any other entities. The second entity returned wxll 
only instantiate 

# the first entity if it instantiates any entities. Likewise for the 

third. , . last . 

# entites. The last module returned will be the top level in the heirarchy. 

# 

# The value of the hash is a comma separated string of entities that are 
instantiated 

# within the hash. 

# V$^pInstantiation„Hash{a} = "first module instantiated in a, second module 
instantiated in a, 

# last module instantiated in a" 

# ©keys is an array of all entity names that should be ordered. 

##############################################################################^ 
# 

sub Order_Entities 
{ 

my ($pInstantiation_Hash,@keys) = @_; 
my @return_array; 

my $already_declared = "module already declared" ; 

#There is no way that we can confuse "module already declared" with a 
verilog module neime 

#module is a key word and no spaces are allowed in module names. 

for each $key (@keys) 
{ 

if ($$pInstantiation_Hash{$key} eq $already_declared) 
{ 

#wam "$key already declaredXn" ; 
next ; 

} 

if ($$pInstantiation_Hash{$key} ne "") 
{ 

my $value = $$pInstantiation_Hash{$key} ; 
$value =- s/\,\s*$//; 
push ( @r e turn_ar ray , 

&Order_Entities ($pInstantiation_Hash, 
split ( /\s*\ , \s*/s , $value) 
) 

) 

#now everything on which $key is dependant has been declared 
#so its safe to declare it. 
push {@return_array, $key) ; 

$$pInstantiation_Hash{$key} = $already_declared; 

} 



return (@retum_array) ; 

} 
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sub V2VHD„Index 
{ 

my {$string) = @„; 

#If a variable has two vector indecies, the second one takes precedence, 
while ($string =~ s/ (\ [ ['^M ] *\] \s*) (\ [ . *?\] ) /$2/s) { ; ) 
while ($string s | (.*) \ [(.*?) \ ](.*) | $1 | s) 
{ 

my $rest = $3 ; 
#warn "found $2\n"; 
$GLOBAL_DEBUG = 1; 

$string .= &:Vector_Order ( split ( /\s*\ : \s*/s, $2 ) ) ; 
$GLOBAL_DEBUG = 0; 
$string .= $rest; 

} 

return ($string) ; 

} 

############################################################################### 
# 

# Declare Entity 
# 

# Takes a module_name, \%Port_Ijist , \%Parameter_List and 

# returns a string that contains a vhdl ready entity declaration 
# 

sub Declare_Entity 
{ 

my ($module_name, $pPort_List, $pParameter_List) = @_; . 

my $entity_declaration .= "ENTITY $module_name IS\n" ; 

my @Parameter_Array = sort (keys ( %$pParameter_List )) ; 

if (@Parameter_Array) 

{ 

$entity_declaration . =" GENERIC \ { \n" ; 
foreach $parameter (@Parameter_Array) 
{ 

my $Parameter_String = " $parameter 
: " . $$pParameter__List{$parameter} . " ; \n" ; 

$entity_declaration . = $Parameter_String; 

} 

$entity_declaration s/\ ; \n$/\n/s ; #Get rid of last semi -colon. 
$entity_declaration \);\n"; 

} 



my @Port_Array = sort (keys (%$pPort_List) ) ; 

if (@Port_Array) 

{ 

$entity_declaration .=" PORT \(\n"; 

foreach $port (@Port__Array) 

{ 

$tmp = $Port_Iiist{$port} . "\n" ; 

#$entity_declaration .= $tmp; #$Port_Iiist { $port } ."\n"; 
$entity_declaration .= " " . $$pPort_List { $port } . " \ ; \n" ; 

} 

$entity_declaration =- s/ ( . * ) \ ; /$l/s; 
Sentity_declaration .= " );\n"; 

} 

$enti ty_declarat ion . = " END $module_name ; \n\n" ; 



return ( $entity_de clar at ion) ; 

} 

############################################################################### 
# 

# Get_Library„Declaration 
# 

# Very simple for now, may get more complicated later 

sub Get_Library_Declaration 
{ 

my ( $architecture_block) = @_; 

my $library„declaration = 
"LIBRARY ieee;\n" 

. "use ieee . std_logic_1164 . all ; \n" 
."use ieee . std_logic_arith. all; \n" 

. "use ieee . std_logic_unsigned. all ; \n" ; 

$library_declaration . "\nlibrary std; \nuse std. textio . all ; \n" 
if ( $architecture_block =- / \bwrite\ ( / ) ; 

return ( $library_declaration) ; 

} 

sub V2VHD_Files 
{ 

my ($Verilog_String, $Destination_Directory, @f iles) = @_; 

my (@Files_To_Synthesize) ; 

my (@Do_Not_Synthesize_These) ; 

#warn "vs = $Verilog_String, dd is $Destination_Directory , files are 
@files\n" ; 

my $COPYRIGHT_NOTICE= 
"--Copyright (C) 1991-2000 Altera Corporation 

--Any megaf unction design, and related net list (encrypted or decrypted) , 
--support information, device programming or simulation file, and any other 
— associated documentation or information provided by Altera or a partner 
— under Altera *s Megaf unction Partnership Program may be used only to 
--progrcim PLD devices (but not masked PLD devices) from Altera. Any other 
— use of such megaf unction design, net list, support information, device 
--programming or simulation file, or any other related documentation or 
— information is prohibited for any other purpose, including, but not 
--limited to modification, reverse engineering, de-compiling, or use with 
--any other silicon devices, unless such use is explicitly licensed under 
--a separate agreement with Altera or a megaf \anction partner. Title to 
— the intellectual property, including patents, copyrights, trademarks, 
--trade secrets, or maskworks, embodied in any such megafunction design, 
--net list, support information, device programming or simulation file, or 
--any other related documentation or information provided by Altera or a 
— megafunction partner, remains with Altera, the megafunction partner, or 
--their respective licensors. No other licenses, including any licenses 
--needed under any third party's intellectual property, are provided herein. 

n . 
f 

my %Module_Indexed_Port_Names ; 

my %Module_Indexed_Port_Width; 

my %Module_Indexed_Parameter_Values ; 

my %Component_List ; 

my %Additional_Files; 

#wam "mipn pointer is " . \%Module_Indexed_Port_Names . " \n" ; 
my $Top_Wrapper_NcLme = "Top_Level_$Top_Level_Module_Name'' ; 



$Destination_Directory tr|\\l\/|; 
$Destination_Directory s/'^Xs* ( . *? ) \s*$/$l/ ; 
$Destination_Directory =~ s/^ { .*) ; 

5 foreach $pass (1,2) 

{ 

warn "VERIIiOG TO VHDL CONVERSION: " . ficdate_time . " PASS $pass\n" ; 

foreach $file (©files) 

{ 

10 $file tr|\\|\/| ; 

my $vhdl_file = $file; 

$vhdl_file s/^ ,*\/ { $/$l/s; # Crush path, so that files in 
#warn "vhdl file is $vhdl_f ile\n" ; 

# different directories end up in the same place. 
15 $vhdl„file =- s/(.*)\. {.*?)$/$!/; #Crush all after last "." 

my $extension = $2; 

my $vhdl_innards ; 
if ($extension =- /'^vhd/i) 
20 { 

warn "VERILOG TO VHDL CONVERSION: " . &:date_time . 
" leaving vhdl file {$file) alone. \n"; 

} 

else 

^5 { 

$vhdl_file = "$Destination_Directoiry\/$vhdl_f ile\ .vhd" ; 
S warn "VERILOG TO VHDL CONVERSION: " . &date_time . " SCANNING $file 

\n";# TO $vhdl_file.\n"; 

C30 $vhdl_innards = ScV2VHD ( $Verilog_String , 

$file, 

Q $pass, 

yl \ %Module_Indexed__Port_Width, 

„ \%Module_Indexed_Port_Names , 

^35 \%Module_Indexed_Parameter_Values , 

^ \%Component_List) ; 

if ($pass ==2) 
□40 { 

M= # If there is nothing in vhdl_innards copy the verilog file 

directly. It will get used later in quartus . 

# otherwise, make a vhdl file. No need to copy the verilog file if 
the output directory 
45 # is " . " . 

if { $vhdl_innards =~ /^\s*$/s) 
{ 

#Orion, debug this. 

if (0) # ($Destination_Directory ne " . " ) ) 
50 { 

open (SRCFILE, "< $file") || die "FILE ERROR! CAN NOT OPEN 

$file $ ! \n" ; 

my $Dest__File = " $Destination_Directory\ / $f ile" ; 

open (DESTFILE, "> $Dest_File") || die "FILE ERROR! CAN NOT 
55 OPEN $Dest_File $ ! \n" ; 

while (<SRCFILE>) 
{ 

print DESTFILE $_; 

} 

60 close (SRCFILE) ; 

close (DESTFILE) ; 

print "COPIED $file TO $Destination_Directory\n" ; 

} 



} 

else 
{ 

open (DESTFILE, "> $vhdl_f ile" ) || die "FILE ERROR! CAN NOT 
5 OPEN $vhdl_file $!\n"; 

print DESTFILE " $COPYRIGHT_NOTICE" ; 
print DESTFILE " $vhdl_innards " ; 
close (DESTFILE) ; 

warn "VERILOG TO VHDL CONVERSION: " . &date_tiine . " CONVERTED 
10 $file TO \n".{" "x60) . "$vhdl_file\n" ; 

push {@Files_To_Synthesize, $vhdl_f ile) ; 

} 

} 

} 

15 } 

return (@Files_To_Synthesize) ; 

} 

sub V_TCL2VHD_TCL 

20 { 

my ($Destination__Directory,@f iles) = @_; 

foreach $file (@files) 

{ 

open (TCL, "< $file") || die "FILE ERROR! CAN NOT OPEN $file $ ! \n" ; 
25 my $tcl_file = $file; 

2 $tcl_file = $file; 

^ $tcl_file =- s/ ( ,*) \.tcl/$l\_vhd\.tcl/; 

^ $tcl_file = "$Destination_Directory\/$tcl_f ile" ; 

open {TCL_VHD,"> $tcl_file") || die "FILE ERROR! CAN NOT OPEN $tcl_file 

^ 30 $!\n"; 

while (<TCL>) 

Q { 

yl chomp; 

while (s/\ .v(\W) /\ .vhd$l/) { ; } 
i-j 35 s/\.tcl/_vhd.tcl/g; 

#s/'" (\s*set_clock\s+\-port\s+\-name\s+) (\S+) ( . *) / $1$2 \ (0\) $3 / ; 
print TCL_VHD "$_\n"; 

} 

close TCL; 
40 close TCL_VHD; 
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# Do not forget the 1 at the end of a pm file 
1 



vpp .pm 



# \ //c/perl/bin/perl .exe 

$GLOBAL_C0PYRIGHT_NOTICE=«END_OF_C0PYRIGHT_STRING ; 
//Copyright (C) 1991-2001 Altera Corporation 

//Any megafunction design, and related net list (encrypted or decrypted), 
//support information, device programming or simulation file, and any other 
//associated documentation or information provided by Altera or a partner 
//under Altera 's Megafunction Partnership Program may be used only to 
//program PLD devices (but not masked PLD devices) from Altera. Any other 
//use of such megafunction design, net list, support information, device 
//programming or simulation file, or any other related documentation or 
//information is prohibited for any other purpose, including, but not 
//limited to modification, reverse engineering, de-compiling, or use with 
//any other silicon devices, unless such use is explicitly licensed under 
//a separate agreement with Altera or a megafunction partner. Title to 
//the intellectual property, including patents, copyrights, trademarks, 
//trade secrets, or maskworks, embodied in any such megafunction design, 
//net list, support information, device programming or simulation file, or 
/ /any other related dociomentation or information provided by Altera or a 
//megafunction partner, remains with Altera, the megafunction partner, or 
//their respective licensors. No other licenses, including any licenses 
//needed under any third party's intellectual property, are provided herein. 
//Copying or modifying any file, or portion thereof, to which this notice 
//is attached violates this copyright. 
END_OF_COPYRIGHT_STRING 



# 

# Veriiog Pre-processor . 
# 

# Giving you the power of the Perl language from withm your 

# Veriiog source file. 
# 

# Any text between /*{ - }*/ pairs will be treated as a Perl expression. 

# You may put any Perl code in there that you like. You may define variables 

# and call functions. You may even define your own Perl functions, 

# then call them. 
# 

^ **************** FILE GENERATION & USAGE **************** 
# 

# In a DOS box, you invoke vpp, like any other Perl program, by typing 

# "perl vpp.pl <arguments>" . Here's the whole usage story: 



# 

# Usage : 

# perl vpp.pl [-D <dest-dir-name>] 

# [-P <output-f ile-name-pref ix> ] 

# [-li <lib-dest-f ile-name> 3 

# [-X <f orced-output-f ilename-extension> ] 

# [<global-perl-var-name>=<var-value>] . . . 

# <source_f ile> [, source_f ile] . . . 



# 

# ** <source_f ile> arguments: 
# 

# Every source file you list will be given the /*{ - }*/ perl-expansion 

# treatment, and a corresponding pre-processed output file of the 

# same name, with the prefix "GENERATED." , will be produced in the 

# output directory. Unless you specifically say otherwise, the 

# output directory will be "./GENERATED/" 



# ** -D <dest-dir-naine> argument (optional) : 
# 

# As -mentioned above, vpp will automatically output the pre-processed 

# files to the directory ./GENERATED/ by default. You can specify another 

# directory using the -D argument. 
# 

# ** _p <dest-dir-name> argument (optional) : 
# 

# For each source file processed, vpp will create (generate) a processed 

# output file (emitted into the destination directory, per -D above) . 

# But what is the output file named? By default, it gets the name 

# of the original source file, with the prefix "GENERATED_" added. 

# Thus, by default, Vpp transforms the file "foo.v" into the file 

# " GENERATED /GENERATED_f oo, v" . If you want some other prefix, you 

# can set it with the -P argument. The prefix (dash) is magic, 

# and is interpreted as: "keep your stinking prefix away from my file." 
# 

# ** -L <lib-dest-f ile-name> (optional) : 
# 

# The arg\iment sets the generated "library" output file. In the 

# course of doing their work, some vpp generator-functions actually 

# -create- modules (&Mux does, for example) . These modules need to 

# live in a file somewhere. This argument tells vpp where to put 

# automatically-generated "library" modules. This argument is 

# optional. If you don't specify, all auto-generated modules will 

# be emitted to a file named " genera t ed_vpp_modules .v" in the 

# destination-directory. 
# 

# _x <forced-output-f ilename-extension> (optional) : 
# 

# If, for example, you were reading-in a bunch of files with 

# the extension ".vpp" (e.g. "my_litte_pony . vpp" ) , and you wanted 

# to generate a bunch of like-named files with the extension 

# ".V" (e.g. --> "my_little_pony .V" ) , you would just say "-X v" on 

# the command line. I think that's about all there is to it. 

# ALL output files will be coerced to have this extension. 

# ** <global-perl-var-name>=<var-value> arguments (optional) : 
# 

# Vpp is all about parametric / conditional verilog generation. 

# The Vpp sources themselves contain a good deal of Perl code. 

# The Perl code in the source files is often "controlled" by a 

# set of global variables that can be thought of as "parameters." 

# For example, a single Perl variable called "$DELTA__32" controls 

# whether the Delta CPU core is built as a 32-bit machine ( $DELTA_32=1) 

# or as a 16-bit machine ( $DELTA„32=0 ) . One way to set this variable is 

# to place a line at the top of the "delta. v" source file itself. This 

# works, but it means you actually have to go in and edit a line in the 

# source file to build the "other flavor" of CPU. 
# 

# In general and often, you want to build a piece of hardware either 

# "this-a-way" or " that-a-way" , as-controlled by a Perl variable 

# "at the top of the file" (e.g. $WAY=" this-a" or $WAY=" that-a" ) . 

# Vpp lets you set Perl variables, visible to stuff inside your 

# embedded Perl code, right on the Vpp command line. This lets 

# you parametrically-generate the output by running Vpp with 

# different command line args . Can I stop explaining this now? You 

# must surely get it. (This is just like setting pre-processor 

# macros on the command-line of your C-compiler) . 
# 

# You may set as many Perl variables on the command line as you 

# like, or none at all. 



# 

# NOTE: argment ordering — setting variables vs. source files. 

# In general, all Perl-variable-setting arguments should come -before- 

# the source-file arguments. 
# 

# **************** vpp: CONCEPTUAL INTRODUCTION **************** 

# 

# In principle, you can start a Verilog file with "/*{", write your entire 

# chip in Perl, and end it with a "}*/". I've written a variety of 

# reasonably-sophisticated (and hopefully-useful) Perl functions that manage 

# much of the drudgery of Verilog coding. I've used them to create a 

# working SOKGate design (-3000 ecjuivalent Verilog lines) which is 

# 95% Perl and 5% naked Verilog. But before we get to the fancy predefined 

# "generator" functions, let's first cover the basics. 
# 

# > Perl code that GENERATES Verilog < 

# 

# Your encapsulated Perl code ultimately "does something" by PRINTING into 

# the OUTPUT FILE (the output file is the result of the pre-processor ) . 

# Any explicit "print" statements in the embedded Perl code emit their results 

# into the output file. [But, as you shall see later, directly using the 

# built-in Perl "print" funcition is seldom necessary, and is f rowned-upon] . 
# 

# For some simple tasks (like Perl-based "'define constants"), 

# explicitly printing things from your Perl code can be awkward. The following 

# reference to the Perl variable $my_bus_width works, but. is certainly awkward: 
# 

# wire [({/*{ print " $my_bus_width" ; }*/) - 1) : 0] my_bus; 
# 

# In such cases it's convenient to dispense with the explicit "print" 

# statement. Thus, vpp _sometimes_ automatically prints the final 

# "return value" of the embedded Perl expression so you don't have to 

# type "print" before every single thing you do. (I'll explain the _sometimes_ 

# rules later) . 
# 

# Thus, the preceding example could be more compactly written as: 
# 

# wire [((/*{ Smy_bus_width }*/) - 1) : 0] my_bus ; 
# 

# Just as an aside, the preferred way to write that statement in vpp is; 
# 

# wire /*{&:W( $my_bus_width ))*/ my_bus; 
# 

# (The predefined "ScWO" function is discussed in some detail below) . 

# Because the evaluated results of Perl expressions are emitted directly 

# into the Verilog output, vpp can (if you like) supercede all the 

# funcitonality of Verilog 's native, lame ' define -macros . In particular, 

# vpp allows you to compute (gasp!) constant -values with arbitrarily-complex 

# mathematics. Perl (being a real programming language) supports things like 

# logarithms, which are conspicuous by their absence in Verilog. 

# Here's an example to give you a taste: 
# 

# /*{ 

# $ADDRESS_BITS = &BitS_To_Encode ( $MAX_ADDRESS) ; 

# }*/ 

# wire /*{ &W($ADDRESS_BITS) }*/ address_bus; 
# 

# And, yes, the " 5cBits_To_Encode " function is predefined for you, and 

# documented below. And, because this is all just Perl, you're free 

# to define your own functions just like " &Bits_To_Encode" which implement 

# arbitrarily- complex math, right up to cosines. 
# 

# > Five ways to emit Verilog < 



# 

# Here are the five ways you can generate Verilog statements from 

# embedded Perl (details follow) : 
# 

# 1) Type any Perl expression. The result „sometimes_ gets printed. 
# 

# 2) Use a "print" statement (discouraged) . 

# 3) Use the "&Vprint" function (better) . 

# 4) Use the — (dash-dash) embedded-Verilog-literal syntax (best) . 

# . 

# 5) Call a Perl function (user-defined or pre-defined) which internally 

# uses one of the above four methods . 
# 

# *★** i_ Emitting Simple Perl Expressions. 

# . ^ 

# Often, you just want the value of a Perl variable (or expression) to 

# get emitted into the pre-processed output. This is the default behavior 

# for any embedded Perl: The ultimate "return-value" of the entire 

# embedded expression gets written into the output file. Often, 

# this is exactly what you weint, like this: 
# 

# wire /*{ $my_computed__wire_name }*/; 
# 

# But consider what happens when you *set* (as opposed to *use*) a 

# Perl variable: 
# 

# /*{ $my_computed_wire„name - $module_name . ''_$i"; )*/ 

# In this example, I am building-up a perl variable (a name in a loop) 

# that I'll use later. Unfortunately, the expression I typed does 

# have a value (the string -value assigned to $my_wire_name) . Because 

# vpp just emits the "return value" of whatever perl expression you 

# type, the wire name you computed gets emitted directly into the output 

# Verilog file, right there where you only wanted to set a variable. 

# Surely not what you wanted. Another example is even 

# more heinous. Suppose you defined these constants at the top of your file: 
# 

# /*{ $data_bus_width =16; 

# $address_bus_width = 24; 

# }*/ 
# 

# The "return-value" of this embedded expression is 24, so vpp will emit 

# a naked "24" at this point right into your Verilog output file--and 

# a naked "24" (outside any module, on a line by itself) is not a valid 

# Verilog statement. Instant syntax- error . 
# 

# So. There needs to be some way to tell vpp when you want the return-value 

# of your expression printed, and when you don't. There are two ways. Here 

# are the rules: 
# 

# *.The return value of any Perl expression is emitted *unless* : 
# 

# 1) The embedded Perl expression started with "/*{q" 

# (note the 'q', for "quiet"). 
# 

# 2) The embedded Perl expression started with "/*{" on a line 

# by itself. 
# 

# So, to fix the above heinous "data_bus_width" example, we'd just do this: 
# 

# /*{ 



# $data_bus_width = 16; 

# $address_bus_width = 24; 

# }*/ 
# 

# The opening "/*{", on a line by itself, tells vpp that the following 

# Perl expression is probably some sort of mini -program ( lines-o-code) 

# (as opposed to a quick reference to a variable) , and that the 

# final return-result should not automatically be printed. You are, of 

# course, free to *explicitly* print things from such an embedded 

# statement using one of the other methods 2.. 5, but now the choice is yours. 
# 

# **** 2. Calling the "print" Perl facility directly 
# 

# As I've said to the point of tedium, the output of any "print" statement 

# in the embedded Perl gets sent directly into the pre-processor output. 

# Note that vpp uses funny internal Perl magic to re-direct the "print" 

# output to the pre-processor output file instead of STDOUT. You, the 

# user, do not need to (and should not) give a filehandle to your 

# "print" statements (iinless you're Perl program internally uses 

# files for some purpose, which would certainly be twisted) . 
# 

# If you use "print," the result will be correct but not pretty. 

# The indentation of the printed text will probably be wrong, and 

# there will be no indication of where the printed text came from. 
I # In other words, using "print" directly is functional, but not 

# pretty. The pre-processor output file will be hard to look at if you 

# use a lot of direct "print" statements. And there's not much of a reason 

# to use "print" directly because vpp gives you: 
# 

) # **★* 3. The built-in ficVprint function 
# 

# If you want to directly emit text into the pre-processor output, 

# the ScVprint function formats it nicely so the output file is easier 

# to look at. In particular, the text is printed with a starting left- 
5 # margin set by the Perl expression's opening "/*{". This indentation 

# makes a huge readability difference. 

# Secondly, each hunk-o-text emitted by ScVprint is preceded by an 

# expression-number comment. This tells you *which* Perl expression 
0 # generated the resultant text. This may seem silly, but it ends up 

# really saving the day. When there's a syntax error in a b\inch of generated 

# code (that you didn't type, and may never have seen before), the 

# first ciuestion is usually "where did all this shit come from?" It's 

# really handy if there's a juxtaposed comment that tells you which 
45 # expression generated the code . 

# 

# All the original Perl expressions passed along into the pre-processor 

# output (still hidden from Verilog by /*C - >*/ comment-pairs) . Each one 

# is recognized (of course) and given a unique number, which happens to 
50 # be the line number on which it started. That expression number 

# is re-emitted as a /* - */ comment (with indentation) before every 

# output from &Vprint . This makes it very easy to track-down 

# the original Perl code when errors occur. That all sounds complicated, 

# but it's actually pretty simple. Let me give you an example of what 
55 # you'd see in the preprocessed output file if you use &Vprint: 

# (This is a real example, cut-and-pasted directy from a vpp-generated 

# file) : 
# 

# /*{ —67—: 

60 # # Altera gives you this one-bit "TRI" module for tri-stating 

# # signals. Great, but I need 16 of them. It ' s a good thing I'm 

# # writing this in Perl where I have loops (Iterated Verilog instances 

# # don't work in Quartus) . 



# for (my $i = 0; $i < $uP„DATA_BITS ; 

# { 

# — TRI Data_Bus_Buf f er_$i ( 

# -- .oe (do_drive_data_bus) , 

# — .in {uP_DATA_out [$i ]), 

# — .out (uP„DATA [$i 1) 

# — ) ? 

# } }*/ 

# /* 67 */ TRI Data„Bus_Buf fer_0 ( 

# /*67*/ -oe {do_drive_data_bus) , 

# /* 67 */ .in (uP_DATA_out [0 ]), 

# /* 67 */ .out (uP_DATA [0 ]) 

# /* 67 */ ) ; 

# /* 67 */ TRI Data_Bus_Buf f er_l ( 

# /* 67 */ .oe {do„drive_data_bus) , 

# /* 67 */ .in (uP_DATA_out [1 ]), 

# /* 67 */ .out (uP_DATA [1 ]) 

# /* 67 */ ) ; 
# 

# ... omitted for brevity (2 - 14) ... 
# 

# /* 67 */ TRI Data_Bus_Buf f er„15 ( 

# /*67*/ .oe (do_drive_data__bus) , 

# /* 67 */ -in {uP_DATA_out [15 ]), 

# /* 67 */ .out (uP_DATA [15 ]) 

# /* 67 */ ) ; 
# 

# There you can see the original Perl expression, which has been 

# given a number {"—67—:", inserted by vpp) , and all the Verilog code 

# it generated. Each line is preceded by a /* 67 */ to indicate where 

# it came from, and that it was, in fact, generated, 
# 

# "But wait," I hear you stridently object, "I can see the original 

# Perl expression, and there's not a single call to ' &Vprint ' anywhere 

# in there!" Well, yes. You're right, of course. In practice, no one 

# ever actually calls &Vprint because of the glorious "~" (dash-dash) 

# Verilog-literal syntax. Let me tell you all about it. 
# 

**** 3, The (dash-dash) Verilog-literal syntax. 

# Because your embedded Perl expressions are, after all, only there 

# to print Verilog, vpp gives you a super-quick shorthand for 

# generating a line of verilog. Any line which starts with 

# (two dashes, pre- and post -white space ignored) is taken as a line of 

# Verilog to be printed, after variable expansion (interpolation), into 

# the pre-processor 's output. This syntax is line-based: Anything 

# on the line after a leading " will get printed, semicolon 

# and all, as double -quo ted text. You get a free newline, so you 

# are relieved of ending all your Verilog lines with an expicit "Xn". 

# All of which adds up to a very tidy way to generate Verilog code 

# from within Perl, perfectly illustrated by the above example. 

# Now it may strike you as odd that vpp provides you with a way of 

# embedding Perl within Verilog, and then builds a whole new 

# mechanism for embedding Verilog in the Perl, which is itself embedded 

# in Verilog. The obvious question: "Why not just type the stinkin' 

# Verilog in the first place, and do away with the Perl altogether?" Good 

# question. Easy answer: Variable-interpolation (and, to a lesser 

# extent, repetition (looping)). If Perl $-variables were not interpolated 

# into the " — " - embedded Verilog, the whole exercise would, in fact, 

# be totally pointless. But, of course, Perl $ -variables *are* interpolated 

# (according to Perl's double-quoted-string substitution rules). And I 

# shouldn't have to tell you how valuable that is. This gives 



# you the power to generate fully-parametric Verilog source code. 

# Verilog* s lack of VHDL's ad-hoc, limited "generate" syntax is now completely 

# filled -- and not with some limited, abominable kludge, but with a 

# complete, real, documented, and familiar programming language. 
5 # 

# Just FYI, the " — " dash-dash syntax is really just a shorthand for 

# passing the remainder of the line (as a double-cjuoted string with a 

# newline stuck on the end) as an argument to &Vprint . You could, 

# of course, call &Vprint explicitly, but the function name, parenthesis, 
10 # and quotation marks are quite a lot of overhead, and end up being 

# distracting. The results would be the same, but the " — " -trick makes 

# the original source much more readable, easier to type, and harder 

# to screw up. 
# 

15 # With what I've shown you so far, you can completely replace Verilog 's 

# pathetic -define-macros, and have access to a fully-featured "generate" 

# utility that kicks ass on the thing in VHDL. This is where a 

# traditional pre-processor would leave you standing at the bus 

# stop. But I'm going to give you the whole ride. 
20 # 

# 

^ *****★**★*★★*★★* ADVANCED STUFF **************** 

# Vpp (and an associated file, "Generator_Functions . v" ) give you a 
:^25 # pre-built library of Perl functions, intended to ease your Verilog 

^ # programming task. You are free, of course, to use as much or as little 

™ # of this library as you like. Better still, you are free to expand 

^ # the library to fill whatever deficiencies you imagine. 

to # 

E30 # I) ELIMINATING DRUDGERY: Port lists. 

O # Complex Verilog designs contain a lot of redundant information. The poor 

^ # programmer frequently has to type and re-type the same names, numbers, 

# etc. without error. Designs which follow consistent coding guidelines 
L35 # are especially redundant. Let me give you an example: Some module "foo", 
y # with a few inputs and outputs, which is instantiated by "bar:" 

M= # module foo (in_l, in_2 , in_3 , out_l, out_2) ; 

flj # input in_li 

O40 # input [1:0] in_2 

lI # input [2:0] in_3 

# output out_l; 

# output [1:0] out_2; 
# 

45 # Contents -- 

# endmodule 
# 
# 

# module bar ( . . .bar ' s args . . . ) ; 
50 # ..definition of bar's args... 

# 

# // Instantiate "foo" 

# // But first, declare all the connection wires: 

# wire in_l ; 
55 # wire [1:0] in_2 ; 

# wire [2:0] in_3 , 

# wire out__l ; 

# wire [1:0] out_2 ; 
# 

60 # foo The_Foo ( 

# .inl (inl) , 

# .in2 (in2) , 

# . in3 (in3) , 



# .outl (outl) , 

# .out2 (out2) 

# ) ; 

# endmodule 
# 

# Notice that you, the user, had to type "in_l" correctly, with the correct 

# width, no fewer than five (5) times. And typical designs are even worse 

# than this trivial example, because many of f oo • s ports are passed through 

# bar's ports, to whomever is instantiating bar, and so on. Thus the 

# plumbing-chore of adding another input (say, "in_4") to foo can be 

# a reasonably-big hassle, and an opportunity for error. 
# 

# Wouldn't it be great if there were some way to state, in one neat, 

# self-contained place, "here are the names of f oo ' s ports, their widths, and 

# directions". Then, later, refer to them as a group? Yes, it is great. 
# 

$VPP„PROJECT_ID_HASHCODE = ' #_d-+@@ 1 --&&n== [ [ ) {*#\$)*{) {*$\#$\.ars' ; 
$VPP_COPYRIGHT_WARNING_STRING = 

"Warning--see copyright notice: ( $VPP_PROJECT_ID_HASHCODE) " ; 

################################################################ 

# goldfish & ribbit 
# 

# It would be very nice to have the Perl library functions 

# "carp" and "croak", which are defined in the module "carp.pm" 
# 

# Sadly, including standard Perl libraries in a plat form- independent 

# way is tricky. Aaron's solution: Write our own "carp" and "croak" 

# functions, and give them silly names: 
sub goldfish 
{ 

my {$msg) = @_; 

# Grab info about the caller of my caller, 
my ( $package, Sfilencime, $line) = caller(l); 
die "$filename line $line: 'Smsg'Xn"; 

} 

sub ribbit 
{ 

my ($msg) = @_; 

# Grab info about the caller of my caller. 
my($package, $filencime, $line) = caller{l); 

45 die "$filename line $line: '$msg'\n"; 

} 

################################################################ 
50 # Strip_Perl„Comments {$expr) 
# 

# Takes a string, which might be a multi-line Perl expression. 

# For some reason, the Perl "eval" function is too lame to ignore 

# comments embedded in the eval-expressoin . Fine. We'll strip 
55 # the comments so it doesn't have to. 

# 

################################################################ 

sub Strip„Perl„Comments 

{ 

60 my $expr; 

my @ lines ; 
my $ s t r ipp e d_expr ; 
($expr) = ; 



©lines = split {/\n/, $expr) ; 

$stripped_expr = 
5 foreach (@lines) 

{ 

$strlpped_expr .= "\n", next if /^\#/; 
s/^{,*?) [^\\] \#. *$/$!/; 
$stripped_expr .= "$_\n"; 

10 } 

return $stripped_expr ; 

} 

################################################################ 
15 # Strip_Verilog_Comments ($expr) 

# Takes a string, which might be a multi-line Verilog expression. 

# Strips out all the "//" comments. 

20 ###################################*^*#*####**##*##************** 
$global_strip_mode = "normal"; 
sub Strip_Verilog_Comments 
{ 

my $expr; 
C25 {$expr) = (@_) ; 

m tny $stripped_expr ; 

^ $stripped_expr = 

H30 my ©lines; 

©lines = split (/\n/, $expr) ; 

Q 

m foreach $line (©lines) 

- { 

q35 $line = s/'^( .*?) \/\/. *$/$!/; 

^ $stripped_expr .= "$line\n"; 

il > 

return $stripped_expr ; 



040 



} 



################################################################ 

# Expand_Literal_Verilog_Iiines 
# 

# When you're auto-generating Verilog in a Perl statement, it's 

45 # really important to be able to emit lines of Verilog code without 

# turning it into a federal case. 
# 

# We've made it pretty easy by just declaring that anything you 

# print (using "print" or &Vprint) gets emitted into the Verilog file. Pretty 
50 # easy, but not easy enough. 

# 

# It ends up being awkward to write a block of verilog code 

# by starting every line with: 
# 

55 # ficVprint ( " 

# 

# and ending every line with: 
# 

# \n"); 

60 # 

# In particular, it's easy to forget and hard to read. 
# 

# So, to make Verilog code generation even easier, we declare that 



# any line in a Perl expression that starts with two dashes (" — ") 

# is a line of Verilog, and the two dashes are interpreted as a 

# shorthand for "print the rest of this line into the Verilog file." 
# 

# This is accomplished by literally replacing ' — ' with • &Vprint ( " ' 

# (at the beginning of lines) , and ending such lines with an 

# automatic * \n" ) ; ' . 
# 

# This definitely falls under the category of syntactical sugar. But it 

# sure is sweet . 
# 

# One other nit: If a '#' character appears in the line, 

# backslash it. This is because '#' is a legitimate Verilog character, 

# and we later go out of our way to strip-out '#' - delimited Perl comments 

# unless they're preceded by '\' 
# 

# DANGER: Conflict with vaild Perl syntax. 
# 

# Mostly, in Perl progrcims, you don't start lines with the 

# character string " — Mostly. Unless, of course, you're 

# pre-decrementing a value: 
# 

# $i = 37; 

# while ($i) 

# — $i; 
# 

# All X can say is: Don't pre-decrement things at the beginning of lines. 

# and, if you really must, I can select a different Verilog-literal 

# marker sequence. Don't hold your breath. 
# 

# Orion has selected a different Verilog-literal marker sequence, but the old 

# one still works as well. Because emacs doesn't tabulate comments 

# (i.e. perl code) in verilog mode well. I've added understainding of 

# "b{" and "e}". When alone on a line, these two get translated into "begin" 

# and "end" respectively. Perl-mode also doesn't understand — as perl code. 

# it thinks its pre-decrement and the tabs get screwed up as a result. My 

# new Verilog marker is " . perl mode in emacs does the right thing with 

n tt 
#~ 

# One other hack (this is starting to get dirty) : 

# lines that start with " — >" don't count. If you want to emit a Verilog 

# line that starts with ">", you have to say: " — >" . Note the extra space. 

# We special-case "-->" because we've gone and defined a tabular-data syntax 

# that encourages users to type this symbol. See "&Parse_Named_Arguments , " 

# below. 
# 

# 

################################################################ 

sub Expand_Iiiteral_Verilog_Ijines 

{ 

my $expr; 
my @lines; 
my $expanded_expr ; 
($expr) = (@_) ; 

@lines = split (/\n/, $expr) ; 

$expanded__expr = " " ; 
my $line_number = 0; 
foreach (@lines) 
{ 

# Special escape for dealing with lines that start with " — >" 
# (There's probably some way to do this in a single regexp. 



# but I t care) : 

my $is_verilog = 0; 

my $cLo_print_into_lib_f ile = 0; 
my $verilog_string = " " ; 

if ((•/'^Xs* — >/) && (!/''\s*< — /)) # — > or < — disqualifies it 
{ 

$is_verilog = /'^Xs*-- (L? )(.*)$/ ; 

$do_print_into_lib_f ile = ($1 eq "L" ) ; 
$verilog_string = $2; 

} 

if (/'^ (\s*)b(\s*) \{\s*$/) 
{ 

$is_verilog = 1; 

$verilog_string = $1.$2." begin"; 

) 

if (/'^(\s*)b(\s*)\{\s*$/) 
{ 

$is_verilog = 1; 

$verilog_string = $1 . $2 . " begin" ; 

} 

if (/^{\s*) \} (\s*)e\s*$/) 
C 

$is__verilog = 1; 

$verilog_string = $1 . $2 . " end" ; 

} 

if (/"(\s*)\_(\s+) (.*)$/) 
{ 

$is_verilog = 1; 

$verilog„string = $1.$2." ".$3; 

} 

$expanded_expr .= "$_\n", next if ! $is_verilog; 

# escape the character, so it doesn't get stripped-out as 
# a Perl comment : 

$verilog_string s/\#/\\\#/g; 

# Escape the quote-characer , because it foils our "surround 

# the string with quotes" strategy: 
$verilog_string =- s/\"/\\\"/g; 

# Escape the quote-characer, because it foils everything 
$verilog_string =- s/\'/\\\'/g; 

if ($do_print_into_lib_f ile) { 

$expanded_expr .= "ScLprint { \ " $verilog_string\\n\ " ) ;\n"; 
} else { 

$expanded_expr .= "ScVprint ( \ " $verilog_string\\n\ " ) ;\n"; 

} 

$line_number++ ; 

} 

return $expanded_expr ; 

} 

################################################################ 

# Build_Width_String 
# 

# If you have a wire that's 8 bits wide, you often need to get a 
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################################################################ 

# parse_ptf .pm 
# 

# A set of Perl subroutines for parsing and writing PTF-files. 
# 

# PTF-files used to be Imown as SDF-files. That's why these 

# sxibroutines all have "SDF" in thier names. 
# 

############################################################################### 
# 

# Parse_SDF_Files 
# 

# This takes an array of filenames that contain SDF data. It turns them into 

# an associative array so that the rest of perl can hack away. (I'm such a 
poet.) 

# 

# This function is used in: 

# mk__sy s t embus . p 1 
# 

############################################################################### 
# 

sub Parse_SDF„Files 
{ 

my $text_string = " " ; 

my $Top_Iievel = shift(©_); 

for each $ filename {@_) 

{ 

# print STDERR "Parse^SDF: Opening $f ilename , Xn" ; 

open (SDF, "<$f ilename" ) or die "can not open $filename: $!"; 

while (<SDF>) 

{ 

s/-(.*?)\#, *$/$!/; 

s/'^Xs + Z/g; 
s/\s+$//g; 

s/^\s*(.*)$/$l/; 
tr/\"//; 

$text_string . = $_. " \n" ; 

} 

close (SDF) ; 

} 

# Make some adjustments to normalize the text string: 

# * Put every statement (ending in " ; •* ) on a line by itself. 

# * Put every " { " or "}" on a line by itself. 

# . 

# This makes parsing easy and natural. We do this 

# by -first- stripping-out all the newlines 

# in the file, then adding them back in where we want them. 
# 

# NOTE: PARSING LIMITATION: 

# Your NAME=VALUE -VALUES cannot contain the characters : 

# ; { or } 

# Since VALUES are quoted, it would be possible to make 

# this parser handle these characters. Fine. You do it. 
# 

$text_string =- s/\s+/ /mg; 
$text_string =- s/\n+//mg; 
$text_string s/ \ ; / ; \n/mg; 
$text_string =- s/ \ { / \n\ { \n/mg; 



$text_string =- s/\ } /\n\ } \n/mg; 

my @tree = ( ) ; 

push ( @ tree , " $Top_Level " ) ; 

my $tree_path = 

xindef % PARAMETER; 
my % PARAMETER; 

foreach (split ( / \s* \n\s*/ , $text_string) ) 
{ 

$tree_path = join( ' : ' ,@tree) ; 
if (/-(['^\ = ]*)\ = \"?(["\"]*)\"?/) 
{ 

$PARAMETER{"$tree_path:$l"} = $2; 
$PARAMETER( "LEAF :$ tree J>ath" } .= "$!,"; 
my $ltp = $PARAMETER{"IiEAF:$tree_path"} ; 

} 

if (/\{/) 
{ 

$last_line s/'^Ns* ( . *?) \s*$/$l/ ; 
$PARAMETER{"LEAF: $tree_path" } .= "$last_line, " ; 
my $1 = $PARAMETER{"LEAF: $tree_path" } ; 

push (@tree, $last_line) ; 

} 

if (/\}/) 
{ 

pop (@tree) ; 

} 

$last_line = $_; 

} 

my $param_:ptr = { } ; 
%$param_ptr = % PARAMETER; 

return ($param_ptr) ; 

} 

############################################################################### 
# 

# sub Print_SDF_File takes PARAMETER list references 

# Prints out a . sdf file 
# 

# This function is used in: 

# my_systembus . pi 
# 

############################################################################### 
# 

sub Print_SDF_File 
{ 

my {$filename, $PARAMETER_ptr , $top_level , $suppress_comments) = @_; 
my %PARAMETER = %$PARAMETER_:ptr ; 

open (SDFOUT, "> $filename") or die "unable to open $filename, $!"; 
my $old_out = select (SDFOUT) ; 

&Print_SDF_Level ( $PARAMETER_ptr , $ top_level , $suppress_comments ) ; 
close (SDFOUT) ; 
select ($old_out) ; 

} 



############################################################################### 
# 

# sub Print_SDF_Level takes PARAMETER list references and $level. 

# Prints out a level in the sdf file. 

# "Level" means something that has parsimeters and/or other levels 

# underneath it. Level "foo" looks like: 
# 

# foo 

# { 



# something=" something_else" 

# something2=" something_else2 " 

# somethings =" some thing_e Is e3 " 

# another_level here 

# { 

# another_level_parameter="you get the idea" 

# } 



# } 
# 

# It tabs the whole level according to how many ":"s there 

# are in the path name . 
# 

# Print„SDF_Level is one of a continuing series of recursive/ 

# iterative functions by Orion Pritchard. If Print_SDF_Level 

# comes across another level (Conveniently called another_level 

# in the example above), it calls Print_SDF„Level on that level. 
# 

# This function is used in: 

# — internal to this file only — 
# 

############################################################################### 
# 

sub Print_SDF_Level 
{ 

my ($PARAMETER_ptr, $level, $suppress_comments) - 

my @level_list = split ( / \ : / , $level ) ; 

my $n\imber_of_tabs = (scalar (@level_list ) - 1) ; 

my $spacing = (" " x (4*$number_of_tabs) ) ; 

my ©leaves = (split ( /\ , / , $$PARAMETER_ptr { "LEAF : $level " ) ) } ; 

foreach $leaf (©leaves) 

{ 

my $p = $$PARAMETER_ptr { " $level : $leaf " } ; 

my $e = $$PARAMETER_ptr{ "EDIT: $ level :$ leaf "} ; 

$e = "\[EDIT\]" unless $e; 

if ($p ne "") 

C 

my $string = " $spacing$leaf =\ " $p\ " \ ; " ; 
print "$string"; 

#print ((" "x(60-$string_length) ) . "\# $e") if ! $suppress_comments ; 
print "\n"; 

} 

else 
{ 

print " $spacing$leaf \n" ; 
print " $ spac ing\ { \n " ; 

&Print_SDF_Level ( $PARAMETER_ptr , " $level : $leaf " ) ; 

} 

} 

my $out_string = " " x ( 4* ( $number_of_tabs-l ) ) . " \ } \n" ; 
print $out_string if ( $n\jmber_of_tabs > 0) ; 

} 



############################################################################### 
# 

# Add_SDF_Node adds a node to the tree /parameter . structure that 
parse /print_sdf_files 

# know so well. It adds the parameter value and also updates the LEAF 
value ( s ) . 

# Add_SDF_Node is smart enough to add heirarchy if its needed. 

# e.g. 

# &Add_SDF_Node(\%PList, "a:b:c:d = f oo" ) would ensure $$Plist { " a : b : c : d" } = foo 

# and also make sure that $$Plist { "LEAF : a" } includes b, "LEAF;a:b" includes c, 
etc . 

# 

# INPUTS 

# $parameter_list : the "pointer" to the list that add_SDF_node should add to. 

# $parameter: a string of the form "parameter = blerg" . 

# $options: "edit options", not required. 
# 

# 

# This function is used in: 

# mk_sys t embus . pi 

# v2vpp.pl 
# 

############################################################################### 
# 

sub Add_SDF„Node 
{ 

my ($parameter_list , $parameter, $options) = (@_) ; 

$options = "EDIT" if (l$options); 

$parameter =- s/^\s* (.*?)/ $1/ ; 

$parameter s/'^ ( . *? ) \s*$/$l/ ; 

$options s/^\s*(.*) /$!/; 

$options s/'^i .*?) \s*$/$l/; 

# print " \n\nAdd_SDF_Node , param, parameter , options are 
$param, $parameter, $options\n" ; 

#put the parameter in the heirarchy 

my ($parameter_lhs, $parameter_rhs) = split ( / \s*\ = \s* / , $parameter) ; 

# Don't let the user add null entries to the tree. It's just annoying: 

# return if $parameter_rhs eq " " ; 

$$parameter_list {$parameter_lhs} = $parameter_rhs ; 
$$parameter_list{ "EDIT: $parameter_lhs" } = $options; 

#put the leaf (ves) in the heirarchy. Only add 

#to leaf value if path has not been declared before. 

#Iterate over all levels in the path. 

my ©path = split (/ \s* : \s*/ , $parameter_lhs) ; 

while ( scalar (©path) > 0) 

{ 

#leaf_rhs is equal to last value in parameter_lhs 

my {$leaf_rhs) = pop(@path) ; 

my ($leaf_lhs) = join{ ' : ' ,@path) ; 

#print STDERR "in While loop, path is @path, l_rhs is $leaf_rhs, l_lhs is 
$leaf_lhs\n" ; 

my $leaf_string = $ $parcLmeter_l is t { "LEAF :$ leaf _lhs "} ; 

if ($leaf_string /\b$leaf_rhs\b/ ) 

{ 

#print STDERR "leaf_string is $leaf_string, adding $leaf_rhs to 

melee\n" ; 



next if $leaf_rhs eq " " ; 



# Add a comma if the string exists, and it doesn't already end in a 

comma . 

# 

$$parameter_list{"IiEAF:$leaf_lhs"} .= 

if ($$parameter_list{ "LEAF: $leaf_llis" } ne ) && 

($$parameter_list{ "LEAF: $ leaf _lhs" } /\,$/ ) 

$$parameter_list{"LEAF:$leaf_lhs"} .= "$leaf_rhs" ; 
$leaf_string = $$parameter__list { "LEAF : $leaf_lhs" } ; 
#print STDERR "leaf_string now is $leaf_string\n" ; 

} 

} 

# 

# Get_All„SDF„Parameters_At__RegExp_Level 

# Recursively searches associative array %$pList for level indexes that match 

# $Reg_Expression, Starts at $Level , returns an array of a="b" if $Level 
matches 

# $Reg„Expression (or just a if a="a") . 

# $Reg_Expression defaults to /.*/ (match everything). 

# This function preserves the order of the values in the ptf file 
# 

# This function is used in: 

# mk_systembus . pi 

# 

sub Get_All„SDF_Parameters_At_RegExp_Level 
{ 

my ($pList, $Level, $Reg_Expression) = @„; 
my (©values) ; 

$Reg_Expression = "\.\*" if ( $Reg_Expression eq ""); 

#wam "GASPAREL $Level\n $Reg_Expression\n" ; 
my $list = $$pList{"LEAF:$Level"} ; 
foreach $entry (split ( / \s*\ , \s*/ , $list ) ) 

{ 

#warn "entry is $entry\n" ; 

if ($Level /$Reg_Expression/) 

{ 

#warn "entry matched reg_exp\n"; 

my $entry_value =$$pList { " $Level : $entry " } ; 

if ($entry eq $entry_value) 

{ 

push (©values, "$entry" ) ; 

} 

else 
{ 

push (©values, " $entry\=:$entry_value" ) ; 

} 

} 

else 
{ 

push (©values , &Get_All_SDF_Parameters_At_RegExp_Level ( $pList , 

" $Level : $entry " , 
$Reg_Expression) ) ; 

} 

} 

return (©values) ; 
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# 

# Add_SDF_Parameters 
# 



A simple subroutine to ease typing. You pass in the module name and a string 
^ of the form "parameterl 

$parameterl,parameter2=$parameter2 , parameters =$parameter3" . 

# If your parameters are global, you just need to pass the parameter name and 
10 # this function takes care of the rest. 

# 

# Sometimes, the user might want to specify the parameter string 

# on the Vpp command-line. In this case, it's important that the 

# parameter string not have any ecjuals-signs in it. To allow this, 

# this routine interprets the magic token " ecjuals — " as an equals-sign. 



# 

# This function is used in: 

# v2vpp . pi 



20 

# 

sub Add_SDF_Parameters 
^25 ^ my ($Module_Name, $parameter_string, $section_name) = (@_) ; 

$parameter__string =- s/ equals — / = /g; 

K $section_name = "PARAMETERS" unless $section_name ; 

O30 foreach $parameter (split (/ \s* , \s*/ , $parameter_string) ) 

g my ($lhs,$rhs) = split { / \s*\=\s*/ , $parameter) ; 

;=5 $rhs = eval("\$" .$lhs) if ($rhs eq " " ) ; 

" ' &Add_SDF_Node ( $TL , " : MODULE $Module_Name : $ sec t ion„name : $ lhs=$rhs " ) ; 

L 35 } 



1; # Modules need to say "Onel" 



45 



50 



55 



wiz_convert .pm 

################################################################ 

# wiz_convert -pm 
# 

# Format -conversion subroutine library. 
# 

# So many formats , so little point . 
# 

################################################################ 

################################################################ 

# Convert_Srec_To_Mif 
# 

# Converts an S-record file (as might be emitted by 

# the GnuPro compiler) into a mif-file suitable for initializing 

# an APEX on-chip ROM. 
# 

# If you don't specify a base-address for the S-record 

# contents, it just uses the first address it sees. You have 

# been warned. 
# 

################################################################ 

sub Convert_Srec_To_Mif 

{ 

my ($srec_name, $mif„name, $srec_base_address) = (@_) ; 

open (SREC, "< $srec_name") or die "Couldn't open $srec_name: $!"; 

open (MIF, "> $mif_name") or die "Couldn't open $mif_name: $!"; 

my $a; 

my $recordType; 
my $recordIiength; 
my $recordAddress ; 
my $recordData; 
my $recordChecksum; 
my $residue; 
my $i; 

print MIF «EOP; 
WIDTH=16; 
DEPTH=512; 
ADDRESS_RAr)IX=DEC ; 
DATA_RADIX=HEX ; 
CONTENT BEGIN 
EOP 

while ($a = <SREC>) 
{ 

if ($a =- /^S ( [123] )(..)(.*){..)$/)# an S record we can use 
{ 

$recordType = $1; 

$ r ecordLeng th = hex ( $ 2 ) - 1 ; 

$a = $3; 

$recordChecksum = $4; 
$recordIjength -= $recordType + 2; 

my SaddressStringLength = ($recordType +1) * 2; 

$recordAddress = hex (subs tr ( $a, 0 , $addressStringLength) ) ; 
$srec_base_address = $recordAddress if ( $srec_base_address 

$recordAddress -= $srec_base_address ; 
$recordData = substr ( $a, $addressStringLength) ; 



if { $resicLue) 
{ 

$recordAddress — ; 

$recordData = $residue . $recorciData; 

} 

$recordLength = length ( $recorciData) & -3 ; 
$i = 0; 

while ($i < SrecordLength) 
{ 

printf MIF " %5d : %s%s ; \n" , $recordAddress/2 , 
substr ($recordData, $i+2, 2) , 
substr ($recordData, $i,2) ; 

$recordAddress += 2; 

$i += 4; 

} 

$residue = substr ( $recordData, $i) ; 

} 

} 



print MIF «EOP; 

END; 

EOP 



# We discovered this interesting fact about the S-Record file. 

# Perhaps our caller might like to know about it: 
# 

return $srec_base_address ; 

} 

################################################################ 

# mif_nuin_to_decimal 
# 

# Given a value you got from a MIF- file, and the accompanying 

# RADIX string (BIN, DEC, HEX, OCT, or UNS) ; 

# This converts the nijmber to base-10 and returns the result. 
# 

################################################################ 
my %mif_base = ( BIN => 2, 

OCT => 8, 

DEC => 10, 

UNS => 10, 

HEX => 16 

) ; 

my %mif_digits = { 0=>0 , 1=>1 , 2=>2 , 3=>3 , 4=>4 , 5=>5 , 6=>6 , 7=>7 , 8=>8 , 9= 

a=>10,b=>ll, c=>12 , d=>13 , e=>14, f=>15) ; 

sub mif_num_to_decimal 
{ 

my ($mi f ..string, $mif_radix) = (@_) ; 

my $base = $mif _base { $mif _radix} ; 

$mif_string = Ic ( $mif_string) ; 

my @char_list = split ("", $mif_string) ; 

my $ result = 0; 

foreach $char (@char_list) { 

$result *= $base; 

$result += $mif_digits { $char } ; 

} 

return $result; 




################################################################ 

# Emit__Bin_Data 
# 

# Just a utility routine, used only by Convert_Mif_To_Dat , 

# below. 
# 

# Presumes the global filehandle DAT is open for writing. 
# 

################################################################ 

sub Emit_Bin_Data 

{ 

my {$data_val, $data__width) = (@_) ; 

my $bit = 0; 

my $ result = " " ; 

for ($bit = 0; $bit < $data_width; $bit++) 
{ 

if ($data_val % 2 == 0) { 

Sresult = "0" . $result; 
} else { 

$result = "1" . $result; 

} 

$data_val = int ( $data_val / 2 ) ; 

} 

print DAT "$result\n"; 

} 

################################################################ 

# Convert_Mif_To_Dat 
# 

# Verilog simulations allow you to initialize memory with 

# .dat-files. Quartus allows you to initialize memory with 

# ,mif -files. One could write a Perl-script to convert 

# mif-files into dat-files. Oh, look! One didl 
# 

# This function takes, as arguments, the ncune of the mif-file, 

# the name of the dat-file, and the width of the memory-to-be- 

# initialized, in bits. 
# 

################################################################ 

sub Convert__Mif_To_Dat 

{ 

my ($mif_ncime, $dat_name) - {©_) ; 



# Load mif-lines into a big string 

open (MIF, "< $mif_name" ) or die "Couldn't open $mif_name: $!"; 
my $mif„contents = " " ; 
while (<MIF>) 
{ 

# While we've still got $_ as a line, strip-off " — " comments 
s/'^( .*?) --.*$/$l/; 

$mif_contents .= $_; 

} 

close (MIF) ; 

# Eliminate /* - */ comments: 

while ($mif .contents =- s/ ( . *?) \/\* . *?\*\/ ( . *) /$1 $2/sg) {}; 



# Eliminate loatnsome whitespace: 
$mif_contents =- s/\s+//sg; 



my $mif_addr_radix = "HEX"; # Default, as-shown in mif-spec. 
my $mif_data_radix = "HEX" ; 
my $mif_width = " " ; 

# I don't happen to care about the depth. 

$mif__addr_radix = $1 if $mif ..contents =- 
$mif__data_radix = $1 if $mif_con tents 
$mif_width = $1 if $mif_contents 

$mif_depth = $1 if $mif„contents 

if (($mif_width eq " " ) ) { 

printf STDERR "Convert_Mif_To_Dat : suspicious mif-file: $mif_name\n" 
printf STDERR " no WIDTH specif ied. \n" ; 
return -1; 

} 

if (($mif_depth eq " " ) ) { 

printf STDERR "Convert_Mif _To_Dat : suspicious mif-file: $mif_name\n" 
printf STDERR " no DEPTH specif ied . \n" ; 
return -1; 

} 

open (DAT, "> $dat_name") or die "Couldn't open $dat_name : $!"; 

if ($mif_contents /CONTENTBEGIN ( . * ) END\ ; /is) { 

warn "Convert_Mif_To_Dat : no contents in mif file: $mif_name"; 
return -1; 

} 

my $contents_section = $1; 

my @statement_list = split (/\;/, $contents_section) ; 

foreach $statement (@statement_list ) { 

next unless $statement /'^ { [\dABCDEF] +) \ : ( [\dABCDEF] + ) $/i; 
my $addr = $1; 
my $data = $2; 

my $dec_addr = &mif_n\im_to_decimal ($addr, $mif _addr_radix) ; 
my $dec„data = &mif _num„to_decimal ($data, $mif „data__radix) ; 

printf DAT ("@%X\n", $dec_addr) ; 
&Emit_Bin_Data ( $dec_data , $mif _width) ; 

} 

close (DAT) ; 

} 



/ADDRESS_RADIX= (\w+) ;/is; 
/DATA_RADIX= ( \w+ ) ; / is ; 
/WIDTH= ( \w+ ) ; / is ; 
/DEPTH= (\w+) ; /is; 



# For some reason, modules need a return-value. 

# here ' s mine : 
"Abraham Lincoln" ; 
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wiz_utils .pm 

################ 

# wiz_utils .pm 
# 

# A set of utility routines and global variables 

# which are useful for automating the wiard "back-end" 

# build proecss. These include: 
# 

# * Path names for all the Nios HDK source directories. 
# 

# * A handy subroutine for parsing named function arguments . 
# 

# * A handy subroutine for stripping Perl comments. 
# 

# * Routines for copying files and directories platform- independent ly . 
# 

# We would like to auto-flush our buffers in the new, fancy 

# way (using ->autof lush ( ) ) , but for now we'll do it in the 

# old, cryptic way (using $|), because we can't seem to find 

# our library modules. 
#use 10: : Handle; 

$1=1; # set flushing on^TDOUT 

my $wiz„util_old_fh = select (STDERR) ; 
$1=1; # set flushing on STDERR 

select ($wiz_util_old_fh) ; 

use vpp; 

use ptf_update; 

use mk_custom_sdk; # Just to get f ormatted-print function "print_command. 

# — Inefficient. Sould put in some shared 

# module . 



################################################################ 

# Progress 
# 

# Prints-out a happy progress message in a standard format. 
# 

################################################################ 

sub Progress 

{ 

foreach $msg (@_) 

{ &print_command ($msg) } # Use DvB's unimprovable format. 

} 

$LEONARDO_EXEC=$ENVC " SPECTRUM_ROOTDIR" } ; 
$LEONARDO_EXEC=^ s/\\/\//g; # I hate 'X'. 

$PERIi_PROGRAM_FILE = $ ENV { " JPERL„PERL_CMD " } ; 

$PERIi_PROGRAM_FILE = "perl" if Idefined ($PERL_PROGRAM_FILE) ; 



################################################################ 

# Bu i 1 d_Cmd_L, i ne 
# 

# Turning a bunch of strings into a command-line isn't as easy 

# as one might think. First of all, it's safest to double-quote 

# every argument — especially since filenames might very well have 

# spaces in them. 



# 

# Second, clients may have already preemptively double-quoted 

# the arg\aments they're pas sing-around, so I want to be careful 

# to not put -another- layer of quotes on an argument if it's 

# already been quoted. 
# 

# and, finally, we want to do all this in a way that works 

# on 98/NT/2000/Solaris/HPUX. Whee . 
# 

# This function takes an arbitrarily-long list of strings, 

# each of which is taken as a single argument for a shel 1 -command . 

# This function returns a single command-line (string) , which is 

# the union of all the arguments, separated by spaces. Each argioment 

# may contain spaces . Each argument in the resultant command line 

# will be double-quoted. 
# 

# A single element in the list --may — consist of multiple command-line 

# arguments. If so, each one must be double -quoted, and . they must 

# all be separated by spaces. 
# 

# This function also handles I/O redirection properly, and doesn't 

# molest (quote) I/O redirection specifiers {>,<,|,&) if they appear in 

# an argument all by themselves. 
# 

# > Significant consideration: 

# 

# On Windows platforms, the "system" command WILL NOT WORK if the 

# command-name (0th arg) is doubl e -quoted . This is odd, since it 

# works fine at the interactivecommand line. Nevertheless, bitter 

# experience shows that perl's "system" feature will not work for 

# double-quoted program names. So we don't double-quote the program 

# name. This means that "Build_Cmd_Line" won't work for 

# program names with spaces in them. For the most part, for the 

# Nios HDK, this means (ahem) : 
# 

# PLEASE DO NOT INSTALL QUARTUS UNDER A PATH WITH SPACES IN IT. 
# 

# Thank you. 
# 

################################################################ 

sub Build_Cmd__Line 

{ 

my @cmd_args; 
(@cmd„args) = (@„) ; 

my @broken_args ; # Break-apart any already-double-quoted commands. 

for each $argo (@cmd_args) 
{ 

# No quotes in argument: Just pass it along, 
push (@broken__args, $argo) , next if $argo !- /\"/; 

# There has to be a double-quote at both ends of the 

# argument, or else it's not valid. Strip-off leading/ trailing 

# quotes to make splitting easier: 
# 

$argo s/'^\s*\ " ( . *) \ " \s*/$l/ or die 

'*Build_Cmd_Line: Illegal use of doubl e -quo t es : 
[$argo3 " ; 

my @sub_args = split (/\"\s+\"/, $argo) ; 
foreach $sub_arg (@sub_args) 

{ push ( @broken_args , $sub_arg) } 



} 



$result = 

foreach $argo (@broken_args) 
{ 

# Choke if there's a double-quote buried in the argument: 
$argo <~ /[^\\]\"/ or die 

" ERROR: Build_Cmd_Line : argument contains double-quote: 
[$argo] . " ; 

if ($result eq " " ) 
{ 

# First argument is special. We don't quote it, and it 

# can't have spaces. (See rant, above). 

$argo !~ /\s/ or die 

"It seems that you have installed Quartus in a 
directory-path which has spaces in its name: 

$argo 

The Nios HDK simply will not work under these 
conditions. It is very regrettable, and extremely 
sad. Yet, alas, it is also true . " ; 

$result = $argo . " " ; 
} else { 

# Not the first argument . 

# Quote it if it's not an I/O redirection thingamabob: 

$argo =~ s/\s* ( , *?) \s*/$l/ ; # strip leading/ trailing spaces. 

$argo = " \ . $argo . "\"" if $argo =~ / [^\>\<\ | \&] / ; 
$result . = $argo . " " ; 

} 

} 

return $result; 

} 

################################################################ 

# Run_Sy s t em__C ommand 
# 

# THE FIRST ELEMENT OF THE ARGUMENT LIST IS AN ERROR MESSAGE! 
# 

# You pass a -list- of arguments (some of which may contain 

# spaces) . This function builds them into a properly-formed 

# command line, runs the command-line via system, " checks 

# for an error, and prints an informative error message if it happens. 
# 

# If the system command results in an error, this function 

# does not return. 
# 

################################################################ 

sub Run_System_.C ommand 

{ 

my $error_msg; 
my @cmd_args; 

($error_msg, @cmd_args) = (@_) ; 

my $cmd„line = &:Build_Cmd_Line (@cmd_args) ; 



my $num_words - scalar (@cmd_list) ; 



# comment-out these flusharoos until we can make lOiHemlde work. 
#STDOUT->autof lush(l) ; 

#STDERR->autof lush(l) ; 

my $run_banner =<<END_RUN_BANNER; 

************************************************ 

* About to Run System Command: 

$cmd_line 

************************************************ 
END_RUN_BANNER 

print STDOUT $run_banner; 
print STDERR " " ; 

system {$cmd_line) == 0 or die 

"ERROR {$?) running system command line. 
*** $error_msg 
[$cmd_line] 

} 

################################################################ 

# Log 
# 

# Logs messages to either one, or both, of two log-files 

# at the same time. 
# 

# One log-file is a high-level "scorecard." This file should 

# contain progress messages for "very big" operations only. 

# When your giant 72 -hour regression test is complete, A 

# user should be able to print-out this file on a few pages 

# and determine, from 10,000 feet, what happend and how it went. 
# 

# The second log file is lower-level progress report. It should contain 

# fine-grained progress messages, but still nothing like 

# the aggregated STOUT and STDERR, which will be megabytes and 

# megabytes of crap. 
# 

# The first argument to this funciton is logged (with a timestamp) 

# to the scorecard file. Null strings ("") are not logged. 

# The first argument is also logged to the progress report file. 
# 

# The second argument is logged (with a timestamp) to the 

# progress report. Null strings ("") are not logged. 
# 

# **** Where are the log files? 
# 

# By default, the scorecard log messages will go to a file named 

# /scorecard. log" , and the progress report messages will go to a file 

# named " . /progress_report . log" 
# 

# (The messages are also emitted to STDOUT and STDERR) . 
# 

# There is not currenly any way to change the default behavior. 

# I might do this someday if I have time. 
# 

################################################################ 

sub Log_Guts 

{ 

my $ 1 og_f i 1 e_ncime ; 
my $msg; 

my $ do_t ime s t amp ; 

my $do_send_to_stdout ; 



($log_f ile_naine^^^sg, $do_time stamp, $do_sencL„to_st^f^) = (@_) ; 



return if I defined ($nisg) ; 
return if $msg eq " " ; 



my $time_string = localtimeO; 
my Suberjnsg = "$msg\n"; 

$uber_msg = "--> $time_string <--\n$uber_msg" if $do_time stamps- 
open (LOG_FILE, "» $log_f ile_name" ) or die 
"Log: Couldn' t open $log_f ile_ncLme : $ ! " ; 
print LOG_FILE $uber_msg; 
close (LOG_FILE) ; 



if ( $do_send_to„s tdout ) { 

print STDOUT $uber_msg; 

} 



sub Log 
{ 

my $score_msg; 
my $prog_msg; 

{$score_msg, $prog_msg) = {©_,) ; 



my $scorecard_file = $ENV(NIOS_SCORECARD} ; 

my $progress_f ile = $ENV{NIOS_PROGRESS„REPORT} ; 

$scorecard_f ile = " . /score„card. log" if $scorecard_f ile eq ""; 

$progress_f ile = " . /progress_report . log" if $progress_f ile eq 

my $progress_only = $score_msg eq ""; 

&Log_Guts ($scorecard_f ile, $score_msg, 1, 1) ; 
&Log_Guts ($progress_f ile, $score_msg, 1, 0); 
&Log_Guts ($progress_f ile, $prog_msg, 0, $progress_only) ; 

} 

################################################################ 

# Find_SOPC_Component_Directory 
# 

# In an ideal world, a user would be able to take a system's PTF-file, 

# copy it to another computer (or directory) , and reproduce the 

# original system from it--even if the new computer has the 

# SOPC-Builder library installed in a totally different place. 
# 

# To accomplish this, we need to do "run- time binding" of the SOPC-Builder 

# 1 ibrary/ libraries . This means we have to go out and find them 

# when the user actually runs the tool, based on some kind of 

# search-path. 
# 

# The search-path is handed to us by the caller as one of those 

# dash-dash command-line arguments. If no search path is specified, 

# we use a sensible default (set up in " Process_Wizard_Script„Arg\iments , " 

# below) . 
# 

# This function uses the library-search path to find the correct 

# directory containing the given component -class name. 
# 

# It does so by going through all of the directories in the path and 

# looking for a -subdirectory- which contains a " class. ptf" file. If 

# we find one, we open it and see what "class" it is. We return the 

# -subdirectory name- in which we found the matching "class. ptf" file. 



# 

################################################################ 

sub Find_SOPC_Component_Direct63ry 
{ 

my ( $module_class , $path_string) = (@_) ; 

# Path-elements can be split by numerous oddball characters . 

# this might very well come in handy later: 
# 

my @path_dirs = split {/\s* [\ ,\;\\\ + \ = \\\8c\^\^]\s* / , $path_string) ; 

my $result = " ; # Subdirectory in which we found matching "class. ptf" 

foreach $dir (@path_dirs) { 

# It's polite to tolerate directory-names both with- and without 

# trailing slashes. If we see a trailing slash, we get rid of it: 

# (and we convert all evil backslashes into good forward-slashes. 
$dir s|\\|\/|g; 

$dir =- s|\/$| |g; 

# Get a list of all subdirectories. Actually, we just get a list 

# of all the files, and then ignore them if they're not 

# directories . 
# 

if (iopendir (DIR, $dir) ) { 

warn ("Couldn't open SOPC library directory ' $dir ' : $ ! " ) ; 
next ; 

} 

my ©subdirectories = (readdir (DIR) ) ; 
closedir (DIR) ; 

foreach $sub_dir (©subdirectories) { 
my $sub_dir_path = " $dir/$sub_dir" ; 

my $class_ptf_f ilename = " $sub_dir_:path/ class ,ptf " ; 

next if !-d $sub_dir_path; # Must be a directory... 

next if !-e " $class_ptf_f ilename" ; # with a class, ptf file. 

my $db_PTF_file = new_ptf_f rom_f ile ( $class_ptf_f ilename) ; 

next if ! $db_PTF„f ile; # If we can't open it: forget i 

my $db„Class = &get_child_by_path ( $db_PTF_f ile, "CLASS"); 

next if !$db_Class; # No 'class' section: forget it 

my $f ound_class_name = &:get_data ($db_Class) ; 
next if $f ound_class_name ne $module_class ; 

# If we got to here, then we've found a "class. ptf file which 

# defines the class we're looking for. I suppose I could 

# do other checks, like look for a valid "MODUXjE^DEFAULTS " section, 

# but that's a slippery slope. For now, a "class. ptf" file which 

# defines the class we're looking for is good enoug. 
# 

$ result = $sub_dir_path; 
last ; 

} 

last if $result; 

} 

if (!$result) { 
warn ( " 

SOPC-Builder library component ' $module_class ' not found. 

Could not find a ' class, ptf ' file which defines ' $module_class ' 



on the path: ( $path_string) \n" ) ; 

} 

return $result; 

} 



################################################################ 

# Process_Wizard_Script„Arg\jiinents 
# 

# At the top of each X-wizard script {mk_<X>.pl) there was 

# a little preamble of code which analyzed the PTF file and 

# set some global variables in a highly-ritualized way. 
# 

# Did someone say "highly ritualized?" This sounds like a job 

# for a subroutine. I ' m so lazy. That's why I'm a good Perl 

# programmer. 
# 

# This is just a wrapper around &Parse_Named_Arguments which, 

# addi t i ona 1 ly : 
# 

# * Reads the "argments" to this script out of the (indicated) PTF file, 

# and re-phrases them as an argument list which is interpreted 

# by the aforementioned &Parse_NcLmed_Arguments . 
# 

# * Sets the global variable $QUARTUS_PROJECT_DIR 
# 

# * Sets the global variable $MODELSIM_DIR 
# 

# * Returns a string of all the input arguments with the 

# equals-signs substituted with " equals " . 

# (useful for passing arguments down to PTF-file) . 
# 

# * "Decodes" spaces in input -argximents . 

# we've found that it's difficult to pass 

# script-argiiments around if they contain whitespace. 

# solution: Replace " " with " jperl_space This 

# function does the reverse, acting as a receiver for 

# this sneaky encoding. 
# 

# This routine has one (and maybe later more) arg which is 

# always accepted: "wizard." This is saved-away in the PTF-file 

# and used by the wizards themselves later to figure out 

# who ran this funciton (which wizard) , and who should be called 

# when this device needs to be edited. 
# 

# The use of the term "arguments" in this f\inction is a bit tricky. 

# There are really two distinct sets of things we call "argximents" : 
# 

# 1) The actual arguments passed to this here function, which 

# specify the current working directory and PTF file and istuff . 
# 

# 2) The contents of the WIZARD_SCRIPT__ARGUiytENTS" section of the 

# PTF file 
# 

# We have to process the type (1) arguments in order to -get at- the 

# type (2) arguments. The result of this function, a hash, is obtained 

# by opening the PTF file (based on the (1) argiiments) and then recasting 

# the contents of the PTF-flile (the type (2) arguments) . How very 

# confusing. Sorry. That's what happens when there are multiple levels 

# of indirection. 
# 

$Process_Wiz_Args_Doc=«END_OF„DOCUMENTATION_STRING ; 



[hippie] --tolerate unfamiliar argruinents . 
# LONG NAME SHORT DEFAULT 



DESCRIPTION 



* sys tem_direc tory - -none - - 

* targe t_module_name name — none-- 

* system_name --none — --none-- 

* s op c_di rectory — none-- --none-- 

* sopc_lib__path — none-- — none-- 
generate --none-- 1 
verbose v 0 



Directory where system resides. 
Module being generated. 
Name of system being generated. 
Where the SOPC-Bldr is installed 
Where to look for lib dirs . 
"Yes, please do generate, please 
*bool* Extra blabbering output. 



# Just for sheer convenience, we also provide the client (caller) with 

# "fictitious" arguments called: 

# class_directory — none-- --none — Where THIS component lib dir is. 
system„sim_dir sim_dir — none-- If sim project, where to put it. 

END_OF_DOCUMENTATION_STRING 
# 

################################################################ 
sub Process_Wizard_Script_Arguments 

{ 

my ($arg_doc_string, @input_arg_list ) = (@_) ; 



################ 

# Pre-process argument string. 
# 

# I thought I'd get a list of space-delimited arguments. 

# Instead, I just get one single argiiment, which is a big ol ' string. 

# I'll just write a little bit of code which works either way: 
my @inte2:mediate_arg_list = ( ) ; 

my @quoted_string_list = (); 

for each $in_arg {@input_arg_list ) 

{ 

while ($in„arg s/ \ " ( [ "\ " 1 * ) W \ "_ARG_QUOTED_STRING_\V ) 
{ 

push (@quoted_string_list , $1) ; 

} 

push (@intermediate_arg_list , split (/\s+/, $in_arg) ) ; 

} 

foreach $arg (@intermediate_arg_list) 
{ 

while ($arg / \ "_ARG_QUOTED_STRING_\ " / ) 

{ 

my $next_quoted_string = shift (@quoted_string_list ) ; 
$arg =~ s/\ "_ARG_QUOTED_STRING_\ " /$next_quoted_string/ ; 

} 

push {@processed_arg_list , $arg) ; 

} 

################ 

# First, we expect to see a certain, predefined set of 

# incoming arguments . 
# 

# Note that these incoming arguments are re-interpreted as part of 

# our fictitious name=value "argument" list, as well as processed 

# directly here. 
# 

my @name_eq[uals„value_list = ( ) ; 
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my $sys_dir = 
my $sys_name = " " 
my $mod_name 
my $lib__path 



_ n II 
ti n 



while ($arg = shift (@processed_„arg_list ) ) 
{ 

# We expect argiiments to be name=value pairs that begin 

# with double-dashes. Hmm. 

10 $arg =~ s/^ — // or die "malformed argument: $arg" ; 

$arg /([''=]+) = (['' = ]*)/ or die "malformed argument: $arg" ; 
push (@naine_equals_value_list , $arg) ; 
my $arg_name = $1; 
my $arg_value = $2 ; 

$sys_dir = $arg_value if ($arg_name /'^system_directory/ ) ; 
$sys_name = $arg_value if ($arg_name / '"system_name/ ) ; 
$mod_name = $arg_value if ($arg_name /'^target_module_name/ ) ; 
$sopc_dir = $arg_value if ($arg_name /'^sopc^directory/ ) ; 
20 $lib_path = $arg_value if ($arg_name /'^sopc^lib^path/ ) ; 

$verbose = $arg_value if {$arg„name =~ /'"verbose/) ; 

} 

# Library path default : 
_25 # If no library path was specified, we use a sensible default: 

a # 

m if ($lib_path eq " " ) { 

03 $lib_jpath = " $sopc_dir/ component s " ; 

03 push (@name_equals_value_list, " sopc_lib_path=$lib_path" ) ; 

O30 } 

E # This is a bit bogus, but it's a thing several people might need 

^ # to know, and which we can figure out here. 

push (@name_eciuals_value_list, " system_sim_dir=$sys„dir/$sys_name\„sim" ) ; 

L 35 

O &Progress ("Extracting PTF info for $mod_name . " ) if $verbose; 

m 

Lj, $msg = "Couldn't process PTF-file arguments for module $mod_name . " ; 

pji my $ptf_f ilename = " $sys__dir/$sys_name .ptf " ; 
!4 40 

?T &PTF_Translate_Old_Version ( $ptf_f ilename) ; # Update legacy files. 

my $db_PTF_File = &PTF_New__Required_Ptf __From_File ( $ptf_f ilename, $msg) ; 
my $db_Sys = &PTF_Get_Required_Child_By_Path ( $db__PTF_File , 

45 '•SYSTEM", $msg) ; 

################ 

# The " -targe t_module__name" argument is special. If it has the 

# exact-same name as the system itself, then we get the 

50 # WIZARD_SCRIPT_ARGUMENTS from the SYSTEM section itself, instead 

# of one of its sub-modules . 
# 

my $db_Module = $db_Sys; 

$db_Module = &:PTF_Get_Required_Child_By_Path 
55 ($db_Sys, "MODUIiE $mod_name", "That's odd.") 

unless $mod_name eq $sys_name; 



my $db„Wiz_Args = &:get_child_by_^ath ($db_Module, 

"WIZARD_SCRIPT_ARGUMENTS" ) ; 

################ 

# The fictitious "class_directory" argximent 
# 



# We -wish- the user had passed us yet-another command-line argument 

# called "--class^directory" The user did not because it is, after 

# all, something we could figure out for ourselves. Please allow 

# me to demonstrate: 
# 

if {$mod_name eq $sys_name) 

# If We're generating the system (and bus) itself, then 

# the "class_directory" is just the directory in which the 

# system-builder library stuff lives: 
# 

# NOTE: JWIZ NAME CHANGE 

# The name of this directory should be changed when we 

# re-name all the components. I think. Maybe, 
push (@name_equals_value_list , 

"class_directory=$sopc_dir/bin" ) ; 

} else { 

# This is just an ordinary module, so we search for its 

# class-directory in the conventional manner: 
# 

my $class = &PTF_Get_Required_Data_By_Path ($db_Module, "class" 

my $class_dir = &:Find_SOPC_Component_Directory ($class, $lib_path) ; 
push (@name_equals_value_list, " class_directory=$class_dir" ) ; 

} 

################ 

# For compatibility with the old-style (and very powerful) 

# &Parse_Named_Arguments function, we convert all the assignments 

# in the fetched WIZARD_SCRIPT_ARGUMENTS section into 

# a Perl-list of "name=value" strings. This lets us use all our 

# old, familiar argument -par sing-and-checking infrastructure. How 

# civilized. 
# 

my $num_wiz_args = &get_child„count ( $db_Wiz_Args) ; 

for ($child„index = 0; $child_index < $num_wiz„args ; $child_index++) 

my $db_Arg = &get_child ( $db_Wiz_Args , $child_index) ; 
push (@name_ec[uals„value_list , 

&get_name ($db_Arg) . " = " . &:get_data ($db_Arg) 

) ; 

} 

# Take spaces from Perl as a special token. This helps us smuggle 

# them past the command line. 
# 

# This is almost totally anachronistic, but c'est la vie, eh? 

# There's no reasyn really to cjuit doing this. 
# 

my $named_arg_string = join (",", @name_equals_value_list) ; 

$named_arg_string =~ s/\n/ /mg; # form a single line, plea 

$named_arg_string s/ jperl_space / /g; 



my ($arg, $user_def ined, $ table) = 

&Parse_Named_Arg\Hnents ( " $arg_doc_string \n $Process_Wiz_Args_Doc " 

$named_arg_string) ; 



# DELETE ME: 

# This code is obsolete. Anyone relying on these variables 

# is in grave danger. 
# 

$QUARTUS_PROJECT__DIR = $$arg{ " system_di rectory " } or die 
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"ERROR: No Quartus project diretory specified."; 

$QUARTUS_PROJECT_DIR =- s/\\/\//g; #Crush backslashes in project dir. 
$QUARTUS_PROJECT_DIR s/\/$//; # strip trailing "/" from wd. 

$MODELSIM_DIR = " $QUARTUS_PROJECT_DIR/ $PROJECT_SIM„SUBDXR_NAME" ; 

return ($arg, $user_def ined, $db_Module, $db_PTF_File) ; 



} 



###########################################################*##*# 

# Perlcopy 

15 # "cp" is different on every platform. Worse, sometimes you 

# get read-only files as a result, which is never what we want 

# (in this particular application) . 

# ^. 

# One way to copy files is via a Perl-routme . This 

20 # routine opens the source-file, reads it into a list of lines, 

# closes it, opens the destination file, writes the list of lines, 

# then closes it. 

:f|: 

# AS an added bonus, you may pass-in an optional regexp which gets 
r-25 # applied to every line on its way through. Most people will 

# never use this, but it sometimes comes in handy. 

^ # Crude, but effective. 

sub Perlcopy 

Wl ^ my ($src, $dest, $regexp) = (@_) ; 

=^35 $src /.*?(['^\\\/]+)$/; 

1 my $src_root = $1; 

" # If the destination is given as a directory, add-on the 

J # root filename. 

140 $dest .= $src__root if $dest =~ /t\\\/]$/; 

my @lines; 

open (SRC, "< $src") or die 
45 "Perlcopy: cannot open source file $src: $1"; 

while (<SRC>) { push (@lines, $__) } 
close (SRC) ; 

open (DST, "> $dest") or die 
50 "Perlcopy: cannot open destination file $dest: $1"; 

foreach $line (@lines) { 
if ($regexp) { 

eval ("\$line =- $regexp"); 
55 die "Perlcopy error ($@) evaluating expression: $regexp" if $@; 

} 

print DST $line; 

} 

close (DST) ; 



60 } 



################################################################ 
# CopyDir 



# Copies all files in the $src directory to the $dest directory, 

##################################*###*###**^**********^**^^****** 
5 sub CopyDir 
{ 

my $src; 
my $dest; 

($src, $dest) = (@_) ; 

10 

$dest /[\\\/]$/ or die 

"ERROR: CopyDir destination ($dest) must be a directory. ; 

opendir (DIR, $src) or die 
X5 "ERROR: CopyDir can*t open directory $src: $1"; 



my $fname; 

while (def ined($fname = readdir (DIR) ) ) 
{ 

20 next if $fname /'^\.+$/; 

fcPerlcopy ( " $src/$f name" , $dest) ; 

} 



closedir (DIR) ; 

^5 } 

:5 ############################################*#########*##****^** 

# Create_Dir_If_Needed 

S # 

^30 # The name pretty much says it all, don't it? 

sub Create_Dir_If_Needed 
{ 

L35 my $DIR_NAME; 

y ($DIR_NAME) = (@_) ; 

CP 

H if (1-e $DIR„NAME) 

ru ( 

g40 # 511 is octal '777'. No one here can 

# figure out how to make an octal number. 

^ # 

mkdir {$DIR_NAME, 511) or die 

"Error creating dir $DIR_NAME: $!"; 

45 } 

} 

################################################################ 

# Copy_Tool„Control_Files 

50 # ^ ^ 

# Some of the more complex wizard-generated modules have, 

# for example, "black boxes." Others have RAM or ROM components. 

# All of these things are rather tricky to support. 

55 # A scheme has been devised for synthesizing, compiling, and 

# simulating "complex" components containing black-boxes and 

# such. The details of this scheme are beyond the scope of this 

# comment. Suffice it to say that the scheme requires the presence 

# of a variety of "magic" files in the project directory. 
60 # 

# This function copies all the "magic" files needed to 

# support complex components. One-stop shopping. For some 

# not-so-complex components, you may end up with more files than you 



# really needed. Th^^y?ouldn ' t be the end of the world. 
# 

# You pass-in (a reference to) the %arg-hash used by mk_sys t embus . 

# That contains special entries telling us where all the various 
5 # directories are,. 

#########################################*#######*####*^#**^#**^** 
sub Copy_Tool„Control_Files 

{ 

10 my ($arg) = (@_) ; 

################ 

# If you aren't simulating, you realy only need one file: 

# good ol' "leonardo_def ine.v" 

15 # , ^ 

# If you are simulating, then we do some extra work to set up 

# the simulation directory. 
# 

# We used to use Perlcopy to move a flat-text version of leonardo_def ine , v 
20 # into project directory. Unfortunately, now we need to explicitly spit it 

# out, so that it may be encrypted, if need be. 

# &Perlcopy { " $$arg{sopc„directory} /bin/vpp/leonardo_def ine . v" , 

# "$$arg{system_directory}/" ) ; 

„25 

B open (AriTERA„FILEHANDIiE, "> $$arg { system_directory } / leonardo_def ine . v" ) 

© or die "Unable to open $$arg{system_directory} /leonardo_def ine . v" ; 

m print ALTERA_FILEHANDLE " $GLOBAL_COPYRIGHT_NOTICE\n" ; 

m print ALTERA_FILEHANDLE " Me fine LEONARDO.SPECTRUM true" ; 

g30 close ALTERA_FILEHANDLE ; 

^ return unless $$arg{do_build_sim} ; # > Adios , muchachos 1 < 

ficDebug (0, "Copying simulator files to $$arg{system_sim_dir} " ) ; 

L35 

u ################ 

Ol # Build simulation directory, copy- in a few special files: 

# 

qj &Create_Dir_If_Needed ( $$arg{system_sim_dir} ) ; 

]^ 40 &Create_pir_If_l^eeded ( " $$arg{ system^sim^ir} /work" ) ; 

^ ficPerlcopy 

( "$$arg{sopc_directory} / bin /vpp / mode lsim_de fine .v" , 
"$$arg{system_sim_dir} /") ; 
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ScPerlcopy 

( "$$arg{sopc_directory} /bin/modelsim_support/ test_equipment . v" , 
"$$arg{system_sim_dir} / " ) ; 



50 ScPerlcopy 

( "$$arg{sopc„directory} / bin /mode lsim__support/_info" , 
"$$arg{system_sim_dir}/work/" ) ; 

# Copy over the magic "sim.mpf" file, with one substitution: 
55 my $test_bench_name = " $$arg{system_name}_test_bench" ; 

ScPerlcopy 

( "$$arg{sopc_directory}/bin/modelsim_support/sim.mpf " / 
" $ $arg { sys t em_s im_dir } / $ tes t_bench_name . mpf " , 
" s / S OPC_TEST_BENCH_NAME / $ t e s t_bench_name / g " 
60 ) ; 



################################################################ 



# Finn_Flip_Flop Renaming... 
# 

# We have to create a bunch of custom variants of the file 

# "Firm_Flip_Flop.v" The Nios core uses three variants: 
# 

# Addr e s s_Ou t„Reg 

# Control_Out_Reg 

# Data_In_Reg 
# 

# The system-bus module creates yet more. 
# 

# All our "firm flip flop" WISIWYG register modules get the same 

# processor-name prefix as all the rest of the Verilog files. 

# We use the port list from "Firm_Flip_Flop" to build-up port lists 

# for its (identical) variants. The reason we need these variants 

# at-all is because they will end up with different .esf -files. That 

# all gets handled at the PBM-level, though. The Nios core itself 

# can't know whether or not these signals go off -chip. 
# 

# The firm flip-flop file gets created via a call to VPP . 
# 

# THIS SUBROUTINE CALLS &Vpp . 
# 

# DO NOT CALL THIS SUBROUTINE FROM WITHIN &Vpp, because 

# &Vpp is not reentrant. 
# 

################################################################ 

sub Create_Firm_Flip_Flop_Variant 

{ 

my ( $system_directory , 
$sopc_directory , 
$part_type , 

@variant„names) = (@_) ; 

die "ERROR Create_Firm_Flip_Flop_Variant: PART_TYPE SETTING ($part_type) 
NOT SPECIFIED" 
unless ($part„type) ; 

foreach $variant„name (@variant_names) 
{ 

ScVpp {"-Q", 

"-0" , "Ssystem_directory/$variant_name,v" , 
"FIRM_FLIP_FLOP_MODULE_NAME = $variant_name " , 
"PART_TYPE = $part_type", 

# NOTE: HARD DEPENDENCY ON NIOS COMPONENT 

# It would be a good idea, in the future, for 

# this function to be un-linked from the exact 

# location of the nios -component library directory. 

# Make no mistake: It's done this way because of 

# expediency and safety. Many an evil has been 

# committed in the name of meeting the ship-date, 

# and this is a case-in-point . It's defensible since 

# this is, after all, the Nios kit. If there's no 

# nios -component , it * s not much of a kit. 

"$sopc_directory/components/altera„nios/vpp_source/f irm_f lip_f lop .vpp" , 
) ; 

} 

} 

################################################################ 

# Create_ESF_File 

# 



L^^hich contains the text you specif^(^ 



# Creates an ESF-fi^^hich contains the text you specify 

# its body. 
# 

# You can create multiple ESF-files at the same time, all with the 

# same body, by passing-in a list of f ilename ( roots ) . 
# 

################################################################ 

sub Create_ESF_File 

{ 

my ($esf_body, $system_di rectory, @root„f ilename_list ) = {@_) ; 

foreach $esf_f ilename_root (@root__f ilename_list) { 

my $esf_name = " $system_di rectory /$esf_f ilename_root . esf" ; 

open (ESF_FILE, "> $esf_name") or die "couldn't open $esf_name: $ i " ; 



print (ESF_FILE " \n 

OPTIONS_FOR_INDIVIDUAIj_NODES_ONIiY 

{ 

$esf_body 

} 

") ; 



close (ESF_FIIiE) ; 

} 

} 



################################################################ 

# Ge t_D i r e c t i on_Fr om_Ava 1 on_Typ e 
# 

# Given one of those crazy Avalon port-type strings, this function 

# tells you whether the port is an input, an ouput, or an inout , 
# 

################################################################ 

sub Get_Direction_From_Avalon_.Type 

{ 

my {$cra2y_type) = (@_) ; 

die "badly- formed port type specifier: $crazy„type" unless $crazy_type 

/ (master | internal j external ) _ ( input | output | inout ) _? ( shared_) ?(.*)/; 
return $2; 

} 



################################################################ 

# PTF_Eval_Expr 
# 

# If you have an assignment -value from a PTF-file, 

# this subroutine trys to evaluate it as a numerical expression. 

# This is handy for converting hex -values to "real numbers," 

# for example--or even allowing users to put honest-to-Pete 

# arithmetic expressions in their PTF-files; 
# 

# IRQ_Number = "36 + OxC"; # Valid when evaluated. 
# 

# Sometimes, n\imeric fields can have special marker-values, 

# like "N/A" or "peripheral-controlled" . We give the caller option 

# of specifying a list of such "special" values, which we return 

# unmolested. 
# 

# The user may also optionally provide a description, which is 

# handy for error-reporting, 
# 

################################################################ 



sub PTF„Eval„Expr 

my ($value, $description, @special_values) = ; 

foreach $special (@special_values) 

{ return $value if $value eq $special; } 

$description = "<unknown>" if $description eq ""; 

my $result - eval ($value) ; 

my $msg =«EOM; 

Error: Could not evaluate the following expression: 
$value 

This nasty little expression was found in the 
PTF data under this path: 

$description 

When I tried to evaluate said nasty little expression, 
I got this here error: 

$@ 

EOM 

die $msg if $@; 
return $result; 

} 

################################################################ 

# PTF_Get_Boolean_Data__By_Path 

# 

# Fishes value out of PTF-file, then validates to make 

# sure it's boolean. 

################################################################ 

sub PTF_Get_Boolean_Data_By_Path 

{ 

my ($ptfRef , $path, $default) = {@_) ; 

my $data = get_data_by_path ($ptfRef, $path) ; 

return &Vpp_Validate_Boolean ($data, $path, $default) ; 

} 

################################################################ 

# PTF_Get_And_Evaluate„Data_By_Path 

# 

# Gets indicated value out of PTF, then 

# tries to evaluate it using PTF_Eval_Expr , above. 

################################################################ 
sub PTF_Get_And_Evaluate_Data„By_Path 

{ 

my ($ptfRef, $path, @special_values) = (@_) ; 
my $data = &:get_data_by_a>ath ; 

&PTF_Eval_Expr ($data, $path, @special_values) ; 

} 

################################################################ 

# PTF_Get_Required_Data_By_Path 
# 

# Just like ptfjarse's "get„data„by_path, " except that 
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# we print a nasty error message and die if the data 

# we requested isn't there. 

sub PTF_„Get_Reciuired_Data_By_Path 

my ($ptfRef, $path, $error_message) = (@_) ; 
my $result = get_data_by_path ( $ptf Ref , $path) ; 



if ($result eq " " ) 

^ my $ptfName = &get_name {$ptfRef) . " " . &get_data ( $ptf Ref ) ; 
my $msg =«EOM; 
15 Error: $error_message 

Required assignment: 
' $path • 

was not found in PTF section: 
' $ptfName ' 

20 

EOM 

die $msg; 

} 

return $result; 

f^5 > 

5 ################################################################ 
ffl # PTF_Get_Required_Child_By_Path 

m # 

^0 # Just like ptf_parse's "get_child_by_path, " except that 

# we print a nasty error message and die if the child 

# we requested isn't there. 

^ !##############################################################* 

1^35 sub PTF_Get_Required„Child_By_Path 

U { 

31 my ($ptfRef, $path, $error_message) = (@_) ; 



^40 



my $result = get_child_by_jath ( $ptf Ref , $path) ; 



if ($result eq " " ) 

my $ptfName = &get_name ($ptfRef) . " " . &get_data ($ptfRef ) ; 
my $msg =:«EOM; 
45 Error: $error_message 

Required PTF section: 
• $path' 

was not found in PTF section/f ile : 
' $ptfName' 

50 

EOM 

ribbit $msg; 

} 

return $result; 

55 } 

# PTF_Build_Hash_From_Section 

60 # Suppose you want to read -all- the data in some particular 

# section of a PTF, and build a corresponding hash of values, 

# That's exactly what this function does. It builds the hash, 

# then returns a reference to it. 



# 

# This function is intended to gather data from "simple" sections 

# (ones that don't contain other sections). If it encounters 

# a child section, it displays a warning, and does the best it can 
5 # with the result hash (the body of any child-section is ignored) . 

# 

# If the section you asked for doesn't exist, this function 

# dies with an error — unless you specifically ask it not to. 
# 

10 # The "path" argument is optional — if you omit it, then 

# we just convert "$ptfRef" into a hash. 

sub PTF_Build_Hash_From_Section 
15 { 

my ($ptfRef, $path, $strict) = (@_) ; 
$strict = 1 if $strict eq 



i s 



55 
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my $db_Section = $ptfRef; 
20 if ($path ne "") { 

if ($strict) { 

$db_Section = &PTF_Get_Required„Child_By_Path ($ptfRef, $path) ; 
} else { 

$db_Section = Stget„child_by_path ($ptfRef, $path) ; 

_25 } 



ffl my %result_hash; 

iB my $num_children = &get„child__count ( $db_Section) ; 

O30 for (my $child_index = 0; $child_index < $num_children; $child_index++) 

^ my $db_Child = &get_child ( $db_Section, $child_index) ; 
^ goldfish (" 

5 35 PTF_Build_Hash_From_Section: encountered suspicious 

O sub-section in $path. 

m ") if &get_child_count ($db_Child) != 0; 

U $result_hash{&get„name($db_Child) } = &get_data ($db_Child) ; 

hi > 

40 



return \%result_hash; 



} 



################################################################ 
45 # PTF_New„Required_Ptf_From_File 
# 

# Just like ptf_parse's "new_jptf_from_file, " except that 

# we print a nasty error message and die if the file 

# can't be opened. 
50 # 

################################################################ 

sub PTF_New_Required_Ptf_From_File 

{ 

my ($filename, $error„message) = (@„) ; 



my 



$result = new_ptf_f rom_f ile ($filename) ; 



if ($result eq "") 
{ 

60 my $msg =«EOM; 

Error: $error_message 
Required PTF file: 
• $ filename ' 



could not be opened. 



EOM 

die $msg; 

5 } 

return $result; 

} 

################################################################ 
10 # PTF_Check_Bool 

# So you have a value in a hash. You got this value out of a PTF 

# file, and you think it ' s a string representing a boolean 

# setting (e.g. a string that says "TRUE" or "FALSE." Instead, 
15 # you'd rather have a testable boolean value (or an error, if 

# the string is something weird) . 
# 

# That's what this function does. 

sub PTF_Check_Bool 

my ($hash_ref, $var_name, $def ault_value) = (@_) ; 

25 $$hash_ref {$var_name} = &:Vpp_Validate_Boolean ( $$hash_ref { $var_name} , 

r3 $ var_name , 

$default__value) ; 

§30 ##################################################^#######***#** 

£T # PTF_Allow 

r~ ^ 

# So you have a value in a hash. You got this value out of a PTF 

# file, and you think it's a string which can have one of only a few 
=_35 # restricted values. Wouldn't it be nice to check? 

P # 

01 # That's what this function does. 

ki # If you pass-in a null value (i.e. the setting doesn't exist m the 

L~40 # PTF-file) then this function will return without an error. Checking 
H # to be sure a setting has a legal value is different than checking 

# to be sure a setting is, in fact, set. 

#################################################*#*####*###*^*** 
45 sub PTF_Allow 

my ($hash_ref, $var„name, @allowed_values) = (@„) ; 

my $value = $$hash_ref { $var_name} ; 
50 return if $value eq " " ; 



□ 



foreach $allowed (@allowed_values) 
{ return if $value eq $allowed; } 

55 die "Illegal value for $var_name setting: $value" ; 

} 

################################################################ 

# PTF_Eval 
60 # 

# So you have a value in a hash. You got this value out of a PTF 

# file, and you think it's a string representing a numerical 

# setting (e.g. a string that says "3" or "Oxlffff" Instead, 



# you'd rather have raw nximber (or an error, if 

# the string is something weird. 
# 

# That's what this function does. 

################################################################ 

sub PTF_Eval 

{ 

my ($hash_ref , $var_name, ©special_values) = (@_) ; 

$$hash_ref {$var_name} = &PTF_Eval_Expr ( $$hash__ref { $var_name} , 

$var„name , 
@special_values) ; 

} 

################################################################ 

# PTF„Require 
# 

# Given a hash which was extracted from a PTF-section, validates 

# that the indicated member is present (non-NULL) . If not, it 

# prints an error message. 

!################################################################ 

sub PTF_Require 
{ 

my ($hashref, $assignment_name) = ; 
return if $$hashref { $assignment_name} ne 

die "Required assignment ($assignment_name) not found in PTF . " ; 

} 

################################################################ 

# PTF_De fault 
# 

# Given a hash which was extracted from a PTF-section, validates 

# that the indicated member is present (non-NULL) . If it is NULL, 

# then we give it a default value and print a polite warning. 

!################################################################ 

sub PTF_De fault 

ray ($hashref, $assignment_name , $def ault__value) = (@_) ; 
return if $$hashref {$assignment_name} ne ""; 

$$hashref {$assignment_name} = $def ault_value; 
print STDERR 

"Warning: PTF assignment ( $assignment_name) missing, 
set to default value ( $def ault_value) \n" ; 



################################################################ 

# Add_Module_Ports_To_PTF 
# 

# Suppose you've just generated a module using Vpp . Further suppose 

# that this module has its very-own MODULE section in a PTF-f ile 

# someplace. Obviously, you want the PORT_WIRING section in said 

# PTF-file section to agree with the actual Verilog ports on the 

# module . 
# 

# Why, this very function right here takes your module {by name) and 

# uses its' pre-declared ''&List_Ports_For" -ports to create a correct 



# PORT_WIRING sectio^^Lii the PTF section. 

# You have to pass-in a reference to the PTF-section you want 

# modified, as well as the name of the module whose ports you want 
5 # to describe. 

sub Add_Module„Ports_To_PTF 

10 my ($db_.Module, $module_nanie) = (@_) ; 

my @port_list = &Get_Port_Iiist ($module„naitie) ; 

# Error-checking. How polite. 
15 scalar (@port„list) != 0 or die 

" Add_Module_Ports_To_PTF : 
No port list found for module named $module_naine" ; 



20 



&delete_child ($db_Module, " PORT__WIRING" ) ; # Out with the old. 

foreach $port ((iport_list) { ^ ^xx r 

foreach $attrib (&Get_Port„Attribute_List { $module_name. Sport)) I 



next if $attrib eq "name"; # Already got the name, thanks. 
25 &:add_child_data ($db_Module, 

"PORT_WIRING/P0RT $port/$attrib" , 

&:Get_Port_Attribute ($module_name, $port, $attrib) 

i ^' 

fo > 

L30 } # END : foreach $por t . . . 

Q #####################################################*#***#*#*** 

0^ # Add_Synthesis_Files_To_PTF 

= 35 # 

n # Suppose you have a MODULE section in a PTF file, and you want 

m # to fill-in the HDL_INFO section with a list of HDL (probably Verxlog) files, 

# This is your function, pal. You just pass a reference to the PTF 
lr40 # MODULE section and a list of filenames. We do the rest (which, 
H # truth to tell, isn't much), 

sub Add„Synthesis_Files_To_PTF 
45 { 

my ($db_Module, @hdl_files) = {@_) ; 

&:Add_HDL„INFO_Files„To_PTF ( $db_Module , 

" Syn the s i s_HDL_F i 1 e s " , 
50 @hdl„f iles) ; 

} 

##^############################################################# 

# Add_HDL_INFO_F i 1 e s_To_PTF 

55 # . . 

# Suppose you have a MODULE section in a PTF file, and you want 

# to fill-in the «HDL_INFO/<XXX>" assignment with a list of 

# files. 

60 # This is your fiinction, pal. You just pass a reference to the PTF 

# MODULE section and a list of filenames. We do the rest (which, 

# truth to tell, isn't much) . 
# 



#####################ff##################################^*#** 

sub Add_HDL_INF0_Files„TO_PTF 

my ($clb„Module, $assigmnent_string, @file_list) = ; 

5 

my $file_list_string = join (",", @f ile_list) ; 
&add_child__data ( $db_Module , 

"HDIi_INFO/$assignment_string" , 

$ f i 1 e_l i s t_s t r ing 
10 ) '* 




15 # Fill_In„Sections_And_Save_PTF_File 

# Suppose you've just generated a module using Vpp . It's not 

# a super-complicated module — it's just a simple module 

# contained on one (1) simple verilog file with a simple set of 
20 # ports. 

# Further suppose you have a PTF-file with a MODULE section corresponding 

# to the module you just now generated. 
# 

25 # You're responsible for filling-in these sections: 

Q # 

C # PORT_WIRING 

m # HDL_INFO 

rfi # 

f330 # So that they accurately describe the module you just built. 

# This function does exactly that, given nothing more than 

^ # a reference to the PTF-file and another reference to the $args 

y # taken by your modlue (the very-same "$arg'' hashref returned by 

y-^ # &Process„Wizard_Script_Arguments) . 

£ 35 # 

D # To do all this work for you, we make some assumptions: 

ill ^ 

# 1) As part of your Vpp -generation, you did a "&:List_Ports_For " 
Ui # describing your module's I/O pins. 

pS40 # 

#2) Your module is named as-described m $$arg{name} . 

# 3) It is defined in a VERILOG file of the same name {ending in 

# ",v", of course, and said file is in the $QUARTUS_PROJECT_DIR, 
45 # 

# 4) This one file is used for both simulation -and- synthesis. 

# 5) There aren't any other HDL files, or any other trickiness . 
# 

50 # If so, this function does the generic " fill -in -the -blanks " work 

# in the PTF-file. If your module needs something more complicated 

# than this, then you can call some of the (rather obvious) sub- functions 

# yourself with different arguments. 

55 !############################################################### 
sub Fill„In__Sections_And_Save„PTF_File 

my ($db„PTF_File, $arg, @HDL_f ile_list) = (@_) ; 

60 &Progress ("Updating PTF section for module: $$arg{name} . " ) 

if ($$arg{verbose} ) ; 



# if the user didn't supply a list of files. 



then we just use 



=30 



# the obvious to^fevel module name for the entity ur^^ construction: 
@HDL_file_list = ("$$arg{system„directory}/$$arg{name} .v") 
if (scalar (@HDL_f ile_list ) == 0) ; 

my $db_Module = &PTF_Get_Reciuired_Child_By_Path 

($db„PTF_File, 
" SYSTEM/MODULE $ $arg {name ) " , 
"I could have sworn I saw $$arg{name} in 
here 1 " ) ; 

&Add_Module_Ports„To_PTF ($db_Module, $$arg{name} ) ; 

&Add_Synthesis_Files_To_PTF ($db_Module, @HDL_f ile_list) ; 
£cwrite_ptf_file ( $db_PTF_File) or die 

"Couldn't write PTF File when generating $$arg{name} " ; 



10 



15 } 



##* 

# is_Absolute„Path 
20 # 

# Return 1 (true) if it is, and 0 (false) if it ain't. 
####^ 

sub Is_Absolute_Path 

25 { 

my ($f ilename) = (@_) ; 
$filename sl\\|\/lsg; 
$filename sl'^Xs+Usg; 
$f ilename =- s|\s+$||sg; 



return 1 if $filename /-\//; # Starts with a slash. 

return 1 if $filename =- /-[-\/]+\:/; # Some sort of drive-specifier. 



return 0; 

=^35 } 

# Get_Base_„Fname 

iy40 # Given a filename which might contain a path, strip-off 

# the directory-part, leaving only the "base" filename part, 

sub Get_Base_Fname 
45 C 

my ($f ilename) = (@_) ; 

$filename =- /.*?([ "\\\/3 +)$/ ; 
my $base - $1; 
50 return $base; 

} 



55 



1; # Modules must say "1" — mustn't they? 



mk_rain.pl 



################ 

# mk_ram.pl 
5 # 

# 

# This Perl-script is the "Generator_Program" 

# for the SOPC -Builder component class "altera__avalon„ram" . 

10 # This generator program is very similar to the one you'll find 

# in the "altera_avalon_uart " library directory. If you are interested 

# in reading an overlong comment which describes the operation 

# of, and philosophy behind, the standard set of generator programs, 

# I strongly suggest that you review the uart * s generator program. 
15 # It is in a file ncimed "mk_uart.pl" 

# 

use wiz_convert ; 
use wiz_utils; 

20 ###########################################################*#### 

# Mk_RAM 
# 

# Builds a Nios on-chip RAM from a list of named argiiments . 
# 

25 $Mk_RAM_Doc=«END__OF„DOCUMENTATION_STRING ; 
1 # LONG NAME SHORT NAME DEFAULT DESCRIPTION 

=i # 

Contents --none-- blank * (blank | germs | user_file) * init? 

Writeable writeable 1 ^boolean* RAM or ROM? 

;30 initfile file — none — Either . srec or .mif from user. 

r! END_OF_DOCUMENTATION_STRING 

m ################################################################ 

B 35 sub Mk_RAM 

p { 

ffi my ($arg, $user_def ined, $db_Module, $db_PTF_File) = 

rV &Process_Wizard_Script_Arguments ( $Mk_RAM_Doc , @_) ; 



I Li 



40 ScProgress ("Generating logic for': $$arg{name} . " ) ; 

my $SBI = 5cPTF_Build_Hash_From_Section ($db_Module, " SYSTEM_BUILDER_INFO" ) ; 

5cPTF_Eval ($SBI, "Address_Width" ) ; 

&PTF_Eval ($SBI, "Data_Width") ; 

45 &PTF„Eval ( $SBI , " Address_Span" ) ; 

# We have to poke-around in the SYSTEM'S WSA section to find 

# out whether we shoudl create a simulation model or not: 
# 

50 my $SysJWSA = &PTF_Build_Hash_From_Section 

($db_PTF_File, " SYSTEM/ WIZARD__SCRIPT_ARGUMENTS " ) ; 



55 



60 



################ 

# A bit of validation to make sure the number of address bits 

# is sensible for the given memory size: 
# 

my $byte_size = $$SBI {Address_Span} ; 

my $max„byte_size = 2**$$SBI {Address_Width} * ( $$SBI {Data_Width} / 

$byte_size <= $max_byte_size or die " 

Address_Width ( $$SBI {Address_Width} ) too small for memory 
$$arg{name} with $byte_size bytesNn" ; 



8) ; 



my $depth = $byte_si2e / ( $$SBI {Data_Width} / 8) ; 



my $required_address_width = &Bits_To_Encode ($depth - 1) ; 

$required_address_width == $$SBI {Address_Width} or warn " 
Suspicious address-width ( $$SBI {Address_Width} for 
Memory $$arg{name} . A memory with $depth entries only requires 
$required_address_width address bits.\n"; 



################ 

# Deal with Contents : 

# The "conents" of this memory always come from a tiie, 

# Even if we have to generate a blank one on the spot. 
# 

# The original contents-file can be either SREC or MIF, 

# and we should not assume that it's the same width as the 

# memory we're building (dealt with later, below). 
# 

my $contents_f ile_name = " " ; 

if ( ($$arg {Contents} =~ /germs/ i) ) { 

# Build a custom germs -monitor , here-and-now . 
$contents_file_name = " $$arg{system_directory} / " ; 
$contents„file_name .= " $$arg{system_.name}_germs_monitor .mi 

&Check_For_Other„Germs_Monitors ( $$arg{name} , $db__PTF_File) ; 

} elsif ($$arg{Contents} =- /user_f ile/i) { 

# Three things can happen: 

# 1) It's an S -record: Convert it. 

# 2) It's a MIF-file: Use it. 

# 3) Huh?: Die. 
# 

$contents_f ile^name = $$arg{Initf ile} ; 
$contents_f ile__name /\ . (srec jmif ) $/ or die " 

Memory $$arg{name} . 'Initfile' must be .srec or .mif. 
Got: $contents„f ile_name\n" ; 



} else { 

# Must be blank. Make a blank mif -file 

$contents_file_name = ScGenerate_Blank_Mif_File ($arg, $SBI, $depth) ; 

} 

# Before we convert the contents-file, see if we need to break it intc 

# lanes or not: 

my $num_lanes = 1 ; 

my $lane_width = $$SBI {Data_Width} ; 
if ($$arg{Writeable}) { 

$n\im_lanes = $$SBI {Data_Width} / 8; 

$lane_width = 8; 

} 

# I choose to name my converted mif-file "Me, Jr.": 

my $mif__name = " $$arg{ system_directory} /$$arg {name) .mif " ; 

# It's possible that the input mif-file isn't the same 

# width as the memory we're building. Whether it is or not, 

# we run "nios-convert . " That way, we're sure. 

my $convert_cmd = " $$arg{sopc_directory} /bin/iperl" ; 
$convert_cmd .= " -I$$arg{sopc_directory} /bin/ " ; 

$convert_cmd .= -x $$arg{ sopc_directory} /bin/nios-convert .pl'^• 



$convert_cind .= " $contents_f ile_name" ; 
$convert„cind " $ini f _name " ; 
$convert_cmd .= " --width=$lane_width" ; 
$convert_cmd .= " — lanes=$num_lanes " ; 

my $error_code = &:System_Win98_Saf e ($ convert _cnid) ; 

if ($error_code != 0) { . . . ^. ^A^^ f^-k- 

print STDERR . " Error converting initialization file tor 

$$arg{naine}\n" ; 

print STDERR " $contents_f ile_naiae\n" ; 

if ($$arg{Contents} /germs/i) { 

die " (Perhaps the Nios SDK is not installed? ) \n" ; 

} 

else C 

print STDERR " To build a 'placeholder' memory with no mit 
file,\n"; ^^^^^ sTDERR " specify 'Blank' in the On-Chip Memory 

MegaWizard An" ; 

die ; 

} 

} 

# The end result of all that fooling -around is either: 

# * A single mif-file named " $mif„name . 

# * Multiple mif -files, one-per-lane . 

# Either way, we pedantically make a "list" out of it/ them. 
# 

my @mif f ile_list = { ) ; 

if ( l$$arg{Writeable}) { 

push (@mif f ile_list, $mif_name) ; 
} else { 

my $base_name = $mif„name; 
$base_name s/\ .mif $//i; 
for (my $i = 0; $i < $n\JLm_lanes ; $i++) { 

push (@miffile_list, " $base_name\_lane__$i .mif " ) ; 

} 

} 

################ . 

# Convert all that crapola to .dat-files, if simulation is 

# required. Now you see why, above, we made a list of all MIF-files, 

# in the ROM case, when there was only one file. 

# Everything else in here handles our contents-file by its full 

# or relative path (whatever $arg{system_di rectory} is) . But 

# here, we do something special to "hide away" the .dat-files 

# in their own secret directory. 

my %datfile_hash; # Save dat-file names in here, indexed by mif-file. 
if ($$Sys_WSA{do_build_sim} ) { 

ScProgress ("Converting simulation file(s) for $$arg{name} " ) 
if $$arg {verbose} ; 

foreach $mif„file (@mif f ile_list ) { 
my $dat_name = $mif_file; 

$dat_name s/ .*?( E'^WX/ 1 +)$/$!/ ; # Strip-off leading path 

$dat_name =- s/\ .mif /\ .dat/i; # Change extension 

&Convert__Mif_To_Dat ($mif_f ile, " $$arg{ system_sim_dir } /$dat„name" ) ; 
$datf ile_hash{$mif_f ile} = $dat_name; 



} 

} 



my $top_file = " $$arg{systeiti_directory} /$$arg{name} . v" ; 
my @synth_f ile_list = ($top_file); 

################ 

# Now run vpp. 
# 

# notice that we build two entirely-different things, 

# depending on whether this is a RAM or a ROM. 
# 

# That is a true fact. You might have done it differently. 

# but -you- were comfortably asleep in your nice, warm bed 

# while -I- was doing it. 
# 

if ($$arg{Writeable}) { 

# Run Vpp several times to make the byte-lane modules . 

# Regrettably, there must be multiple separate black-boxes 

# because the synthesis tool doesn't handle parameterization 

# correctly and, obviously, each lane has a different init-file 

# parameter. And since there is one black-box per lane, there 

# needs to be one -file- per lane, because Quartus resolves 

# (fills-in) black-boxes by -filename. - 
# 

for (my $i = 0; $i < scalar (@miffile_list) ; $i++) { 
my $mif_file = $mif f ile„list [ $i] ; 

my $lane_module_name = " $$arg{name}_lane_$i " ; 

my $lane_file_name = " $$arg{ system_directory} /$lane„module_name .a 
push (@synth_f ile_list, $lane„f ile_name) ; 

ScVpp ("-Q", 

n_o" , " $lane_f ile_name" , 

"ONCHIP_FtAM_LAlsrE_MODUIiE_NAME = $lane„module_name" , 
"ONCHIP_RAM_WIDTH = $$SBI {Data_Width} " , 

"ONCHIP_RAM_DEPTH = $depth" , 

"ONCHIP„RAM_MIF_FILE = $mif_f ile" , 

"ONCHIP_RAM_DAT__FILE = $datf ile_hash{ $mif _f ile} " , 

"-H" , "$$arg{sopc_.directory} /bin/vpp/generator_f unctions .vpp 
" $ $arg { c 1 as s_di rectory} / onchip_ram_byte_lane . vpp " , 

) ; 

} 

# Making a RAM requires both byte-lanes and a box to put them 

# in. Run Vpp again to build the top-level module. 
ScVpp ("-Q", 

"-0" , "$top„f ile" , 

" ONCHI P_RAM_MODUIiE„NAME = $ $ ar g { name } " , 

"ONCHIP_RAM_WIDTH = $$SBI {Data_Width} " , 

«ONCHIP_RAM_DEPTH = $depth" , 

"-H" , " $$arg{sopc_directory} /bin/vpp/generator_f unctions .vpp" , 
" $$arg{class_directory}/onchip_ram. vpp" , 

) ; 

} else { 

# You can make a ROM with only one module: 

my $dat_f ilename = $datf ile_hash{$mif f ile_list [0] } ; 
&Vpp ("-Q", 

"-0" , "$top_f ile" , 

" ONCHI P_ROM__MODUIiE_NAME = $$arg{name } " , 

" ONCHI P_ROM_DEPTH = $depth" , 

" ONCHI P_ROM_WIDTH = $$SBI{Data_Width} " , 

"ONCHIP_ROM_MIF„FIIiE_NAME = $mif_name" , 

"ONCHIP_ROM__DAT_FII.E_NAME = $dat_f ilename" , 



"-H" , "5f5rg{sopc_directory} /bin/vpp/generato^functions .vpp" 
" $ $ ar g { c las s_di r ec t ory } / onchip_r om . vpp " , 

) ; 

} 

# We need to list our MIF-files, so their names can be "crushed" if 

# required for MaxPlus+II ( two) . 
# 

£cAdd_HDL._INFO_F i 1 e s_To_PTF 

($db_Module, "MIF_Files", @mif f ile_list ) ; 

&Fill_In„Sections_And„Save_PTF_File ( $db_PTF_File, $arg, (isynth_f ile_ 



} 



################################################################ 

# &Generate_Blank_Mif_File 
# 

# This function, xim, generates a blank. . .mif file. 
# 

# You pass-in the $arg-hash (ref) from mk_RAM, so we have all the 

# information we might ever need. To generate a blank mif -file, 

# you don ' t need that much info . 
# 

################################################################ 

sub Generate_Blank_Mif_File 

{ 

my ($arg, $SBI, $depth) = (@_) ; 

my $mif_header =«EOM; 
/* This source file generated by mk_ram.pl {&Generate_Blank_Mif_File) * / 
/* This file is used to initialize the memory-type module named: */ 
/* $$arg{name} */ 

WIDTH=$$SBI{Data_Width} ; 
DEPTH=$depth; 
ADDRESS_RADIX=UNS ; 
DATA_RADIX=HEX ; 
CONTENT BEGIN 



EOM 

my $blank_mif_name = " $$arg{syst em_direct ory} /$$arg {name }_blank .mif " ; 

open (MIFOUT, "> $blank_mif_name" ) or die 
"Couldn't open $blank_mif_name : $!"; 



print MIFOUT $mif_header; 
for (my $i=0; $i < $depth; $i++) { 
print MIFOUT "$i : 0;\n"; 

} 



print MIFOUT "END;\n"; 
close (MIFOUT) ; 

return $blank_mi f _name ; 

} 

################################################################ 

# &:Check_For_Other_Germs_Monitors 
# 

# Riffle through the PTF-file and see if there are any other 

# GERMS -monitor-bearing memories. If there are, emit a warning. 

# There must be only one. 



sub Check_For_Other_Genns„Moni tors 
{ 

my ($rom_naine, $db_PTF_File) = (@_) ; 

my $db„Sys = &PTF_Get__Required_Child_By_Patli ( $cib_PTF_File, "SYSTEM"); 



my $num_children = &get„child_count ($db_Sys); 

for ($child_index = 0; $child_index < $num_children; $child_.index++) { 
my $db„Module = &get_child {$db_Sys-, $child_index) ; 

next if &get_name ($db_Module) ne "MODULE"; # ignore non-modules, 
next if &:get_data {$db_Module) eq $rom_najne; # ignore myself. 

# The final "0" argument here means" It's ok if this section 

# doesn't exist". 

my $WSA = &PTF_Build_Hash_From_Section ($db_Module, 

"WIZARD_SCRIPT_ARGUMENTS" , 0 

next unless $$WSA{ Contents} =~ /germs/i; 

my $nasty_module_name - &get_data ($db_Module) ; 

warn ("WARNING: More than one memory contains a GERMS monitor: 
$rom_name and $nasty_module_naine 
Each system should have only ONE memory with a GERMS monitor. \n") 

} 

} 

################################################################ 

# System_Win98„Safe 
# 

# Win-98-safe "wrapper" for Perl's built-in 'system' command. 
# 

# Windows-98 can't handle an executable -name ($ARGV[0]) which 

# has forward slashes in it. WinNT and Win2000 can handle 

# either forward- or backward-slashes. So, if we notice that 

# the operating system is Windows (or Cygwin) , then we convert 

# forward-slashes to backslashes in -only- the program-name 

# part of the sys tern- command. We leave all the arg\iments 

# alone — whether ' / ' or ' \ ' is OK in an arugment is entirely 

# up to the program. 
# 

################################################################ 

stib System_Win98_Saf e 

{ 

my (©command parts) = (@_) ; 

my $sys_cmd = join (" ", @command_parts) ; 

$sys_cmd =- /^\s* {\S+) \s+ { ,*) $/ or die 

" System_Win98_Saf e : Suspicious system-command : $sys_cmd" ; 

my $program_path = $1; 
my $ arguments = $2 ; 

$program_path s|/|\\|g if ($""0 / (MSWin | cygwin) /i) ; 

my $new_sys_cmd = " Sprograia path $arguments"; 
system ( $new_sys_cmd) ; 

my $error_code = ($? » 8) ; 
return $error_code; 

} 



################################################################ 

# Execution begins here 

################################################################ 
&Mk_RAM (SARGV) ; 



mk_pio .pi 



################ 

# mk_pio.pl 
# 

# This Perl-script is the " Genera tor^Program" 

# for the SOPC-Builder component class "altera_avalon_pio" . 
# 

# This generator program is very similar to the one you'll find 

# in the "altera_avalon_uart " library directory. If you are interested 

# in reading an overlong comment which describes the operation 

# of, and philosophy behind, the standard set of generator programs, 

# I strongly suggest that you review the uart ' s generator program. 

# It is in a file named "mk_uart.pl" 
# 

use wiz_utils; 



################################################################ 

# Mk_PIO 
# 

# Builds a Nios PIO peripheral from a list of named arguments. 
$Mk_PIO_DOC=«END__OF_DOCUMENTATION_STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 
# 



has_tri tri 

has__out out 

has__in in 

edge_type edge 

irq_type irq 



NO 

YES 

YES 

NONE 

NONE 



*boolean* Tristatable pins? 
*boolean* Dedicated output pins? 
*boolean* Dedicated output pins? 

* {NONE 1 RISING | FALLING \ ANY) * 

* (NONE I LEVEL | EDGE ) * Type of IRQ? 



END_OF_DOCUMENTATION_STRING 

# 

# 

################################################################ 

sub Mk_PIO 

{ 

my ($arg, $user_def ined, $db_Module, $db_PTF_File) = 
&Process_Wizard_Script_Arguments ( $Mk_PIO__Doc , @_) ; 

my $SBI = &PTF_Build_Hash_From_Section ($db_Module, " SYSTEM_BUILDER_INFO " 
&Vpp ("-Q", 

"-0" , "$$arg{system_directory} /$$arg{name} .v" , 



" PIO_MODULE_NAME 
" PIO_MODULE_NAME 
" PIO_TRISTATE_PINS 
" PIO_OUTPUT_PINS 
" PIO_INPUT_PINS 
" PIO_EDGE_CAPTURE 
"PIO_INTERRUPT 
"PIO_BITS 
"-H" , 



$$arg{name} " , 
$$arg{name} " , 
$$arg{has_tri} " , 
$$arg{has_out} " , 
$$arg{has_in} " , 
$$arg{edge_type} " , 
$$arg{irq_type} " , 
$$SBI{Data_Width} ' 



"$$arg{sopc_directory} /bin/vpp/generator_functions . vpp" 
" $$arg{class_directory} /pio_core . vpp" , 

) ; 

&Fill_In_Sections_And_Save_PTF_File { $db_PTF„File, $arg) ; 



} 



################################################################ 
# Execution begins here 

################################################################ 
&Mk_PIO (@ARGV) ; 



mk_spi .pi 



################ 

# ink_spi.pl 

# This Perl-script is the "business end" of the 

# Nios SPI Wizard. The Wizard itself is a GUI-layer 

# which quizzes the user and passes his (her) choices 

# along to this very script. 
10 # 

# The kind of spi core we build depends on the 

# parameters we get. The parameters are "named arguments," 

# Named argioments are one long comma-delimited string, 

# a list of 'normal' command-line arguments, or any combination 
15 # of both (we just smash all the command-line arguments together 

# into one long string anyhow) . 
# 

# The comma-delimited elements have the form: 

# <arg_name> = <value> . 

20 # .... 

# For a list of all the argument -names and their allowed values, 

# see the table below, 
# 

use wiz_utils; 

25 

□ ########################################################*##*##** 
d # mk_spi 

03 # . ^ 

111 # Builds a Nios spi interface from a list of named argijments. 

Sso # 

$ink_.spi_Doc=«END„OF_DOCUMENTATION_.STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 



databits —none-- 8 *(\d+)* niimber of data bits. 

35 clockdiv —none— —none— *(\d+)* SCLK-gen divisor. 

numslaves —none— 1 *(\d+)* Number of slave devices, 

ismaster —none— 1 *(Oll)* If 1, master else slave, 

clockpolarity —none— 0 *(0|l)* If 0, clock idles low. 

clockphase —none— 0 *(0|1)* (see note, below) 



It 40 Isbfirst —none— 0 MO|l)* 0 — > data is MSB first. 

targetclock —none— 1 User's target SCLK frequency (Hz). 

^ targetssdelay —none— 1 User's target delay after SS„n (s) . 

extradelay —none— 0 MOjl)* Boolean - if 0, no extra delay. 
END_OF_DOCUMENTATION_STRING 

45 # 

# 

# The "clockphase" argument: 

# If 0, data is sampled on transition-to-idle of SCLK. 
# 

50 # The '^delayaf terss" argument: 

# Delay after SS_n before data transmission starts, in SCLK half -cycles. 

# Note: delayafterss is a historical relic. In these modern times. 
spi_core.vpp 

55 # calculates its own delayafterss value, using the system clock rate ana tne 

# user's targetssdelay value. 

!############################################################### 

sub mk_spi 

60 { 

my ($arg, $user_def ined, $db_Module, $db_PTF_File) ^ 
&Process_Wi2ard_Script_Arg\aments ($mk_spi„Doc, @_) ; 



&Progress ("Generating logic for: $$arg{naine} . " ) ; 



# The system clock rate is part of the equations that generate 

# actual SCLK and delay-af ter-ss values from the user's target 

# values. It's easy to read the ptf file here, so grab the clock 

# rate and pass it along. 

my $clock_freq = ficPTF_Get_Required_Data_By_Path ( $db_PTF_File , 
" SYSTEM/WIZARD__SCRIPT_ARGUMENTS/clock_f req" , 
"System clock frequency not specified"); 



&Vpp {"-Q", 

"_0", " $$arg{system_directory} /$$arg{name} .v", 
"SPI__MODUIiE_NAME = $$arg{name} " , 
"DATABITS = $$arg{databits} " , 

"NUMSLAVES = $ $arg {nums laves }" , 

"ISMASTER = $$arg{ismaster} " , 

"CPOIj = $$arg{clockpolarity} " , 

"CPHA = $$arg{clockphase) " , 

"LSBFIRST = $$arg{ Isbf irst} " , 

"INPUT_CLOCK = $clock_f req" , 

"TARGETCLOCK = $$arg{ targetclock} " , 

" TARGETS SDELAY = $$arg { targetssdelay } " , 
"EXTRADELAY = $$arg{extradelay} " , 

"-H" , " $$arg{sopc_directory} /bin/vpp/generator_f unctions .vpp' 
"$$arg{class_directory} /spi_core .vpp" , 

) ; 

£cFill__In_Sections_And_Save_PTF_File ( $db_PTF_File, $arg) ; 

} 

################################################################ 
# Execution begins here 

################################################################ 
&mk_spi {@ARGV) ; 



mk_timer .pi 

################ 

# mk„timer .pi 
# 

# This Perl-script is the "Generator_Prograin" 

# for the SOPC-Builder component class "altera_avalon__pio" . 
# 

# This generator program is very similar to the one you'll find 

# in the "altera_avalon_uart " library directory. If you are interested 

# in reading an overlong comment which describes the operation 

# of, and philosophy behind, the standard set of generator programs, 

# I strongly suggest that you review the uart ' s generator program. 

# It is in a file named "mk_uart.pl" 
# 

use wiz_utils; 

################################################################ 

# Mk_Timer 
# 

# Builds a Nios timer from a list of named arguments. 
$Mk__Timer_Doc=«END_OF_DOCUMENTATION_STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 

# 

# -- At present. Timers are just timers. They don't really 

# depend on any timer-specific arguments. Howd'ya like that? -- 

END_OF_DOCUMENTATION_STRING 

# 

# 

################################################################ 

sub Mk__Timer 

{ 

my ($arg, $user_de fined, $db_Module, $db_PTF_File) = 
&Process_Wizard„Script_Arguments ( $Mk_Timer_Doc , @_) ; 

ScProgress ( "Generating logic for: $$arg{name} . " ) ; 

&Vpp ("-Q", 

"-0" , "$$arg{system_directory}/$$arg{name} .v" , 
" T IMER_MODULE_NAME = $ $ ar g { name } " , 

"-H" , " $$arg{sopc_directory} /bin/vpp/generator_functions .vpp" , 
" $$arg{class_directory} /timer .vpp" , 

) ; 

&Fill_In_Sections_And_Save_PTF„File ( $db_PTF_File, $arg) ; 

} 



################################################################ 
# Execution begins here 

################################################################ 
&Mk_Timer (@ARGV) ; 




ink_uart . pi 



################ 

# mk_uart.pl 
# 

# This Perl-script is the "Generator_Prograin" 

# for the SOPC -Builder component class "altera_avalon_uart " . 
# 

# This program (Perl script) is launched by the 

# SOPC-builder wizard as part of the "generation" phase. 

# "Generation" takes place after the user presses the wizards' 

# "Finish" button, but before synthesis takes" place. During this 

# time, HDL-files for all components in the system are created. 

# Each modules' HDL-files are (one presumes) 

# generated by its " Genera tor„Program. " This here is the 

# generator-program what generates UARTS . 
# 

# You may sensibly ask: How do we Imow what kind of UART to 

# generate, given that there are oh-so-many options and parameters? 

# Easy. The specification for the UART we are to build is 

# contained in the system's PTF-file. 
# 

# We can find the PTF-file by using our command-line arguments. 

# All generator-programs run by the SOPC-builder get the sajne 

# set of command-line arguments, which are: 



# 

# --system__name=<sys_name> 
# 

# Gives the name of the system module which will contain the 

# module we're supposed to generate. We need the name of the system 

# (and the directory, above) so that we can find the system's 

# PTF-file. We can't do Jack without the PTF file. 
# 

# -system_directory=<system-directory-path> 
# 

# Gives the name of the directory where we are to generate 

# our Verilog files, and in which the system PTF-file can be found. 

# This is typically the users' quartus project directory. 
# 

# -target_module_name=<mod-name> 
# 

# Gives the name of the module in the system PTF file which 

# we are supposed to generate. This lets us extract the appropriate 

# options, parameters, and whatnot from the PTF-file so that 

# we generate the right thing, and give it all the right name 

# when we ' re done . 
# 

# — sopc_directory=<lib_dir> 
# 

# Gives the full path naitie for the SOPC-Builder installation 

# directory. From here, we can find all the relevant SOPC 

# Perl-scripts and utility programs (in the . . . \bin subdirectory) . 

# We can also find any and all installed library components 

# (by-name in the . . . \components subdirectory) including, 

# significantly, the library for the very component we're trying to 

# generate. We must know where this library component 

# and all its support files reside (including, for example, its 

# " class. ptf" file) . This makes it easy to find all the 

# "raw materials" we need to create the module that this 

# "genarator_program" is supposed to generate. 
# 



# 

# You may notice that most of the work performed by this 



i^j^ne by handily-dandily library fiii^^^>; 



# generator program i^^fbne by handily-dandily library f im^Wons . 

# Indeed, the "wiz_utils" Perl library ( .pm module) contains functions 

# which are a boon to the generator program author. Here is a 

# brief description of the library functions used by this 

# generator program. I list them here in the fond hope that they 

# might be useful to someone else trying to create their own 

# generator program. 
# 

# This generator program uses the utility functions : 
# 

# &Process_Wizard_Script_Arcruments 
# 

# (from the library "wiz_utils .pm" ) This function takes our 

# input arguments (listed above) and uses them to: 
# 

# * Find and open the system PTF file. 
# 

# * Extracts this modules' WIZARD_SCRIPT_ARGUMENTS section. 
# 

# * Reads all the arguments and verifies them against a document 

# which describes what we expect 

# (see DOCUMENTATION_STRING, below) . 
# 

# * Passes -back all the arguments in a hashref we lovingly 

# refer to as $arg. 
# 

# * Hands us back a reference to the freshly-opened PTF- file 
# 

# * Sets a lot of handy global variables, like $QUARTUS_PROJECT_DIR 
# 

# In short, this function does just about evearything we need to do 

# to find and read this modules ' parameters out of the system PTF file 
# 

# ScF i 1 l_In_Sec t i ons_And_Save_PTF_F i 1 e 
# 

# (from the library "wiz_utils .pm" ) You run this program after 

# you have generated all the logic (HDL) for your module. This 

# function fills-in your modules' PTF-section with lots of useful 

# information. In particular, it adds data to the PORT_WIRING 

# section which agrees with the actual ports present on your 

# module. This only works, of course, if your module logic was 

# generated by VPP. 
# 

# And I hear you asking: "What, exactly, is Vpp?" 
# 

# Ah, yes. Vpp. Vpp is a Verilog/Perl hybrid, the purpose of which 

# is to generate plain-vanilla Verilog output. Vpp is a very powerful 

# way to generate lots of parameterized, conditionalized, itemized, 

# and sanitized logic from good-old Perl, the language we all love so 

# much. If you want to learn all about Vpp, there is an admirably- long 

# comment atop the library file "vpp.pm" With that, I leave you 

# to your own spunk and initiative to learn about Vpp. 
# 

# 

use wiz_utils; 

################################################################ 

# Mk_Uart 
# 

# Builds a Nios uart from a list of named arguments, 

# These arguments are actually fi shed-out from the 

# WIZARD_SCRIPT_ARGUMElsrTS section of the system PTF file. 

# We can find the system PTF file by following the trail 



# 
# 
# 

$Mk_Uart„Doc=«END_OF_DOCUMENTATION_STRING 



of breadcrxombs provroSd in our actual, official command 
arguments ("-directory" and such) described above. 



# LONG NAME SHORT NAME 



DEFAULT 



DESCRIPTION 



10 



baud 

f ixed_baud 
parity 
data_bits 
stop_bits 



baud 

fix__b 

par 

bits 

stop 



115200 

1 

N 

8 

2 



Uart baud rate . 

*boolean* Delete baud register? 
* (N|ElO| S1|S0) * Parity type. 
*(8|7)* Numer of data bits 
*(1|2)* Number of stop bits. 



15 
20 
25 
10 



END_OF_DOCUMENTATION„STRING 

# 

# 

################################################################ 

sub Mk_Uart 

{ 

my ($arg, $user_def ined, $db_Module, $db_PTF_File) = 
&Process_Wizard_Script_Arguments ( $Mk_Uart_Doc , ; 

ScProgress {"Generating logic for: $$arg{name} . " ) ; 

# The only required information which isn't supplied to the 

# uart directly in its own PTF-section is the system clock 

# frequency. We just have to riommage around in the system's 

# top-level PTF data to get that: 

my $clock_freq - &PTF_Get_Required__Data_By_Path ( $db_PTF_File, 
" SYSTEM/WIZARD_SCRIPT_ARGUMENTS/clock_f req" , 
"System clock frequency not specified"); 



J5 



1^ 
40 



45 



&Vpp ("-Q", 

" -O" , " $$arg{system_di rectory} /$$arg{name} . v" 



= $ $arg { name } " , 
= $$arg{baud} " , 
= $ $ ar g { f ixed_baud } " , 
$Sarg{parity} " , 
$$arg{data_bits} " , 
$$arg{stop_bits} " , 
= $clock_f req" , 
$$arg{sopc_directory} / bin /vpp/generator_funct ions .vpp" , 
$ $arg { c lass_direc t ory } /uart_core . vpp " , 
$$arg{class_directory} /rx, vpp" , 
$$arg{class_directory} /tx . vpp" , 



" UART_CORE_MODULE_NAME 
" UART_BAUD_RATE 
" UART_F IXED_BAUD_RATE 
"UART_PARITY 
" UART_DATA_BITS 
" UART_STOP_BITS 
" UART_INPUT„CLOCK_FREQ 
"-H" 



) ; 



&Fill_In_Sections_And_Save_PTF_File ( $db_PTF„File , $arg) ; 



50 



################################################################ 
# Execution begins here 
55 ################################################################ 
&Mk_Uart (@ARGV) ; 



ink_usersocket . pi 

################ 

# mk_usersocket.pl 
# 

# This Perl-script is the "business end" of the 

# Nios User Socket Wizard. The Wizard itself is a GUI-layer 

# which quizzes the user and passes his (her) choices 

# along to this very script. 
# 

# The kind of user socket we build depends on the 

# parameters we get. The parameters are "named arguments," 

# Named arguments are one long comma -de limited string, 

# a list of 'normal' command-line arguments, or any combination 

# of both (we just smash all the command- line arguments together 

# into one long string anyhow) . 
# 

# The comma-delimited elements have the form: 

# <arg_name> = <value> . 
# 

# For a list of all the argument -names and their allowed values, 

# see the table below. 
# 

use wiz_utils; 

################################################################ 

# Mk_UserSocket 
# 

# 

# Under the new "one-PTF" regieme, user-socket wizards are a bit of an 

# odd duck. The "Generator Program" (the very script you're reading 

# now) doesn't actually -do- much, because there's no logic 

# (HDL-content ) associated directly with the user-defined interface. 

# The interface is just a bunch of ports. 
# 

# So, our responsibility, really, is to fill-in the relevant PORT_WIRING 

# section in the PTF-file. 
# 

# Notice that, for user-sockets, the Java wizard is responsible for 

# all of the assignments in the SYSTEM_BUILDER_INFO section--as it 

# must be, or else the sopc-builder table wouldn't know what to do 

# with this thing (SBI must be complete when the sub-wizard exits) . 
# 

# Consequently, the user-socket wizard's method of telling us (the 

# generator progrcum) what to do is through the SBI-settings 

# themselves . 
# 

# If you choose to look at it this way, the entire -point- of the 

# user-socket java-wizard is to provide a GUI for all the SBI settings. 
# 

it^ $pc = "peripheral_controlled" ; 

# Builds a Nios timer from a list of neimed arguments. 
$Mk_UserSocket_Doc=«END_OF_DOCUMENTATION_STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 

# 

keep legacy ports legacy 0 Don't generate new port list. 

END„OF_DOCUMENTATION_STRING 

# 

# 

################################################################ 

sub Mk„UserSocket 

{ 





my ($arg, $user_delS!ied, $db_Module, $db_PTF_File) - 

&Process__Wizard_Script„Arguments ( $Mk_UserSocket„Doc , @_) ; 

ficProgress ( "Generating port list for: $$arg{name} . " ) ; 

my $SBI = &PTF_Build_Hash_From_Section ($db_Module, " SYSTEM_BUILDER_INFO" 
&PTF_Eval ($SBI, "Address_Width" ) ; 
&PTF_Eval ($SBI, "Data_Width" ) ; 

if ( ( ! $$arg{keep_legacy_ports} ) ) { 

&Iiist_Ports_For_User„Socket ($arg, $SBI) ; 
&Add_jy[odule_Port s_To_PTF { $db_Module , $ $arg {name } ) ; 
&vynrite__ptf_f ile ( $db_PTF_File) or die 

"Couldn't write PTF File when generating $$arg{name} " ; 

} 



} 



################################################################ 

# List_Ports_For_User„Socket 
# 

# Builds-up a string that describes the socket's ports, then 

# calls "&List_Ports_For" . 
# 

# Uses, mostly, information out of the SYSTEM:_BUIIjDER_INFO section 

# to f igger-out what ports this thing has . 
# 

################################################################ 

sub List„Ports_For_User_Socket 

{ 

my ($arg, $SBI) = ; 

my $be_width = &ciel ( $$SBI {Data_Width} / 8) ; 

my $D_bits = $$SBI {Data„Width} ; # short names for pretty tables, 

my $A_bits = $$SBI {Address_Width} ; # short names for pretty tables, 

my $has_wait_pin = ( $$SBI {Read_Wait_States} =- /'"periph/i | | 

$$SBI{Write_Wait_States} /'"periph/i ); 

my $data_is_shared = $$SBI {Uses_Tri_State_Data„Bus} ; 
my $control_is_shared = ( $data_is„shared ) && 

($$SBI{Setup_Time} == 0) && 

($$SBI{Hold_Time} ==0) 

my Sirg port = "irq | 1 | O | avalon_role = irq" ; 

my $wait_port = "wait | 1 | O | avalon_role = waitrecjuest " ; 

my @unshared_ports = ( 
"chipselect | 1 | I ] avalon_role = chipselect " ) ; 

my @shared_with_data_ports = ( 
"byteenablen | $be_width | I | avalon_role = byteenablen" , 

"address \ $A_bits | I j avalon_role = address" ); 

my @sometimes_shared_control^orts = ( 
"writen | 1 | I | avalon_role = writ en" , 

"readn | 1 j I \ avalon_role = readn" ) ; 

if ($$SBI{Uses_Tri_State„Data_Bus} ) { 
$data_is_shared = 1; 
push ( @shared_with_data_ports , 

"data I $D_bits | inout | avalon_role = data"); 

} else { 

push ( @unshared_ports , 

"readdata | $D_bits 1 O | avalon_role = readdata" , 



_ s I I I avalon role = writeaatc 



"writedata | $D_Bxt:s | I | avalon_role = writeoata" ) ; 
} 

push (@iinshared_ports, Sirg port) if $$SBI {Has_IRQ} ; 

5 push {@unshared_ports , $wait_port) if $has_wait_pin; 

# Add "shared" attribute to all ports that might need it: 
# 

10 for (my $i=0; $i < scalar (^shared with data ports) ; $i++) { 

$shared_.with_data_ports [$i] . = " | is_shared - $data_is_shared" ; 

} 

for (my $i = 0; $i < scalar (©some times_shar ed_control^orts ) ; $i++) { 
15 $sometimes_shared_control__ports [$i] .= " | is_shared= $control_is_shared" 

} 

my @port_list = (@unshared_ports , 

@shared_with_data_ports , 
20 ©sometimes shared control ports, 

) ; 

&List_Ports_For ($$arg{name} , @port_list) ; 

} 

25 

□ 

C= ################################################################ 

gl # Execution begins here 

g ################################################################ 
g) &Mk_UserSocket (@ARGV) ; 

Q 



mk_.nios .pi 



################ 

# mk„nios.pl 
# 

# This Perl-script is the " Genera tor_Prograin" 

# for the SOPC -Builder component class " alter a_nios_cpu" . 
# 

# This generator program is very similar to the one you'll find 

# in the "altera_avalon_uart " library directory. If you are interested 

# in reading an overlong comment which describes the operation 

# of, and philosophy behind, the standard set of generator programs, 

# I strongly suggest that you review the uart ' s generator program. 

# It is in a file named "mk_uart.pl" 
# 

use wiz„convert; 
use wiz_utils; 



################################################################ 
# 

# Mk_.Nios 
# 

# Builds a Nios core from named arguments, including all 

# design and support files, plus synthesis script. 
# 

$Mk_Ni os_Doc=« END_OF_DOCUMENTAT I ON_STRING ; 

# LONG NAME SHORT NAME DEFAULT DESCRIPTION 

# 



num_regs 


regs 


25 


shif t_size 


shift 


7 


mstep 


mstep 


1 


multiply 


multiply 


0 


wvalid_wr 


wr_wv 


0 


rom_decoder 


--none-- 


1 


*reset_module 


--none — 


--none-- 


reset_of f set 


— none-- 


0 


*vecbase_module 


--none-- 


— none-- 


vecbase_of f set 


--none — 


0 


mm_span 


mm_span 


--none-- 


mm_base 


mm^base 


— none-- 



* (128|256|512)* Reg file size. 
*(1|3|7|15|31)* Bits/clk shift speed 
♦boolean* Include MSTEP unit? 
♦boolean* Include multiply unit? 
*boolean* Writeable WVALID reg? 
♦boolean* Decoders in ROM? 

CPU reset vector lives in here . 

Reset vec offset from device base 

CPU vector table lives in here. 

Vecbase this far from device base . 

main memory address span. 

main memory base address . 



END_.OF_DOCUMENTATION_STRING 

# 

# 

################################################################ 

sub Mk_Nios 

{ 

my ($arg, $user_de fined, $db__Module, $db_PTF_File) = 
ScProcess_Wizard_Script_Arg\aments ( $Mk_Nios_Doc , @_) ; 

# Allow expressions, hex-numbers, etc. for the address-offsets 
# 

&PTF_Eval ($arg, " reset_of f set " ); 

&PTF_Eval ($arg, "vecbase_of f set " ); 



^Progress {"Generating Nios CPU: $$arg{name} . " ) ; 
################ 

# We'll be rvimmaging-around in the system PTF file quite a 

# lot, so a handle to the " SYSTEM" -section and some of its important 

# children would be useful, 

my $db_Sys = ScPTF_Get_Required_Child_By_Path ( $db_PTF_FiIe , 

"SYSTEM" ) ; 



my $SBI - &PTF_Bu5Lld__Hash_From_Section ($db_Module, 

"SYSTEM„BUILDER_INFO" ) ; 
my $Sys_WSA = &:PTF_Build_Hash_From„Section ($db_Sys, 

"WIZARD_SCRIPT_ARGUMENTS " 
&PTF_Check_Bool ( $Sys_WSA, " do_build_sim" , 0 ) ; 

&PTF„Def ault ( $Sys_WSA, "device_family" , "APEXaOK" ) ; 



################ 

# Get globals that will control synthesis and place and route 
# 

my @globals_2_control_synthesis__place_and_route - 

&f illup_synthesis_place_and_route_globals ($db„Module) ; 

################ 

# Start a ' rummagin ' . 
# 

# Go through all the modules in the system and see if any have a 

# "registered chip select." If (and only if) any module does, then 

# the CPU needs to be built with the "idle„cycle" option set to "YES" 
# 

# While we're looping through every module, now would also be a good 

# time to pull-out the base-addresses of the modules designated 

# as the reset-module and the vecbase-module, respectively. 
# 

my $reset_base_address = 0; 

my $vec_table_base_address = 0 ; 
my $ do_u s e_i dl e_cy c 1 e = 0 ; 

my $n\im_children = &get_child_count ( $db_Sys) ; 

for (my $child_index = 0; $child_index < $num_children; $child__index++) 

my $db_Module - &get_child ($db_Sys, $child_index) ; 
next unless &get_name ($db_Module) eq "MODULE"; 
my $module_name = &get_data ($db_Module) ; 

# If this is the designated reset- (or vecbase-) module, 

# remember the base-address. 
# 

if ( $module_naine eq $$arg{reset_module} ) { 

$reset_base_address - &PTF_Get_And_Evaluate_Data_By_Path 
( $db_Module , " SYSTEM_BUILDER_lNFO/Base_Address " ) ; 

} 

if ( $module_naine eq $$arg{vecbase_module) ) { 

$vec_table_base_address = &PTF_Get_And_Evaluate_Data_By_Path 
( $db_Module , " SYSTEM_BUIIiDER_INFO/Base„Address " ) ; 

} 

# If this module has any registered chip-selects, then there 

# will be a special assignment to this effect in its SBI-section; 
# 

$do_use_idle_cycle = 1 

if &:PTF_Get_Boolean_Data__By_Path ($db_Module, 

" SYSTEM_BUILDER_INFO/Uses_Regis tered_Select_Signal " 
"FAIiSE" ) ; 

} 

my $vecbase_address = $vec_table_base_address + $$arg{vecbase_of f set } ; 
my $reset__address = $reset_base_address + $$arg{reset_of f set} ; 

# For historical reasons, the Nios VPP-stuff wants the niamber of 

# address bits converted to the "highest system address." Fine, 
my $highest_address = ( 2**$$SBI {Address_Width} ) - 1; 



################ 

# User-instructions . 
# 

# Read and inteirpret any USER_INSTRUCTION sections 

# of the CPU modules' PTF. Here's an example of a "USER_INSTRUCTION" 

# section: 



# 

# USER_INSTRUCTION MAD_FMUIi 

# { 

# format=«RR" ; 

# opcode=" 011100 " ; 

# uses_pref ix="l" ; 

# has_sequential_logic= " 1 " ; 

# top_module_name = "MAD_FMUIi_Unit " ; 

# do_synthesize_top= " 1 " ; 
# 

# HDLi_INFO 

# { 

# synthesis_f iles = " finul_impleinentation . v" ; 

# } 

# } 
# 



# Information about the instructions we find is (evilly) passed 

# to the Nios generator-programs through (gasp!) global variables 

# They have scary-looking all-caps names that start with "NIOS", 

# so it should be pretty hard to get into trouble. 
# 

# Also, now's the time when we start accumulating HDL-files 

# for synthesis, if any. 
# 

# NOTE: This feature is in a sort of pre-release limbo. It's here, 

# but we're not really telling anyone about it (if you're reading 

# this comment, consider yourself a lucky winner) . For this reason, 

# error-checking is pretty minimal . It would be easy to make 

# an invalid USER_INSTRUCTION section that would crash the 

# Nios-generation step. Caveat usor. 
# 

# Note that this time we're looping -through the Nios ' s sub-sections, 

# instead of the system's sub-sections: 
# 

$NIOS_HAS_USER_INSTRUCTIONS = 0 ; 
$NIOS_USER_INSTRUCTION_SUPPORT_PREFIX = 0; 

undef %NIOS_USER_INSTRUCTION_FORMAT; # Null-out our globals 

undef %NIOS_USER_INSTRUCTION_OPCODE ; 

undef %NIOS_USER_INSTRUCTION_GETS_PREFIX ; 

undef %NIOS_USER_INSTRUCTION_IS_SEQUENTIAI. ; 

\indef %NIOS_USER_INSTRUCTION_MODULE„NAME ; 

undef %NIOS_USER„INSTRUCTION_IS„BLACK_BOX ; 

@NIOS„USER_MNEMONIC_LIST = (); 

my @Instruction_Unit_Synth_File_List = ( ) ; 

my $num_children = &get_child_coxmt ( $db_Module) ; 

for ( $child_index = 0; $child_index < $num_children; $child_index++) 
{ 

my $db_Instr = Scget_child ( $db_Module, $child_index) ; 
next unless &get_name ($db_Instr) eq "USER.INSTRUCTION" ; 
$NIOS_HAS_USER_INSTRUCTIONS= "Yes , indeedy " ; 

my $mnemonic = &get_data ($db_Instr) ; 

push (@NIOS_USER_MNEMONIC_LIST, $mnemonic) ; 



$NIOS_USER_INSTRUCTION_FORMAT { $innemonic } = 

&PTF_Get„Required_Data_By_Path ( $db_Instr , " format" ) ; 
$NIOS_USER_INSTRUCTION_OPCODE C$mnemonic} = 

&PTF_Get_Required_Data„By_Path ($db__Instr, "opcode") ; 
$NIOS_USER_INSTRUCTION_GETS_PREFIX {$mnemonic} = 

&PTF_Get„Boolean_Data_By_Path {$db_Instr, "uses_pref ix" ) ; 
$NIOS_USER„INSTRUCTION_IS_SEQUEJTTIAL {$mnemonic} = 

&PTF_Get„Boolean„Data_By_Patli ($db_Instr, "has_seciuential_logic" ) 
$NIOS_USER_INSTRUCTION_MODUIjE_NAME {$innemonic} = 

&PTF_Ge t_Re<iuired_Data__By_Path ( $db_Ins tr , " top_module_name " ) ; 
$NIOS_USER„INSTRUCTION_IS_BLACK_BOX {$mnemonic} = 

! &PTF_Get_Boolean_Data_By_Path ( $db_Instr , " do_synthesize_top" ) ; 

$NIOS_USER_INSTRUCTION_SUPPORT_PREFIX | = 

$NIOS_USER_IlsrSTRUCTION_GETS_PREFIX {$mnemonic} ; 

if { ! $NIOS_USER_INSTRUCTION_IS_BLACK_BOX { $imemonic } ) 
{ 

my $file_string = &:get_data_by_path ($db_Instr, 

"HDIj_INFO/synthesis„f iles" ) ; 

push (@Inst rue t i on_Un i t_Syn th_F i 1 e_L i s t , 
split (/\s*\,\s*/, $f ile„string) ) ; 

} 

} 

# There. We've now set a whole bunch of globals for the Nios 

# Vpp-code to use. I*m totally ashamed of myself. 



################ 

# Firm Flip-Flop Generation 
# 

# We create several Firm_Flip__Flop variants so that we can, for example, 

# assign Fast I/O register attributes to them. 
# 

# These global variables we're setting get used 

# inside the nios-core Vpp script. David Van Brink would be 

# horrified. 
# 

# We assign the "FAST_OUTPUT_REGISTER or " FAST_INPUT_REGISTER" 

# attribute to these depending on whether the system-at-hand has a 

# "principal" tri-state databus . If it does, then we presxxme 

# off -chip access is speed-critical, and we make these 

# assignments. If there is no "principal" tri-state databus, then 

# we -exlicitly- create the ESF-file anyhow, but with these 

# assignments turned OFF. We do this to overwrite any 

# past-versions of these esf -files that may be lying around. 
# 

# These names used to be long and luxurious. Now they're short 

# and spartan. FPGA Express gets angry if your name runs over 32 

# characters, and the old long names "used up" 16 precious characters. 

# Now they onlu use-up three. But they're short. And spartan. Sorry. 
# 

$ADDRESS_OUT_REG_MODUIiE_NAME = $$arg{name} . "_ar" ; # _address_out_.reg 
$CONTROL__OUT_REG_MODUIiE_NAME = $$arg{name} . "_cr" ; # _control_out_reg 
$DATA_IN_REG_MODUriE_NAME = $$arg{name} . "_dr"; # _data_in_reg 

&:Create_Firm_Flip_Flop_Variant ( $$arg{sy stem_di rectory} , 

$$arg{sopc_directory} , 
$$Sys_WSA{device_f amily} , 
$ADDRESS_OUT_REG„MODUIiE_.NAME , 
$CONTROL_0UT_REG_MODUL,E_NAME , 



$ D AT A_IN_REG_MODULE_NAME 
) ; 

my $fast_switch = ( $$Sys_WSA{Principal_Tri_State_Data_Bus } ) ? "ON" : 

"OFF" ; 

ficCreate_ESF„File { " f inn_f lip_f lop : FAST_OUTPUT_REGISTER = $f ast_switch; 

$$arg{system_directory} , 
$ADDRESS_OUT_REG_M0DULE_NAME , 
$CONTROIi_OUT_REG_MODULE_NAME , 
) ; 

&Create_ESF_File ( " f inn_f lip_f lop : FAST_INPUT_REGISTER = $fast_switch; " 

$$arg{system_directory} , 
$ DATA_IN_REG_MODUriE_NAME 
) ; 

################ 

# "Run" Vpp 
# 

# The Nios core has more vpp source-files than William Howard Taft 

# has whiskers. So be it. 
# 

niy $vpp_source_dir = " $$arg{class„directory } /vpp_source" ; 
my @vpp_f ile_list = { 

"-H" , " $$arg{class_directory} /vpp_source/f irm_f lip_f lop . vpp" , 
"-H" , "$$arg{sopc_directory}/bin/vpp/generator_functions.vpp" , 
" -H" , " $vpp_source_dir/processor_generator_f unctions .vpp" , 
" -H" , " $vpp_source_dir/cpu_interf ace , vpp" , 
" -H" , " $vpp_source_dir/mnemonics .vpp" , 
" -H" , " $vpp_source_dir/control_bits .vpp" , 

" $vpp_source_dir/major_opcode_table . vpp" , 

" $vpp_source_dir/subtable_w. vpp" , 

" $vpp_source_dir/ ins true tion„decoder .vpp" , 

" $vpp_source_dir/register„ram. vpp" , 

" $vpp_source_dir /cpu_core . vpp " , 

) ; 

if ( $$arg{multiply} ) { 

push (©vpp_f ile_list , ( " $vpp_source_dir/mul„unit .vpp" ) ) ; 
push (@Instruction_Unit_Synth_File_List , 

" $$arg{system_directory} /$$arg{name} \_mul_unit . v" ) ; 

} 

&Progress {"Running Vpp for Nios CPU: $$arg{name} . " ) if $ $arg {verbose } ; 

$VPP_EXTERNAIi_SECURE = 0; 
&Vpp ( 

split (/\s+/, "-Q -X v"), 
# "-R", 

" -D" , " $$arg{system„directory} " , 
"-P", $$arg{ncime} . "__" , 
" NIOS_DATA_BITS 

"NIOS_SINGLE_CLOCK„SHIFT_DEPTH 
"NIOS_REGISTER_FILE_SIZE 
" NIOS_WRITEABLE_WVAIiID_REGISTER 
" NIOS_USE_DECODER_ROMS 
" NIOS_MSTEP_SUPPORT 
" NIOS_MUIiTIPLY__SUPPORT 
"NIOS_SYSTEM_HIGHEST_ADDRESS 
" NIOS_MAIN_MEM_BASE_ADDRES S 
" NI0S_MA1N_MEM_ADDRES S„SPAN 
"NIOS_VECBASE 
"NIOS_RESET_ADDRESS 




= $$SBI{Data_Width} " 

= $$arg{shif t_size} " 

= $$arg{num_regs} " 

= $$arg{wvalid_wr} " 
= $ $ ar g { r om_decoder } " 

= $$arg{mstep} " 

= $$arg{multiply} " 

= $highest_address " 
= $$arg{mm_base} 

= $$arg{mm_span} " 

= $vecbase_address " 

= $reset_address " 



DUTIdVIDLE cycle = $do use idle cycle^. 



"NI0S_TURNAR0UNBI_IDLE_CYCLE = $do_use_idle_cycle' 

@globals_2_control_synthes i s_place_and_rout e , 
@vpp__f ile_list , 
) ; 



################ 

# Convert mif-files to dat-files 
# 

if { $$Sys_WSA{do_build_sim} && $$arg{rom_decoder} ) { 
£cNios_Convert_ROM ($arg, "major_opcode_table" ) ; 
&:Nios_.Convert_ROM { $arg , " subtable_w" ) ; 

} 



################ 

# Update the PTF-file so that it has correct 

# ports and HDL-files that agree with the Nios we just 

# generated. 
# 

&Progress ("Updating PTF for Nios CPU: $$arg{naine} . " ) if $ $arg {verbose } ; 
&Add_Module_Ports_To_PTF ($db_Module, $$arg{name} ) ; 

&Add_Syn t he s i s_F i 1 e s_To_PTF ( $ db_Mo dule, @Instructi on_Un i t_Syn th_F i 1 e_Ij i s t , 
" $$arg{system_directory} /$DATA_IN_REG_MODUIiE_NAME. V" , 
" $$arg{system_directory} /$ADDRESS_OUT_REG_MODUIiE_NAME . V" , 
" $ $arg { sys tem„di rectory } / $CONTROL_OUT_REG_MODUIjE_NAME . v" , 
" $$arg{system_directory} /$$arg{naine} \_register_ram. V" , 
" $$arg{ sy St em_directory} /$$arg {name} \_major_opcode_ table . v" , 
"$$arg{system_directory} /$$arg{name} \_subtable_w. v" , 
" $$arg{system_directory} /$$arg{naine} \_instruction_decoder . V" , 
" $ $arg { sys tein_direc tory } / $ $arg {name } \_cpu_core . v" , 
) ; 

# We need to list our MIF-files, so their names can be "crushed" if 

# required for MaxPlus+II ( two) . 
# 

if ( $$arg{rom_decoder} ) { 

&Add_HDD_INFO„Fi les_To_PTF 

($db_Module, "MIF_.Files " , 
" $$arg{ sys tem_direc tory } / $ $arg {name } \_ma j or_opcode_ table . mif " , 
" $ $arg { sys tem^di rectory } / $ $arg { name } \_subtable_w . mi f " , 
) ; 

> 

&write_ptf_file ( $db_PTF_File) or die 

"Couldn't write PTF File when generating Nios CPU: $$arg{name} " ; 

} 

################################################################ 

# Nios_Convert_ROM 
# 

# Gets used twice, so I guess it's a subroutine. 
# 

################################################################ 

sub Nios_Convert_ROM 

{ 

my ($arg, $table_name) = (@_) ; 

my $f ull_table_name = " $$arg{name}_$table_name" ; 

&:Convert_Mif_To_Dat ( " $$arg{ sys tem_direc tory} /$full_table_name .mif " , 

"$$arg{system_sim_dir}/$full_table_name.dat" ) ; 

} 

################################################################ 

# f illup_synthesis_place_and_route_globals ; 



ru 



# 

# Reads values from " SYNTH_CONTROIi " section of PTF, builds them 

# into a list of name=value pairs. 

# This list gets passed along to Vpp, so it can do its evil kludge 
5 # of setting global variables . 

# 

################################################################ 

sub f i 1 lup_syn t he s i s_place_and route g 1 oba 1 s 

{ 

10 my ($db_Module) = (@_) ; 

# The trailing "0" argument means "strict=0": It's OK if section doesn't 

# exist 

my $SC_hash = &PTF_Build_Hash_From_Section ($db_Module, "SYNTH_CONTROL" , 0) ; 

15 

my (iname_ec[uals_value_list = (); 
foreach $var_name (keys ( % { $SC_hash} ) ) { 

push (@name_equals_value_list , " $var_ncLme=$$SC_hash{ $var_name} " ) ; 

} 

20 return @name_eguals„value_list ; 

} 

################################################################ 

# Execution begins here 

25 ################################################################ 
U &Mk_Nios (@ARGV) ; 

m 



